清理文件
尊敬的各位成员：。。我有一个清理DWG的程序。。。
这意味着删除图案填充、文本和属性。。等
它正在工作，但问题出在区块内部，它什么也没做。。
有人能帮我解决这个问题吗
谢谢
我的代码是（它不是由我创建的，我是从Cad导师那里获得的）
（定义c:cla（/cntr eset en cnt）
（setvar“cmdecho”0）
（setq eset
（ssget“X”
（列表
（cons-4“（cons 0”属性）
（cons 0“MLINE”）
（cons 0“多行文字”）
（cons 0“点”）
（cons 0“实心”）
（cons 0“文本”）
（cons 0“领导者”）
（cons 0“图案填充”）
（cons 0“尺寸”）
（cons-4“或>”）
)
)
)
（if（和eset（>（sslength eset）0））
（程序
（setq cnt（sslength eset））
（命令“ERASE”eset“”）
（警报（strcat“已擦除”（itoa cnt）“实体”）
)
)
（setvar“cmdecho”1）
（普林斯）
)
页:
[1]