Autolisp：利用AuoCAD之Lisp編程案例之自動智能獲取所選對象的面積并標注在指定位置

?

目錄

輸出結果

實現代碼

---

?

?

?

?

輸出結果

?

?

實現代碼

;; write area value of a close polygon to drawing (DEFUN C:EA(/ OLDOS PT STA QAREA) ;;(setq olderr *error*)(setq *error* myerr)(SETVAR "CMDECHO" 0)(SETQ OLDOS (GETVAR "OSMODE")) ;;(SETVAR "OSMODE" 0)(SETQ STA (CAR (ENTSEL)))(COMMAND "AREA" "E" STA)(SETQ QAREA (RTOS (GETVAR "AREA") 2 2))(SETQ PT (GETPOINT"\nPick the point you want to write area:"))(COMMAND "TEXT" PT "" "" QAREA) ;; (SETVAR "OSMODE" OLDOS)(SETVAR "CMDECHO" 1)(setq *error* olderr)(PRINC) )

?

總結

以上是生活随笔為你收集整理的Autolisp：利用AuoCAD之Lisp编程案例之自动智能获取所选对象的面积并标注在指定位置的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。