lisp批量生成轴线_多段线各端点批量标注坐标并编号然后把各点坐标导出到文本上...

本帖最后由 香田里浪人 于 2015-12-30 18:40 编辑

;;;多段线坐标标注并导出

(defun c:zbbzdc()

(setq ps_cmdecho (getvar "cmdecho")

ps_osmode  (getvar "osmode")

ps_luprec  (getvar "luprec")

)

(setvar "cmdecho" 0)

(setvar "osmode" 0)

(setvar "luprec" 0)

(setq TextHeight (getdist "\n请输入文字高度:"))

(command "-layer" "n" "坐标标注" "c" "4" "坐标标注" "")

(setvar"dimzin"0);;保留小数位数时如果位数不足可以补零

(princ "\n输入引线长度 (建议")(princ (* TextHeight 10))(princ ")")

(princ ":")

(setq long (getreal))

(setq sunmer (ssget '((-4 . "

(0 . "POLYLINE")

(0 . "LWPOLYLINE")

(-4 . "OR>")

)

)

)

(setq germeip (sslength sunmer))

(setq pian