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

ysq101

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

(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 /> )

这个程序真心好用..不敢独享...
分享给需要的同学,,,,好学的同学
感谢不死猫

重慶崽兒

哦哦，是猫老师视频里的那个程序吧，但感觉还是不完全，很多图元还是需要自己去测试！

ysq101

重慶崽兒 发表于 2014-4-13 00:40
哦哦，是猫老师视频里的那个程序吧，但感觉还是不完全，很多图元还是需要自己去测试！

正是那个程序    这

菜卷鱼

对于属性块的，这程序没什么用

xiaomm250

这个还不如自己穷举一个一个弄呢

张大锤

猫老师的教程我有看过 可能我刚看一点

张大锤

为什么我用点击一根线 或块没有反映

我尝试的解读了一下
   (setq del_ent (vl-remove (nth i ent) ent));测试删除   
    (setq new_ent (entmake del_ent));测试生成
其实到这里 就可以得到 要创建的所有了 对吗？

ysq101

张大锤 发表于 2018-6-26 11:07
为什么我用点击一根线 或块没有反映

我尝试的解读了一下

我现在也不会玩LISP了...
自己需要的常用LISP写完了...也就丢光了

对不起大佬的载歌载培

张大锤

ysq101 发表于 2018-6-28 00:05
我现在也不会玩LISP了...
自己需要的常用LISP写完了...也就丢光了

没事已经解决了

(if new_ent;如果生成新图元则删除否则认为该元素为关键元素

这里  ; 有些问题 我前面已经加了空格 但是这句话 被当做;处理了 导致少句if 正套垮掉
后来我删掉就好了