带关键字的SSGET的一个应用（多段线尺寸标注）

Lispboy · 发表于 2016-10-6 00:14:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

XD::Dim:MakeRotWithPnts函数见开源函数库： http://bbs.xdcad.net/thread-705683-1-1.html

带关键字的SSGET(二).gif

(defun c:tt ()
(if (not #dis)
(setq #dis 10.0)
)
(defun _setdis (keyword)
(cond
((= keyword "SE")
(if (setq dis (getreal (xdrx_prompt "\n请输入第二道尺寸线距离<" #dis
">:" t
)
)
)
(setq #dis dis)
)
)
((= keyword "BE")
(setq #align1 (xdrx_yesorno "\n基点是否对齐:" 1))
(if (= #align1 1)
(setq #align t)
(setq #align nil)
)
)
)
(xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")")
)
(xdrx_begin)
(xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")")
(xdrx_initssget "\n选取要标注的多段线[基点对齐(BE)/二道尺寸(SE)]<退出>:"
"BE SE" "" "_setdis" ""
)
(if (and
(setq ss (xdrx_ssget '((0 . "*polyline"))))
(setq pt (getpoint "\n尺寸线位置<退出>:"))
)
(progn
(mapcar
'(lambda (x)
(xd::dim:makerotwithPnts (xdrx_getpropertyvalue x "vertices")
(trans pt 1 0) #align #dis
)
)
(xdrx_pickset->ents ss)
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (if (not #dis) 
    (setq #dis 10.0) 
  ) 
  (defun _setdis (keyword) 
    (cond 
      ((= keyword "SE") 
  (if (setq dis (getreal (xdrx_prompt "\n请输入第二道尺寸线距离<" #dis 
              ">:" t 
             ) 
          ) 
      ) 
    (setq #dis dis) 
  ) 
      ) 
      ((= keyword "BE") 
  (setq #align1 (xdrx_yesorno "\n基点是否对齐:" 1)) 
  (if (= #align1 1) 
    (setq #align t) 
    (setq #align nil) 
  ) 
      ) 
    ) 
    (xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")") 
  ) 
  (xdrx_begin) 
  (xdrx_prompt "\n当前设置：基点对齐(" (if #align "Y" "N") ")/二道尺寸距离(" #dis ")") 
  (xdrx_initssget "\n选取要标注的多段线[基点对齐(BE)/二道尺寸(SE)]<退出>:" 
      "BE SE" "" "_setdis" "" 
  ) 
  (if (and 
  (setq ss (xdrx_ssget '((0 . "*polyline")))) 
  (setq pt (getpoint "\n尺寸线位置<退出>:")) 
      ) 
    (progn 
      (mapcar 
  '(lambda (x) 
     (xd::dim:makerotwithPnts (xdrx_getpropertyvalue x "vertices") 
            (trans pt 1 0) #align #dis 
     ) 
   ) 
  (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

yoyoho · 发表于 2016-10-6 06:29:54

感谢 Lispboy 学习多段线尺寸标注!!!!!

一方君侯 · 发表于 2016-12-26 01:47:03

安装新版本api后，tt命令被你这段代码占用了。。。求清除。。

newer · 发表于 2016-12-26 01:55:42

一方君侯发表于 2016-12-26 01:47

哪的TT命令？你自己的？

一方君侯 · 发表于 2016-12-26 10:24:02

newer 发表于 2016-12-26 01:55

加载lisp库后，输入tt命令就是这个程序了。。。本来我自己改键把tt改成填充命令的。我在想是不是打包lisp库时把这个程序误加进去了

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

[原创] 带关键字的SSGET的一个应用（多段线尺寸标注）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。