API应用平行线标注

st788796 · 发表于 2014-4-23 17:46:15

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

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

×

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "line"))))
(progn
(setq lst (mapcar '(lambda (x)
(list (rem (xdrx_getpropertyvalue x "Angle") pi)
x
)
)
(xdrx_pickset->ents ss)
)
lst (xd::List:GroupByIndex lst 1e-3)
)
(mapcar
'(lambda (x / e v ll)
(if (> (length x) 1)
(progn
(setq e (car x))
(mapcar 'set '(sp0 mp ep0) (xdrx_curve_getpoint e))
(setq v (mapcar '- ep0 sp0)
ll (mapcar '(lambda (a / sp)
(setq sp (xdrx_curve_getstartpoint a))
(list (car (trans (mapcar '- sp sp0) 0 v))
a
)
)
x
)
ll (vl-sort ll
'(lambda (d1 d2)
(> (car d1) (car d2))
)
)
)
(mapcar
'(lambda (a b / mp1 mp2)
(setq mp1 (cadr (xdrx_curve_getpoint (cadr a)))
mp2 (cadr (xdrx_curve_getpoint (cadr b)))
)
(xdrx_dimension_makerotate
mp1
mp2
(xdrx_line_midp mp1 mp2)
(angle mp1 mp2)
)
)
ll
(cdr ll)
)
)
)
)
(mapcar 'cdr lst)
)
)
)
(princ)
)

(defun c:tt (/ ss lst) 
  (if (setq ss (ssget '((0 . "line")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x) 
                           (list (rem (xdrx_getpropertyvalue x "Angle") pi) 
                                 x 
                           ) 
                         ) 
 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (xd::List:GroupByIndex lst 1e-3) 
      ) 
      (mapcar 
        '(lambda (x / e v ll) 
           (if (> (length x) 1) 
             (progn 
               (setq e (car x)) 
               (mapcar 'set '(sp0 mp ep0) (xdrx_curve_getpoint e)) 
               (setq v        (mapcar '- ep0 sp0) 
                     ll        (mapcar        '(lambda (a / sp) 
                                   (setq sp (xdrx_curve_getstartpoint a)) 
                                   (list (car (trans (mapcar '- sp sp0) 0 v)) 
                                         a 
                                   ) 
                                 ) 
                                x 
                        ) 
                     ll        (vl-sort ll 
                                 '(lambda (d1 d2) 
                                    (> (car d1) (car d2)) 
                                  ) 
                        ) 
               ) 
               (mapcar 
                 '(lambda (a b / mp1 mp2) 
                    (setq mp1 (cadr (xdrx_curve_getpoint (cadr a))) 
                          mp2 (cadr (xdrx_curve_getpoint (cadr b))) 
                    ) 
                    (xdrx_dimension_makerotate 
                      mp1 
                      mp2 
                      (xdrx_line_midp mp1 mp2) 
                      (angle mp1 mp2) 
                    ) 
                  ) 
                 ll 
                 (cdr ll) 
               ) 
             ) 
           ) 
         ) 
        (mapcar 'cdr lst) 
      ) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-4-24 08:20:01

加个判断条件 (if (<= (distance mp1 mp2) 300.) ... 就是这样了

XDSoft · 发表于 2014-4-24 10:52:22

st788796 发表于 2014-4-24 08:20
加个判断条件 (if (

这就是所谓的梁宽，墙厚标注了。

liuyj · 发表于 2014-4-24 11:37:49

能否再来个平行曲线的标注

st788796 · 发表于 2014-4-24 11:48:22

liuyj 发表于 2014-4-24 11:37
能否再来个平行曲线的标注

什么样的曲线?

liuyj · 发表于 2014-4-24 12:18:40

圆弧、多义线等，就是绘图中常用的几种，样条曲线我用不到。

st788796 · 发表于 2014-4-24 12:52:44

liuyj 发表于 2014-4-24 12:18
圆弧、多义线等，就是绘图中常用的几种，样条曲线我用不到。

圆弧平行则同圆心起始角终止角相等
多义线麻烦点，不考虑顶点退化，构造每段的角度索引
用xd::list:groupbyindex分组

xu3re · 发表于 2014-6-8 00:09:13

感谢楼主分享、好东西。

nishui · 发表于 2015-5-17 11:02:41

2010测试不能用啊

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

[教学] API应用平行线标注

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

点评

浏览过的版块

[教学] API应用 平行线标注

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

点评

浏览过的版块

[教学] API应用平行线标注