【實例簡介】cad自動標注面積插件是款簡單實用的cad面積自動標注插件；支持自動的進行標注尺寸面積坐標的線段，而且標注成功之后，就會很方便的導入到您需要使用的CAD里面，并且軟件還可實現CAD圖紙的自動標注，非常的適合CAD04到CAD15的版本進行使用，極大的提高了大家工作的效率，軟件的操作簡單，使用方便，是款非常值得信賴的插件。

【實例截圖】

【核心代碼】

(defun c:mj()

(if *error*

(command "_boundary" (setq p1 (getpoint "\n點取要標注的封閉區域內部一點:"))? "")

)

(setq EN (entlast))

(command "area" "o" EN)

(setq smj (getvar "area"))

(setq imj smj)

(setq smj (/ smj 1000000))

(setq smj (* smj 1))

(setq smj (rtos smj 2 2))

(setq smj (strcat "S=" smj "m2"))

(if (=? htxt nil)

(progn

(setq htxt (/ (sqrt imj) 15))

)

)

(setq htxt1 (getdist (strcat "\n輸入字體的高度:")))

(if? htxt1

(setq htxt htxt1)

)

(setq Pt (getpoint "\n 文字標注位置:"))

(command "style" "MJ" "txt.shx" htxt 0.8 "" "n" "" "")

(command "text" "s" "MJ" "j" "BC" pt "" smj "")

'(COMMAND "TEXT" Pt ffsize 0 smj)

)

總結

以上是生活随笔為你收集整理的lisp一键室内标注_CAD插件：自动标注面积lisp程序的全部內容，希望文章能夠幫你解決所遇到的問題。

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