【已解决】各位大神，麻烦帮我看看这个程序问题出在哪，谢谢

fangmin723

我想要的是和CAD平时画引线一样的效果，麻烦各位大神帮我看看！！！

1. (defun c:tt()
   
2.         (setq p1 (getpoint "第一点") pienum 0.5)
   
3.         (setq p2 (cadr (grread T 8)))
   
4.         (entmake (list '(0 . "LEADER") '(100 . "AcDbEntity") '(100 . "AcDbLeader") (cons 10 P1) (cons 10 P2)))
   
5.         (setq e1$1 (entlast))
   
6.         (setq e1$1_data (entget e1$1))
   
7.         (Vlax-Put-Property (Vlax-Ename->Vla-Object e1$1) 'ArrowheadSize pienum)
   
8.         (Vlax-Put-Property (Vlax-Ename->Vla-Object e1$1) 'ArrowheadType 3)
   
9.         (while (and (setq gr (grread T 15)) (= (car gr) 5))
   
10.                 (setq p2 (cadr gr) n 0 lst (list p1 p2))
    
11.                 (foreach x e1$1_data
    
12.                         (if (= (car x) 10)
    
13.                                 (progn
    
14.                                         (setq e1$1_data (subst (cons 10 (nth n lst)) x e1$1_data))
    
15.                                         (setq n (1+ n))
    
16.                                 )
    
17.                         )
    
18.                 )
    
19.                 (entmod e1$1_data)
    
20.         )
    
21. )
    

(defun c:tt()<br />         (setq p1 (getpoint "第一点") pienum 0.5)<br />         (setq p2 (cadr (grread T 8)))<br />         (entmake (list '(0 . "LEADER") '(100 . "AcDbEntity") '(100 . "AcDbLeader") (cons 10 P1) (cons 10 P2)))<br />         (setq e1$1 (entlast))<br />         (setq e1$1_data (entget e1$1))<br />         (Vlax-Put-Property (Vlax-Ename->Vla-Object e1$1) 'ArrowheadSize pienum)<br />         (Vlax-Put-Property (Vlax-Ename->Vla-Object e1$1) 'ArrowheadType 3)<br />         (while (and (setq gr (grread T 15)) (= (car gr) 5))<br />                 (setq p2 (cadr gr) n 0 lst (list p1 p2))<br />                 (foreach x e1$1_data<br />                         (if (= (car x) 10) <br />                                 (progn<br />                                         (setq e1$1_data (subst (cons 10 (nth n lst)) x e1$1_data))<br />                                         (setq n (1+ n))<br />                                 )<br />                         )<br />                 )<br />                 (entmod e1$1_data)<br />         )<br /> )<br />

newer

你遇到什么问题了呢？ 你想怎么做？先说说

fangmin723

newer 发表于 2017-7-6 12:28

创建不了引线，也不动态显示

qq1254582201

感觉已经非常棒了！！！！

fangmin723

qq1254582201 发表于 2017-7-6 19:18

你能创建的出来？？？