[LISP函数]：给AutoCAD增加扩展数据数据

tsindong

晓东CAD乱删贴,严重抗议!
晓东CAD乱删贴,严重抗议!
晓东CAD乱删贴,严重抗议!
晓东CAD乱删贴,严重抗议!
晓东CAD乱删贴,严重抗议!
晓东CAD乱删贴,严重抗议!
晓东CAD乱删贴,严重抗议!

gaolaosan

好！

自由的鱼

如果是加在属性中要怎么加？

tsindong

扩展数据不能加到属性中!

LUCAS

最初由 自由的鱼 发布
[B]如果是加在属性中要怎么加？ [/B]

2. 
   
3. ;;您可以使用 xdata 來存放您要的任何類型的資訊。例如，繪製一個圖元
   
4. ;;（例如一條線或一個圓周），然後輸入下列程式碼，將 xdata 貼附到圖元：
   
5. 
   
6. (defun C:TT ()
   
7.   (setq LASTENT (entget (car (nentselp)))) ; 點選屬性
   
8.                                         ; 定義資料的
   
9.                                         ; 相關串列。
   
10.   (regapp "NEWDATA")                        ; 登錄
    
11.                                         ; 應用程式名稱。
    
12.   (setq        EXDATA                                ; 將變數
    
13.          '((-3
    
14.             ("NEWDATA"                        ; exdata 設為等於
    
15.              (1000 . "This is a new thing!") ; 新的延伸資料?
    
16.             )
    
17.            )
    
18.           )                                ; 在本例中，是指一個
    
19. 
    
20.   )                                        ; 文字字串。
    
21.   (setq        NEWENT
    
22.          (append LASTENT EXDATA)
    
23.   )                                        ; 將新的資料串列
    
24.                                         ; 附加到圖元的串列。
    
25.   (entmod NEWENT)                        ; 以新的定義資料
    
26.                                         ; 修改圖元。
    
27. )
    
28. ;;若要確認新的 xdata 已貼附到圖元，請輸入下列程式碼，並選取物件：
    
29. 
    
30. ;;(entget (car (nentsel)) '("NEWDATA"))
    
31. 
    
32. ;;本例展示將延伸資料貼附到圖元的基本方法。
    

<br /> ;;您可以使用 xdata 來存放您要的任何類型的資訊。例如，繪製一個圖元<br /> ;;（例如一條線或一個圓周），然後輸入下列程式碼，將 xdata 貼附到圖元：<br /> <br /> (defun C:TT ()<br />   (setq LASTENT (entget (car (nentselp)))) ; 點選屬性<br />                                         ; 定義資料的<br />                                         ; 相關串列。<br />   (regapp "NEWDATA")                        ; 登錄<br />                                         ; 應用程式名稱。<br />   (setq        EXDATA                                ; 將變數<br />          '((-3<br />             ("NEWDATA"                        ; exdata 設為等於<br />              (1000 . "This is a new thing!") ; 新的延伸資料?<br />             )<br />            )<br />           )                                ; 在本例中，是指一個<br /> <br />   )                                        ; 文字字串。<br />   (setq        NEWENT<br />          (append LASTENT EXDATA)<br />   )                                        ; 將新的資料串列<br />                                         ; 附加到圖元的串列。<br />   (entmod NEWENT)                        ; 以新的定義資料<br />                                         ; 修改圖元。<br /> )<br /> ;;若要確認新的 xdata 已貼附到圖元，請輸入下列程式碼，並選取物件：<br /> <br /> ;;(entget (car (nentsel)) '("NEWDATA"))<br /> <br /> ;;本例展示將延伸資料貼附到圖元的基本方法。<br />

ydf7332462

1>怎样将 如下 附加于直线--无则加，有则改，并批量  D--300管径 ,i--0.003坡度;
2>选取的直线附加 标高:H  H2=H-i*L/1000 ;下一段 H=H2(i-1)+D(i-1)/100-Di/1000 依次类推