autodesk公司的缺陷，至今没有解决

Andyhon

AutoCAD后来在AutoLisp中加入的Reactor或可用来打造您的需求

huguhu2000

对第7楼增加补充：

一、颜色不变的解决：

1、在第三步时中增加颜色判定，如为指定颜色，则只更改图层，颜色当然不会变；

                             如为bylayer,则读取对象所在层的颜色，并在颜色群码将bylayer更改成该颜色

二、图层改变的解决：

1、在第二步取对象时，先设置参数,保存对象名，原层及原颜色：

        对象名1---currentlayer1---currentcolor1

2、编写一“解除对象锁定” 的lisp:

    1）解冻该层，并冻结其他层；

    2）选择该集，自动将原先储存的原层及原颜色参数，依对象名重新赋回给对象。

    3）解冻所有层。

   这样应该就能实现了吧

         

ZZXXQQ

3. (defun c:lo()
4. (setq ol (getvar "clayer"))
5. (setq tc (getvar "cmdecho"))
6. (setvar "cmdecho" 0)
7. (if (setq ss (ssget))
8.   (progn
9.    (setq lm "李敏定义锁定的图层")
10.    (command ".undo" "BE")
11.    (if (= (setq a (tblsearch "layer" lm)) nil)
12.     (command "-layer" "m" lm "c" "7" "" "")
13.     (setvar "clayer" lm)
14.    )
15.    (command "-block" "李敏" "0,0" ss "" "-insert" "李敏" "0,0" "1" "1" "0")
16.    (setq lst (entlast))
17.    (command "-layer" "lo" lm "")
18.    (command ".undo" "E")
19.    (princ)
20.   )
21. )
22. (setvar "cmdecho" tc)
23. (setvar "clayer" ol)
24. (princ)
25. )
26. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27. (defun c:ulo()
28. (setvar "cmdecho" 0)
29. (command ".undo" "BE")
30. (setq cm (getvar "cmdecho"))
31. (command "_.layer" "thaw" "*" "on" "*" "u" "*" "")
32. (if (tblsearch "block" "李敏")
33.   (progn
34.    (setq ss (ssget "X" '((0 . "INSERT") (2 . "李敏"))))
35.    (setvar "QAFLAGS" 1)
36.    (command ".explode" ss "")
37.    (setvar "QAFLAGS" 0)
38.    (command "-purge" "b" "李敏" "y" "y")
39.    (command ".undo" "E")
40.   )
41. )
42. (setvar "cmdecho" cm)
43. (princ)
44. )

(defun c:lo() (setq ol (getvar "clayer")) (setq tc (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq ss (ssget))   (progn    (setq lm "李敏定义锁定的图层")    (command ".undo" "BE")    (if (= (setq a (tblsearch "layer" lm)) nil)     (command "-layer" "m" lm "c" "7" "" "")     (setvar "clayer" lm)    )    (command "-block" "李敏" "0,0" ss "" "-insert" "李敏" "0,0" "1" "1" "0")    (setq lst (entlast))    (command "-layer" "lo" lm "")    (command ".undo" "E")    (princ)   ) ) (setvar "cmdecho" tc) (setvar "clayer" ol) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:ulo() (setvar "cmdecho" 0) (command ".undo" "BE") (setq cm (getvar "cmdecho")) (command "_.layer" "thaw" "*" "on" "*" "u" "*" "") (if (tblsearch "block" "李敏")   (progn    (setq ss (ssget "X" '((0 . "INSERT") (2 . "李敏"))))    (setvar "QAFLAGS" 1)    (command ".explode" ss "")    (setvar "QAFLAGS" 0)    (command "-purge" "b" "李敏" "y" "y")    (command ".undo" "E")   ) ) (setvar "cmdecho" cm) (princ) )

lionyoyo

加个反应器

发生编辑时触发一个还原函数就OK了

不用图层什么的

xotoo

我用的Z版修改的那个提示错误，反倒是原程序没有问题……我2009的平台

caoyin

版主，这句错了

(setvar lm "李敏定义锁定的图层")