【求助】请大神帮忙实现--块中心点自动连线

szmika

有大量相同的块，基本是规则性排列，求助大神帮忙实现--块中心点自动连线，用PL线，指定第一个起点，希望最近的两个块中心自动连线，然后寻找下一个最近的块中心再次自动连线，依次连线，直至框选的块全部连完。感谢感谢！！

szmika

newer

szmika 发表于 2017-7-25 22:24

把都连完的图截图贴上来。

szmika

newer 发表于 2017-7-25 22:31

这个没所谓，可以通过框选来控制范围，尽量让连线规则性走向
我也不知道怎么表达全部，只是有大量的需要连线，假如是能用直线连的，就一下子解决了
只是一些不在一条直线上的，能自动连一些是一些，起码一个个点着连线好

newer

用  连线 搜索下论坛，其中一个
http://bbs.xdcad.net/forum.php?m ... hlight=%C1%AC%CF%DF

newer

http://bbs.xdcad.net/thread-677313-1-1.html

szmika

newer 发表于 2017-7-25 23:53

这个有点类似，但是还是有差异。
这个是凸点形式连接，而且不是寻找最近的点连线

st788796

你这些块是顺序生成的吧

szmika

st788796 发表于 2017-7-26 20:22

ST老师，你好，这些块是手工布置上去的，完成后总的还是有规律性的（造型），不会是无规则无规律

st788796

你这个样图就没有规律，如果每个线上的块是顺序布置的，那么这些块选择后和你布置的顺序是一样的，如果布置块的时候中间绘制了其它实体，那这些块就没法去自动识别了

用 F 选择方式也可以连接，半自动模式了
理想状态下的连线

2. 
   
3. (defun c:tt (/ ss lst ll)
   
4.   (if (setq ss (ssget '((0 . "insert"))))
   
5.     (progn
   
6.       (setq lst        (vl-sort
   
7.                   (mapcar
   
8.                     '(lambda (x / l)
   
9.                        (setq l (xdrx_getpropertyvalue x "Handle" "Position"))
   
10.                        (list (XD::Math:HEX2DEC (car l)) (cadr l))
    
11.                      )
    
12.                     (xdrx_pickset->ents ss)
    
13.                   )
    
14.                   '(lambda (a b) (< (car a) (car b)))
    
15.                 )
    
16.       )
    
17.       (while lst
    
18.         (if ll
    
19.           (if (= (abs (- (caar lst) (caaar ll))) 1)
    
20.             (setq ll (cons (cons (car lst) (car ll)) (cdr ll)))
    
21.             (setq ll (cons (list (car lst)) ll))
    
22.           )
    
23.           (setq ll (list (list (car lst))))
    
24.         )
    
25.         (setq lst (cdr lst))
    
26.       )
    
27.       (foreach x ll
    
28.         (apply 'xdrx_polyline_make
    
29.                (mapcar 'cadr x)
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

<br /> (defun c:tt (/ ss lst ll)<br />   (if (setq ss (ssget '((0 . "insert"))))<br />     (progn<br />       (setq lst        (vl-sort<br />                   (mapcar<br />                     '(lambda (x / l)<br />                        (setq l (xdrx_getpropertyvalue x "Handle" "Position"))<br />                        (list (XD::Math:HEX2DEC (car l)) (cadr l))<br />                      )<br />                     (xdrx_pickset->ents ss)<br />                   )<br />                   '(lambda (a b) (< (car a) (car b)))<br />                 )<br />       )<br />       (while lst<br />         (if ll<br />           (if (= (abs (- (caar lst) (caaar ll))) 1)<br />             (setq ll (cons (cons (car lst) (car ll)) (cdr ll)))<br />             (setq ll (cons (list (car lst)) ll))<br />           )<br />           (setq ll (list (list (car lst))))<br />         )<br />         (setq lst (cdr lst))<br />       )<br />       (foreach x ll<br />         (apply 'xdrx_polyline_make<br />                (mapcar 'cadr x)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

szmika

st788796 发表于 2017-7-26 20:54

请问为什么运行不了的？

选择对象: 指定对角点: 找到 5 个
选择对象:  no function definition: XDRX_PICKSET->ENTS

newer

szmika 发表于 2017-7-26 21:02

安装 XDRX API 或者 安装晓东工具箱

szmika

st788796 发表于 2017-7-26 20:54

安装了工具箱，还是出现错误提示，请问是什么情况？谢谢。。

命令: tt
选择对象: 指定对角点: 找到 3 个
选择对象:  no function definition: XD::MATH:HEX2DEC
命令:

Lisphk

szmika 发表于 2017-7-28 22:07

http://bbs.xdcad.net/thread-711205-1-1.html
工具箱更新后，新发布的函数，拷贝回去。

以后看到 xd::开头的函数，如果提示没有，你就拷贝到 搜索框 ，搜索论坛。 xd::开头的是通用LISP函数库，论坛都有源代码。