[LISP函数]：带扩展数据的直线生成

libo2000

2. 
   
3.   [FONT=courier new]
   
4. ;;带扩展数据的直线生成
   
5. (defun #x_line (pt1 pt2 lay color myapp / e0 )
   
6.   (if (= (numberp color) nil)
   
7.     (progn
   
8.       (if (= (strcase color) "BYLAYER")
   
9.         (setq color -1)
   
10.         (setq color (atoi color)
    
11.       )
    
12.     )
    
13.   )
    
14.   (if (= (tblobjname "LAYER" lay) nil)
    
15.     (progn
    
16.       (princ "\n错误：图层不存在 ")
    
17.       (exit)
    
18.     )
    
19.   )
    
20.   (regapp "Cheng-1-0-0")
    
21.   (setq e0
    
22.     (list
    
23.       (cons 0 "LINE")
    
24.       (cons 8 lay)
    
25.       (cons 10 pt1)
    
26.       (cons 11 pt2)
    
27.       (list -3 (list "cheng-1-0-0" (cons 1000  myapp)))
    
28.     )
    
29.   )
    
30.   (if (/= -1 color) (setq e0 (append e0 (list (cons 62 color)))))
    
31. );endfun #x_line  [/FONT]
    

<br />   [FONT=courier new]<br /> ;;带扩展数据的直线生成<br /> (defun #x_line (pt1 pt2 lay color myapp / e0 )<br />   (if (= (numberp color) nil) <br />     (progn<br />       (if (= (strcase color) "BYLAYER") <br />         (setq color -1)<br />         (setq color (atoi color)<br />       )<br />     )<br />   )<br />   (if (= (tblobjname "LAYER" lay) nil)<br />     (progn<br />       (princ "\n错误：图层不存在 ")<br />       (exit)<br />     )<br />   )<br />   (regapp "Cheng-1-0-0")<br />   (setq e0 <br />     (list<br />       (cons 0 "LINE")<br />       (cons 8 lay)<br />       (cons 10 pt1)<br />       (cons 11 pt2)<br />       (list -3 (list "cheng-1-0-0" (cons 1000  myapp)))<br />     ) <br />   )<br />   (if (/= -1 color) (setq e0 (append e0 (list (cons 62 color)))))<br /> );endfun #x_line  [/FONT]<br />

on/off

扩展数据是否应该先注册？

libo2000

最初由 on/off 发布
[B]扩展数据是否应该先注册？ [/B]

是的，
(regapp "Cheng-1-0-0")－－注册，并且必须为唯一，
用(entget (car (entsel)) '("cheng-1-0-0"))读取