(已解决)求一个连接多直线端点的插件

bszzl167 · 发表于 2020-5-12 06:20:09

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

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

×

本帖最后由 bszzl167 于 2020-5-13 08:18 编辑

RT，类似gif的插件直线端点连接.gif

newer · 发表于 2020-5-12 20:31:46

只有水平和垂直？

newer · 发表于 2020-5-12 21:25:33

本帖最后由 newer 于 2020-5-12 22:53 编辑

(defun c:tt () (if (not #xd-var-global-left-right)
(setq #xd-var-global-left-right 0)
)
(xdrx-initget "0 1")
(if (setq v (getint (xdrx-prompt
"\n连接端[左下:0/右上:1]<"
#xd-var-global-left-right
">:"
t
)
)
)
(setq #xd-var-global-left-right v)
)
(xdrx-begin)
(while (and (xdrx-initssget "\n选择要连接端点的曲线<退出>:")
(setq ss (xdrx-ssget '((0 . "line"))))
)
(setq pts
(mapcar '(lambda (x)
(setq ln (xdrx-getpropertyvalue x "vertices"))
(cond ((= #xd-var-global-left-right 0)
(if (or (< (car (cadr ln)) (car (car ln)))
(< (cadr (cadr ln)) (cadr (car ln)))
)
(reverse ln)
ln
)
)
((= #xd-var-global-left-right 1)
(if (or (> (car (cadr ln)) (car (car ln)))
(> (cadr (cadr ln)) (cadr (car ln)))
)
(reverse ln)
ln
)
)
(t ln)
)
)
(xdrx-pickset->ents ss)
)
)
(xdrx-polyline-make
(cond ((= #xd-var-global-left-right 0)
(vl-sort (mapcar 'car pts)
'(lambda (x y) (< (car x) (car y)))
)
)
((= #xd-var-global-left-right 1)
(vl-sort (mapcar 'car pts)
'(lambda (x y) (< (cadr x) (cadr y)))
)
)
)
)
(xdrx-setpropertyvalue (entlast) (ssname ss 0))
)
(xdrx-end)
(princ)
)

(defun c:tt ()  (if (not #xd-var-global-left-right) 
    (setq #xd-var-global-left-right 0) 
  ) 
  (xdrx-initget "0 1") 
  (if (setq v (getint (xdrx-prompt 
                        "\n连接端[左下:0/右上:1]<" 
                        #xd-var-global-left-right 
                        ">:" 
                        t 
                      ) 
              ) 
      ) 
    (setq #xd-var-global-left-right v) 
  ) 
  (xdrx-begin) 
  (while (and (xdrx-initssget "\n选择要连接端点的曲线<退出>:") 
              (setq ss (xdrx-ssget '((0 . "line")))) 
         ) 
    (setq pts 
           (mapcar '(lambda (x) 
                      (setq ln (xdrx-getpropertyvalue x "vertices")) 
                      (cond ((= #xd-var-global-left-right 0) 
                             (if (or (< (car (cadr ln)) (car (car ln))) 
                                     (< (cadr (cadr ln)) (cadr (car ln))) 
                                 ) 
                               (reverse ln) 
                               ln 
                             ) 
                            ) 
                            ((= #xd-var-global-left-right 1) 
                             (if (or (> (car (cadr ln)) (car (car ln))) 
                                     (> (cadr (cadr ln)) (cadr (car ln))) 
                                 ) 
                               (reverse ln) 
                               ln 
                             ) 
                            ) 
                            (t ln) 
                      ) 
                    ) 
                   (xdrx-pickset->ents ss) 
           ) 
    ) 
    (xdrx-polyline-make 
      (cond ((= #xd-var-global-left-right 0) 
             (vl-sort (mapcar 'car pts) 
                      '(lambda (x y) (< (car x) (car y))) 
             ) 
            ) 
            ((= #xd-var-global-left-right 1) 
             (vl-sort (mapcar 'car pts) 
                      '(lambda (x y) (< (cadr x) (cadr y))) 
             ) 
            ) 
      ) 
    ) 
    (xdrx-setpropertyvalue (entlast) (ssname ss 0)) 
  ) 
  (xdrx-end) 
  (princ) 
)

bszzl167 · 发表于 2020-5-12 23:38:31

感谢斑竹，基本按这个思路处理好了。但有一个问题：一端平齐时，另一端无法连接。见图

newer · 发表于 2020-5-12 23:46:20

bszzl167 发表于 2020-5-12 23:38
感谢斑竹，基本按这个思路处理好了。但有一个问题：一端平齐时，另一端无法连接。见图

1、平行线？

2、只有水平和垂直？

bszzl167 · 发表于 2020-5-12 23:55:11

1、平行线

2、只有水平和垂直

newer · 发表于 2020-5-13 03:06:20

bszzl167 发表于 2020-5-12 23:55
1、平行线

2、只有水平和垂直

来个通用的，任意角度平行线，批量的

批量端点连线.gif

(defun c:tt ()
(defun _mkpline (pts)
(setq g (xdge::constructor "kcompositecrv3d" pts))
(xdrx-entity-make g)
(xdge::free g)
)
(if (not #xd-var-global-left-right)
(setq #xd-var-global-left-right 0)
)
(xdrx-begin)
(xdrx-initget "0 1")
(if (setq v (getint (xdrx-prompt
"\n连接端[左下:0/右上:1]<"
#xd-var-global-left-right
">:"
t
)
)
)
(setq #xd-var-global-left-right v)
)
(xdrx-begin)
(while (and (xdrx-initssget "\n选择要连接端点的曲线<退出>:")
(setq ss (xdrx-ssget '((0 . "line"))))
)
(setq lst (xd::list:groupbyindex
(mapcar '(lambda (x)
(setq ln (xdrx-getpropertyvalue x "vertices")
an (xdrx-getpropertyvalue x "angle")
an (xd::geom:angleformat an)
)
(list an x)
)
(xdrx-pickset->ents ss)
)
0.001
)
)
(setq
lst (mapcar '(lambda (x)
(setq ents (cdr x)
xdir (xdrx-vector-normalize
(mapcar '-
(polar '(0 0 0) (car x) 1.0)
'(0 0 0)
)
)
)
(setq box (xdrx-entity-box ents xdir))
(setq ents1 (mapcar '(lambda (y)
(setq p1 (xdrx-getpropertyvalue y "startpoint")
dis (abs (xdrx-point-dist2line
p1
(car box)
(cadr box)
)
)
)
(list dis y)
)
ents
)
)
(setq
ents2 (vl-sort ents1
'(lambda (x y) (< (car x) (car y)))
)
)
(mapcar 'cadr ents2)
)
lst
)
)
(setq lst (mapcar '(lambda (x)
(mapcar '(lambda (y)
(setq ln (xdrx-getpropertyvalue y "vertices")
an (xdrx-getpropertyvalue y "angle")
an (xd::geom:angleformat an)
)
(if (> an (/ pi 2))
(reverse ln)
ln
)
)
x
)
)
lst
)
)
(mapcar
'(lambda (x)
(cond
((= #xd-var-global-left-right 0) (_mkpline (mapcar 'car x)))
(t (_mkpline (mapcar 'cadr x)))
)
(xdrx-setpropertyvalue (entlast) "color" 6)
)
lst
)
)
(xdrx-end)
(princ)
)

(defun c:tt () 
  (defun _mkpline (pts) 
    (setq g (xdge::constructor "kcompositecrv3d" pts)) 
    (xdrx-entity-make g) 
    (xdge::free g) 
  ) 
  (if (not #xd-var-global-left-right) 
    (setq #xd-var-global-left-right 0) 
  ) 
  (xdrx-begin) 
  (xdrx-initget "0 1") 
  (if (setq v (getint (xdrx-prompt 
                        "\n连接端[左下:0/右上:1]<" 
                        #xd-var-global-left-right 
                        ">:" 
                        t 
                      ) 
              ) 
      ) 
    (setq #xd-var-global-left-right v) 
  ) 
  (xdrx-begin) 
  (while (and (xdrx-initssget "\n选择要连接端点的曲线<退出>:") 
              (setq ss (xdrx-ssget '((0 . "line")))) 
         ) 
    (setq lst (xd::list:groupbyindex 
                (mapcar        '(lambda (x) 
                           (setq ln (xdrx-getpropertyvalue x "vertices") 
                                 an (xdrx-getpropertyvalue x "angle") 
                                 an (xd::geom:angleformat an) 
                           ) 
                           (list an x) 
                         ) 
                        (xdrx-pickset->ents ss) 
                ) 
                0.001 
              ) 
    ) 
    (setq 
      lst (mapcar '(lambda (x) 
                     (setq ents        (cdr x) 
                           xdir        (xdrx-vector-normalize 
                                  (mapcar '- 
                                          (polar '(0 0 0) (car x) 1.0) 
                                          '(0 0 0) 
                                  ) 
                                ) 
                     ) 
                     (setq box (xdrx-entity-box ents xdir)) 
                     (setq ents1 (mapcar '(lambda (y) 
                                            (setq p1  (xdrx-getpropertyvalue y "startpoint") 
                                                  dis (abs (xdrx-point-dist2line 
                                                             p1 
                                                             (car box) 
                                                             (cadr box) 
                                                           ) 
                                                      ) 
                                            ) 
                                            (list dis y) 
                                          ) 
                                         ents 
                                 ) 
                     ) 
                     (setq 
                       ents2 (vl-sort ents1 
                                      '(lambda (x y) (< (car x) (car y))) 
                             ) 
                     ) 
                     (mapcar 'cadr ents2) 
                   ) 
                  lst 
          ) 
    ) 
    (setq lst (mapcar '(lambda (x) 
                         (mapcar '(lambda (y) 
                                    (setq ln (xdrx-getpropertyvalue y "vertices") 
                                          an (xdrx-getpropertyvalue y "angle") 
                                          an (xd::geom:angleformat an) 
                                    ) 
                                    (if        (> an (/ pi 2)) 
                                      (reverse ln) 
                                      ln 
                                    ) 
                                  ) 
                                 x 
                         ) 
                       ) 
                      lst 
              ) 
    ) 
    (mapcar 
      '(lambda (x) 
         (cond 
           ((= #xd-var-global-left-right 0) (_mkpline (mapcar 'car x))) 
           (t (_mkpline (mapcar 'cadr x))) 
         ) 
         (xdrx-setpropertyvalue (entlast) "color" 6) 
       ) 
      lst 
    ) 
  ) 
  (xdrx-end) 
  (princ) 
)

bszzl167 · 发表于 2020-5-13 08:14:39

newer 发表于 2020-5-13 03:06
来个通用的，任意角度平行线，批量的

真心好用，感谢斑竹！！！！！！！！！！

newer · 发表于 2020-5-13 19:37:55

bszzl167 发表于 2020-5-13 08:14
真心好用，感谢斑竹！！！！！！！！！！

你这个是什么专业的，画什么用的？

去看看 http://bbs.xdcad.net/thread-725816-1-1.html

修改了，可以有两端都封闭的选择

bszzl167 · 发表于 2020-5-16 06:14:34

newer 发表于 2020-5-13 19:37
你这个是什么专业的，画什么用的？

去看看 http://bbs.xdcad.net/thread-725816-1-1.html

现在才看到，谢谢斑竹！回斑竹：用在公路边坡坡头展点的

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

[已解决] (已解决)求一个连接多直线端点的插件

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

点评

点评

点评