找到最少entmake关键元素 ;作者:不死猫

ysq101

2. ;找到最少entmake关键元素   ;作者:不死猫
   
3. (defun c:tt( / del_ent ele ent i must new_ent)
   
4.   (setq ent (entget (car (entsel "\n请选择一个图元"))));得到组码
   
5.   (setq i 0 must '());初始化
   
6.   (repeat (length ent)
   
7.     (setq del_ent (vl-remove (nth i ent) ent));测试删除   
   
8.     (setq new_ent (entmake del_ent));测试生成
   
9.     (if (= 10 (car (nth i ent)))
   
10.       (progn
    
11.         (setq must (append must (list (nth i ent))))
    
12.         (if new_ent
    
13.           (entdel (entlast))
    
14.         )
    
15.       )
    
16.       (if new_ent;如果生成新图元则删除否则认为该元素为关键元素
    
17.         (entdel (entlast))
    
18.         (setq must (append must (list (nth i ent))))
    
19.       )
    
20.     )   
    
21.     (setq i (1+ i))
    
22.   );end repeat
    
23.   
    
24.   (cond
    
25.     ((= "LWPOLYLINE" (cdr (assoc 0 ent)))
    
26.       (setq must (append must (list (assoc 90 ent))))
    
27.     )
    
28.     ((= "SPLINE" (cdr (assoc 0 ent)))
    
29.       (setq must (append must (list (assoc 74 ent))))
    
30.       (foreach ele ent
    
31.         (if (= 11 (car ele))
    
32.           (setq must (append must (list ele)))
    
33.         )
    
34.       )
    
35.     )
    
36.     ((= "DIMENSION" (cdr (assoc 0 ent)))
    
37.       (foreach ele ent
    
38.         (if (or (= 11 (car ele))
    
39.             (= 21 (car ele))
    
40.             (= 31 (car ele))
    
41.             (= 70 (car ele))
    
42.             (= 71 (car ele))
    
43.             (= 1 (car ele))
    
44.             (= 3 (car ele))
    
45.           )
    
46.           (setq must (append must (list ele)))
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (print must)
    
52.   (princ)
    
53. )

;找到最少entmake关键元素   ;作者:不死猫<br /> (defun c:tt( / del_ent ele ent i must new_ent)<br />   (setq ent (entget (car (entsel "\n请选择一个图元"))));得到组码<br />   (setq i 0 must '());初始化<br />   (repeat (length ent)<br />     (setq del_ent (vl-remove (nth i ent) ent));测试删除    <br />     (setq new_ent (entmake del_ent));测试生成<br />     (if (= 10 (car (nth i ent)))<br />       (progn<br />         (setq must (append must (list (nth i ent))))<br />         (if new_ent <br />           (entdel (entlast))<br />         )<br />       )<br />       (if new_ent;如果生成新图元则删除否则认为该元素为关键元素<br />         (entdel (entlast))<br />         (setq must (append must (list (nth i ent))))<br />       )<br />     )    <br />     (setq i (1+ i))<br />   );end repeat<br />   <br />   (cond<br />     ((= "LWPOLYLINE" (cdr (assoc 0 ent)))<br />       (setq must (append must (list (assoc 90 ent))))<br />     )<br />     ((= "SPLINE" (cdr (assoc 0 ent)))<br />       (setq must (append must (list (assoc 74 ent))))<br />       (foreach ele ent<br />         (if (= 11 (car ele))<br />           (setq must (append must (list ele)))<br />         )<br />       )<br />     )<br />     ((= "DIMENSION" (cdr (assoc 0 ent)))<br />       (foreach ele ent<br />         (if (or (= 11 (car ele))<br />             (= 21 (car ele))<br />             (= 31 (car ele))<br />             (= 70 (car ele))<br />             (= 71 (car ele))<br />             (= 1 (car ele))<br />             (= 3 (car ele))<br />           )<br />           (setq must (append must (list ele)))<br />         )<br />       )<br />     )<br />   )<br />   (print must)<br />   (princ)<br /> )

来晓东也有一段时间了...
在这也学了不少东西..也得到了很多大师们的帮助
现在分享一点小代码给大家参考一下

st788796

可以查看 ActiveX 帮助，那些参数应该也是 Entmake 所必需参数，DXF 不能少的还有
(0 . "Line");_实体类型
(100 . "AcDbEntity");_AcDbEnity Class
(100 . "AcDbLine");_ ObjectName