求快捷文字标注小程序！
求个小程序，给LE命名指定文字内容比如LE命令，屏幕指定引线的2点后，命令就结束，文字内容则为指定的内容1234
本帖最后由 ★飞飛★ 于 2014-10-21 03:02 编辑
;;------------------------------------------------------------------
(defun c:yy () ;;画引线（文字在引线端头）,★飞飛★ 2012.7.15编写
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n引线起点:")
pt2 (getpoint pt1 "\n下一点:")
pt3 (getpoint pt2 "\n终点:"))
(command "-layer" "m" "DIM" "c" "1" "" "" )
(command "Leader" pt1 pt2 pt3 "a" "" "n" );;;绘引线
(setq wz (getstring "\n请输入标注文字:"))
(setvar 'osmode 0)
(setq zg (* 3 (getvar "dimscale")))
(command "-style" "hztxt" "hzasc.shx,hztxt.shx" 0 0.7 0 "" "" "")
(command "-layer" "m" "TEXT" "c" "7" "" "" )
(command "text" pt3 zg "0" wz)
(if (> (car pt3) (car pt2))
(progn
(command "justifytext" (entlast) "" "ML" )
(setq ss (cdr (assoc 11 (entget (entlast)))))
(command "move" (entlast) "" ss pt3 )
(setq ss1 (polar pt3 0 (* zg 0.2))) )
(progn
(command "justifytext" (entlast) "" "MR" )
(setq ss (cdr (assoc 11 (entget (entlast)))))
(command "move" (entlast) "" ss pt3 )
(setq ss1 (polar pt3 pi (* zg 0.2))) )
)
(command "move" (entlast) "" pt3 ss1 )
(setvar "cmdecho" 1)
(princ)
) 本帖最后由 ★飞飛★ 于 2014-10-21 03:06 编辑
★飞飛★ 发表于 2014-10-21 02:57 static/image/common/back.gif
这个问题也是本人原来工作中遇到的，所以就自己编写了这个程序，很是方便，希望能比你的想像的程序更好用。引线与文字自动分层分颜色，分引线比例和自动对应相应文字大小、高宽比，且始终文字是中对齐，很整洁。 ★飞飛★ 发表于 2014-10-21 03:00 static/image/common/back.gif
这个问题也是本人原来工作中遇到的，所以就自己编写了这个程序，很是方便，希望能比你的想像的程序更好用 ...
感谢！！
页:
[1]