标注线段长度批量lisp_晓东CAD家园-论坛-每日插件-求批量多线段长度标注-求批量多线段长度标注插件！万分感谢！！！ - Powered by Discuz!...

(DEFUN C:LX1 ();|按GTC 标志的模式注记全部实地边长|;

(setvar "cmdecho" 0)

(COMMAND "-SNAP" "")

(COMMAND "-layer" "s" "0" "")

(setq TUCHENG (getstring "\n 请输入要注记的图层< * > : "))

(if (or (= TUCHENG nil) (= TUCHENG ""))

(setq TUCHENG "*")

)

(setq hei (getreal "\n 输入字高 < 1.5 > :"))

(if (= hei nil)

(setq hei 1.5)

)

(setq zjws (getint "\n 输入小数点后保留的位数 < 3 > : "))

(if (or (= zjws nil) (= zjws ""))

(setq zjws 3)

)

(setq BILICHI (getreal "\n 输入图形文件的比例尺 < 1000 > : "))

(if (= BILICHI nil)

(setq BILICHI 1000.0)

)

(setq bilixishu (/ BILICHI 1000.0))

(setq zwd1 (getpoint "注记范围第一点"))

(setq zwd5 (getcorner zwd1 "注记范围第五点&#