（XD::Pickset:PickLineSeg）（支持图块内选线）选择直线或者多段线的直线段

XDSoft · 发表于 2020-5-16 22:24:54

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

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

×

(defun xd::pickset:pickLineSeg (info1 info2 / ln segs seg typ p1 mat)
(while
(and
(not ln)
(setq e1 (nentsel info1))
(setq seg (car e1))
(setq typ (strcase (xdrx-object-isa (car e1))))
(progn (if (> (length e1) 2)
(setq mat (xdrx-matrix-block2wcs (car (last e1)))
p1 (xdrx-point-transform
(cadr e1)
(xdrx-matrix-inverse mat)
)
)
(setq mat (xdrx-matrix-identity 3)
p1 (cadr e1)
)
)
)
(or
(and (wcmatch typ "*POLYLINE")
(setq segs (xdrx-getpropertyvalue (car e1) "onsegat" p1))
(setq seg (xdrx-getpropertyvalue (car e1) "segat" (car segs)))
(progn
(or (= (xdge::type seg) "kLineSeg3d")
(not (xdrx-prompt
(cond ((= (type info2) 'str) info2)
(t "\n请选择直线或多段线的直线段，重试.")
)
)
)
(not (xdge::free seg))
)
)
)
t
)
)
(setq ln (xdrx-points-transformby
mat
(xdrx-getpropertyvalue seg "startpoint" "endpoint")
)
)
)
(xdge::free seg)
ln
)

(defun xd::pickset:pickLineSeg (info1 info2 / ln segs seg typ p1 mat) 
  (while 
    (and 
      (not ln) 
      (setq e1 (nentsel info1)) 
      (setq seg (car e1)) 
      (setq typ (strcase (xdrx-object-isa (car e1)))) 
      (progn (if (> (length e1) 2) 
               (setq mat (xdrx-matrix-block2wcs (car (last e1))) 
                     p1         (xdrx-point-transform 
                           (cadr e1) 
                           (xdrx-matrix-inverse mat) 
                         ) 
               ) 
               (setq mat (xdrx-matrix-identity 3) 
                     p1         (cadr e1) 
               ) 
             ) 
      ) 
      (or 
        (and (wcmatch typ "*POLYLINE") 
             (setq segs (xdrx-getpropertyvalue (car e1) "onsegat" p1)) 
             (setq seg (xdrx-getpropertyvalue (car e1) "segat" (car segs))) 
             (progn 
               (or (= (xdge::type seg) "kLineSeg3d") 
                   (not        (xdrx-prompt 
                          (cond        ((= (type info2) 'str) info2) 
                                (t "\n请选择直线或多段线的直线段，重试.") 
                          ) 
                        ) 
                   ) 
                   (not (xdge::free seg)) 
               ) 
             ) 
        ) 
        t 
      ) 
    ) 
     (setq ln (xdrx-points-transformby 
                mat 
                (xdrx-getpropertyvalue seg "startpoint" "endpoint") 
              ) 
     ) 
  ) 
  (xdge::free seg) 
  ln 
)

liuwenxuan8351 · 发表于 2020-5-17 12:48:58

感谢楼主分享学习了

既然青春留不住 · 发表于 2020-5-17 17:29:03

ma809567554 · 发表于 2021-8-16 08:56:10

怎么加载后运行不了呢

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

[选择集] （XD::Pickset:PickLineSeg）（支持图块内选线）选择直线或者多段线的直线段

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