删除所有块内的HATCH,3DSOLID,WIPEOUT实体

marting

1. (defun c:Test (/ doc)
   
2.   (vlax-for bks (vla-get-blocks (setq
   
3.                       doc (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.                     )
   
5.                   )
   
6.     (if (and (eq :vlax-false (vla-get-islayout bks))
   
7.              (eq :vlax-false (vla-get-isXref bks))
   
8.         )
   
9.       (vlax-for obj bks
   
10.         (if (and (wcmatch (vla-get-objectname obj)
    
11.                           "AcDbSolid,AcDbHatch,AcDbWipeout"
    
12.                  )
    
13.                  (vlax-write-enabled-p obj)
    
14.             )
    
15.           (vla-delete obj)
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20.   (vla-regen doc AcAllViewports)
    
21.   (princ)
    
22. )(vl-load-com)
    

(defun c:Test (/ doc)<br />   (vlax-for bks (vla-get-blocks (setq<br />                       doc (vla-get-ActiveDocument (vlax-get-acad-object))<br />                     )<br />                   )<br />     (if (and (eq :vlax-false (vla-get-islayout bks))<br />              (eq :vlax-false (vla-get-isXref bks))<br />         )<br />       (vlax-for obj bks<br />         (if (and (wcmatch (vla-get-objectname obj)<br />                           "AcDbSolid,AcDbHatch,AcDbWipeout"<br />                  )<br />                  (vlax-write-enabled-p obj)<br />             )<br />           (vla-delete obj)<br />         )<br />       )<br />     )<br />   )<br />   (vla-regen doc AcAllViewports)<br />   (princ)<br /> )(vl-load-com)<br />

関吣

cad2008中没有反应
命令: (LOAD "C:/Users/Administrator/Desktop/sdf.lsp")
命令: test
正在重生成模型。

命令:
命令:
命令: 指定对角点:

marting

関吣 发表于 2017-5-26 23:43

你怎么测试的？ 我在2008下用，能把块里面的填充删除掉。

你做个 带填充的图块，插入到图中。 然后执行代码看看。

関吣

marting 发表于 2017-5-26 23:48

我把源码保存为LISP格式文件
在晓东环境上，CAD2008下插件没反应呢
在无晓东环境下，CAD2006下插件也没反应的。

marting

関吣 发表于 2017-5-26 23:53

这个是纯VLISP代码，有CAD就行， 你说的没反应是什么意思？ 你图中有INSERT实体吗？ INSERT里面有没有HATCH实体？

sicky111

谢谢分享。

Linhay

谢谢分享。

434939575

我的2007测试，非常好！

関吣

附图，请看~

newer

関吣 发表于 2017-5-27 09:27

1、这个程序做什么的，你应该知道，是删除 图块定义里面的 HATCH等实体。     所以，你执行TEST前， 图中有 带 HATCH 的INSERT 吗？ 有的话，你截取个前后的图。


2、所以，你贴的图不说明问题啊，我测试了代码，程序能删除，命令行执行完和你一样没提示。

你要截取个图中的INSERT实体，来说明你的情况，执行前图块是什么样的，执行后是什么样的。

関吣

附图吧

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test08.zip 
下载次数:2  文件大小:524.43 KB 
下载权限: 不限 以上  [免费赚D豆]

填充可以，但是wipeout实体删不掉呢

newer

関吣 发表于 2017-5-27 10:03

好几个朋友测试了，没问题，如果你还是有问题，仔细检查下你的操作是否符合程序要求。

evayleung

支持一下，这个功能很实用，谢谢

yufeng37

我仅仅测试了删除wipeout的效果，测试可以删除块中的wipeout。赞！
有一个小问题：可以删除外部参照中块的wipeout，但是不能删除外部参照中wipeout（换个说法是，如果外部参照中的wipeout不在块中，就无法删除。如果wipeout在外部参照中的块中，就可以删掉）

yangchao2005090

TEST 正在重生成模型。  出现这个问题