lisp一键室内标注_CAD插件：自动标注面积lisp程序

【实例简介】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)

)