标注所有线段的lisp程序源码_标注线段长度【文字方式】 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 曲线,测量 - Powered by Dis...

本帖最后由 仲文玉 于 2012-8-11 08:30 编辑

[code="lisp]

(defun C:kxbz ()

(COMMAND "UCS" "")

(setq cmdecho_bak (getvar "cmdecho"))

(setq AcadObject   (vlax-get-acad-object)

AcadDocument (vla-get-ActiveDocument Acadobject)

mSpace      (vla-get-ModelSpace Acaddocument)

)

;;选取需要测量的样条曲线、圆弧、直线、椭圆

(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))

(setq i 0)

;;获取系统参数textsize

(setq shh (getvar "textsize"))

(setq str_hh (strcat "\n文字高度 : "))

(setq hh (getdist str_hh))

(while hh

(setvar "textsize" hh)

(setq hh nil)

)

;;输入标注文字高度

;;循环开始

(repeat (sslength en)

(setq ss (ssname en i))

(setq endata (entget ss))

(command "lengthen" ss "")

(setq dd (g