求快捷文字标注小程序！

cjjh8301 · 发表于 2014-5-28 11:49

求个小程序，给LE命名指定文字内容
比如LE命令，屏幕指定引线的2点后，命令就结束，文字内容则为指定的内容1234

★飞飛★ · 发表于 2014-5-28 11:49

本帖最后由 ★飞飛★ 于 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)
)

;;------------------------------------------------------------------ 
(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:00

本帖最后由 ★飞飛★ 于 2014-10-21 03:06 编辑

★飞飛★ 发表于 2014-10-21 02:57

这个问题也是本人原来工作中遇到的，所以就自己编写了这个程序，很是方便，希望能比你的想像的程序更好用。引线与文字自动分层分颜色，分引线比例和自动对应相应文字大小、高宽比，且始终文字是中对齐，很整洁。

cjjh8301 · 发表于 2014-12-11 16:14

★飞飛★ 发表于 2014-10-21 03:00
这个问题也是本人原来工作中遇到的，所以就自己编写了这个程序，很是方便，希望能比你的想像的程序更好用 ...

感谢！！

账号		自动登录	找回密码
密码			注册

求快捷文字标注小程序！

最佳答案

相关帖子