[求助]关于清理PURGE的问题

173375424

在一个dwg建立所有自己的图层，不必有实体。

当作块或参照插入当前dwg。

先谢了....但是你这种方法在第1次插入块或参照,在清理,在第2次插入块或参照(** 错误: “Drawing2”已经是当前图形的标准块。*无效*)

无痕

建议先看看cad帮助中 insert 的用法，注意 = 号

龙龙仔

173375424发表于2008-1-12 15:52:00版主,我的CAD2004加载了你的程序就立即把CAD退出了.......这个程序可不可以用LSP啊?如果可以的话就麻烦你帮我编一个,先谢了

Sorry!程序更新了!支持<=R2008

173375424

没事.....

先谢大家,帮我解答问题

问题可以用无痕版主的方法啊!在设计中心里可以添加自己的图层下去,不过个人认为就是麻烦点,但是都很实用.

my_autocad

我不会编程，所以提个不用编程来解决有用图层不被清理掉的方法

1、利用0图层不被清理的特性，有用图层取名为0+图层名，如0-道路；

2、整理个图层模板，即，把你的常用图层上，相对应地画一个图元，用图元的方式来固定图层

然后每个新图，你都把模板中的东西复制进去，图层名就不会被删除了

还有要说明得，就是PU命令非常不好用，文件减肥的功能不是很好，期待更好的减肥程序出现

xyp1964

;; qltc(清理图层)
(defun c:qltc (/ a)
  (CMDLA0)
  (c:puu)
  (foreach a '(("AXIS" 1)
               ("AXIS_TEXT" 7)
               ("定义点" 7)
               ("DIM_IN" 4)
               ("DOTE" 8)
               ("Defpoints" 7)
               ("GROUND" 2)
               ("UB_DIM" 3)
               ("UB_HATCH" 8)
               ("UB_TEXT" 7)
               ("UB_TITLE" 9)
               ("TITLE_TEXT" 7)
               ("WINDOW" 3)
               ("窗套" 254)
               ("立面配景" 1)
               ("立面线" 7)
               ("立面装饰线" 7)
               ("幕墙玻璃划分线" 8)
               ("幕墙构件" 1)
               ("图例指标" 200)
               ("外轮廓线" 2)
               ("阳台栏杆" 254)
               ("阳台栏杆细节" 8)
               ("中轮廓线" 4)
              )
    (xyp-MkLaCo (car a) (cadr a))
  )
  (CMDLA1)
)

etom999

挺好的

173375424

34楼的大哥你的也是一个好方法.但是我想问问,你说PU不好用,那你想要他有啥功能才能满足你?说来听听,等我们见识一下.....

我到现在用的方法,就是用LSP编自己的图层,用PU以后,有些图层删除了,再用LSP把它重新建立图层.

artken

感谢龙龙仔的程序，真是好人一个啊。。。

贪心一下：如果也能锁"DIMSTYLE" "STYLE"最更棒了

lotsnow

拷贝别的图纸之前，先把自己的图层锁起来，拷贝后purge,然后解锁