CAD直线两端自动连接到块的插入点上。直线两端点Z值自动获取块Z值得值

54525596

54525596

在线等这样的程序，，，

54525596

没这样的程序吗？

edsion24

期待 这样的程序。。。。。

ZZXXQQ

直线两端连到块的插入点上，那直线的长度为零了？有何用呢？

LLXXZZ

这哥们说的功能可以实现.
只是表述不明,
他指的是不同的块图元之间的插入点连接.

ademry

程序宏实现？

阿然

试写了一个，看看能不能满足

1. (vl-load-com)
   
2. (setvar "cmdecho" 0)
   
3. (setq *AcadDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
   
4. (setq *MoSpace* (vla-get-ModelSpace *AcadDoc*))
   
5. 
   
6. (defun c:tt (/ blk1 blk2 objname1 objname2 pt1 pt2)
   
7.   (if (and (setq blk1 (vlax-ename->vla-object (car (entsel "\n选择块:"))))
   
8.            (setq blk2 (vlax-ename->vla-object (car (entsel "\n选择块:"))))
   
9.       )
   
10.     (progn
    
11.       (setq objname1 (vla-get-objectname blk1)
    
12.             objname2 (vla-get-objectname blk2)
    
13.       )
    
14.       (if (and (equal objname1 "AcDbBlockReference")
    
15.                (equal objname1 "AcDbBlockReference")
    
16.           )
    
17.         (progn
    
18.           (setq        pt1 (vla-get-InsertionPoint blk1)
    
19.                 pt2 (vla-get-InsertionPoint blk2)
    
20.           )
    
21.           (vla-addline *mospace* pt1 pt2)
    
22.           (setq pt1 pt2)
    
23.           (while (setq
    
24.                    blk2        (vlax-ename->vla-object (car (entsel "\n选择块:")))
    
25.                  )
    
26.             (if        (equal (vla-get-objectname blk2) "AcDbBlockReference")
    
27.               (progn
    
28.                 (setq pt2 (vla-get-insertionpoint blk2))
    
29.                 (vla-addline *mospace* pt1 pt2)
    
30.                 (setq pt1 pt2)
    
31.               )
    
32.             )
    
33.           )
    
34.         )
    
35.       )
    
36.     )
    
37.   )
    
38. )
    

(vl-load-com)<br /> (setvar "cmdecho" 0)<br /> (setq *AcadDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))<br /> (setq *MoSpace* (vla-get-ModelSpace *AcadDoc*))<br /> <br /> (defun c:tt (/ blk1 blk2 objname1 objname2 pt1 pt2)<br />   (if (and (setq blk1 (vlax-ename->vla-object (car (entsel "\n选择块:"))))<br />            (setq blk2 (vlax-ename->vla-object (car (entsel "\n选择块:"))))<br />       )<br />     (progn<br />       (setq objname1 (vla-get-objectname blk1)<br />             objname2 (vla-get-objectname blk2)<br />       )<br />       (if (and (equal objname1 "AcDbBlockReference")<br />                (equal objname1 "AcDbBlockReference")<br />           )<br />         (progn<br />           (setq        pt1 (vla-get-InsertionPoint blk1)<br />                 pt2 (vla-get-InsertionPoint blk2)<br />           )<br />           (vla-addline *mospace* pt1 pt2)<br />           (setq pt1 pt2)<br />           (while (setq<br />                    blk2        (vlax-ename->vla-object (car (entsel "\n选择块:")))<br />                  )<br />             (if        (equal (vla-get-objectname blk2) "AcDbBlockReference")<br />               (progn<br />                 (setq pt2 (vla-get-insertionpoint blk2))<br />                 (vla-addline *mospace* pt1 pt2)<br />                 (setq pt1 pt2)<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br />

weiqi

又见到 然哥啦