[LISP程序]：彻底删除属性块之属性

eachy

2. 
   
3. ;;删除块属性  eachy 2005.9.12 [[url]www.xdcad.net[/url]]
   
4. ;;某些树的图块往往含有属性，在位编辑时不方便就写了这个程序
   
5. ;;在Blockdef中ActiveX模型是找不到Seqend实体的，Block Insert后
   
6. ;;SEQEND的硬所有者是Insert，按Autodesk解释这个SEQEND不随DXF保存
   
7. ;;而且Seqend只能通过Entnext来得到，该Subentity 不能使用 entdel
   
8. ;;或者 vla-delete
   
9. (defun c:Delatt        (/ e el bn ss ent)
   
10.   (if (and (setq e (car (entsel "\nPick Block with Att: ")))
    
11.            (setq el (entget e))
    
12.            (= (cdr (assoc 0 el)) "INSERT")
    
13.            (assoc 66 el)
    
14.       )
    
15.     (progn
    
16.       (setq bn (cdr (assoc 2 el)))
    
17.       (vlax-for        x (vla-item
    
18.                     (vla-get-blocks
    
19.                       (vla-get-activedocument (vlax-get-acad-object))
    
20.                     )
    
21.                     bn
    
22.                   )
    
23.         (if (wcmatch (vla-get-objectname x) "*Att*")
    
24.           (vla-delete x)
    
25.         )
    
26.       ) ;_删除Blockdef中的Attdef
    
27.       (if (setq        ss (ssget "x"
    
28.                           (list        '(0 . "insert")
    
29.                                 (cons 2 bn)
    
30.                           )
    
31.                    )
    
32.           ) ;_已插入的属性块中的属性必须单独删除
    
33.         (progn
    
34.           (setq        ssl (sslength ss)
    
35.                 i   -1
    
36.           )
    
37.           (repeat ssl
    
38.             (setq ent (ssname ss (setq i (1+ i))))
    
39.             (entmake (vl-remove        (assoc 66 (entget ent))
    
40.                                 (entget ent)
    
41.                      )
    
42.             ) ;_重新插入才能删除属性和SEQEND
    
43.           )
    
44.           (command ".erase" ss "")
    
45.         )
    
46.       )
    
47.     )
    
48.     (princ "\n所选实体非属性图块!")
    
49.   )
    
50.   (princ)
    
51. )
    

<br /> ;;删除块属性  eachy 2005.9.12 [[url]www.xdcad.net[/url]]<br /> ;;某些树的图块往往含有属性，在位编辑时不方便就写了这个程序<br /> ;;在Blockdef中ActiveX模型是找不到Seqend实体的，Block Insert后<br /> ;;SEQEND的硬所有者是Insert，按Autodesk解释这个SEQEND不随DXF保存<br /> ;;而且Seqend只能通过Entnext来得到，该Subentity 不能使用 entdel<br /> ;;或者 vla-delete<br /> (defun c:Delatt        (/ e el bn ss ent)<br />   (if (and (setq e (car (entsel "\nPick Block with Att: ")))<br />            (setq el (entget e))<br />            (= (cdr (assoc 0 el)) "INSERT")<br />            (assoc 66 el)<br />       )<br />     (progn<br />       (setq bn (cdr (assoc 2 el)))<br />       (vlax-for        x (vla-item<br />                     (vla-get-blocks<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />                     bn<br />                   )<br />         (if (wcmatch (vla-get-objectname x) "*Att*")<br />           (vla-delete x)<br />         )<br />       ) ;_删除Blockdef中的Attdef<br />       (if (setq        ss (ssget "x"<br />                           (list        '(0 . "insert")<br />                                 (cons 2 bn)<br />                           )<br />                    )<br />           ) ;_已插入的属性块中的属性必须单独删除<br />         (progn<br />           (setq        ssl (sslength ss)<br />                 i   -1<br />           )<br />           (repeat ssl<br />             (setq ent (ssname ss (setq i (1+ i))))<br />             (entmake (vl-remove        (assoc 66 (entget ent))<br />                                 (entget ent)<br />                      )<br />             ) ;_重新插入才能删除属性和SEQEND<br />           )<br />           (command ".erase" ss "")<br />         )<br />       )<br />     )<br />     (princ "\n所选实体非属性图块!")<br />   )<br />   (princ)<br /> )<br />

好为人师

晓东工具里好象有这样功能

P123ZX

(x-CleanCSet)版主公开这个函数吧

lucas3

P123ZX 发表于 2015-7-15 16:34
(x-CleanCSet)版主公开这个函数吧

很简单的函数啊,论坛有啊

dadiwusheng

一直在找这个，谢谢啦

lingyv

这个功能用vba怎么写？