求图层工具。图层切换

weiqi

求类似贱人工具箱的手动切换图层一样。
例如设置 a1,为切换到"图层a1",如果图层存在则切换到该图层，如果不存在则建立。

如果选择对象（对象集），按A1，对象集的全部对象  自动切换到a1图层。

这样是建图层（不打印）
(defun c:wd()
(command "LAYER" "n" "图层名" "p" "n" "图层名" "")
)



问下 切换图层 如果是用 先选对象~再

(command "LAYMCH" "N" "图层名"）

貌似不可以~


CAD 的步骤是  选对象 输入 LAYMCH  再输入 N   再对话框 选图层，问下
command "LAYMCH" 的步骤得怎么写。

cable2004

(defun c:tt( / a e1 i ss)
(if (=(tblobjname "LAYER" (setq a (getstring "\n输入图层号"))) nil)
(entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous") (cons 2 a)))
)
(setq i 0 ss (ssget))
(repeat (sslength ss)
  (setq e1 (entget (ssname ss i)))
  (entmod (subst (cons 8 a) (assoc 8 e1) e1))
(setq i (+ 1 i))
)
(princ)
)

davide888

change     

cable2004

(defun c:ttt( / a e1 i ss)
(if (=(tblobjname "LAYER" (setq a (getstring "\n输入图层号"))) nil)
(entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous") '(290 . 0)(cons 2 a)))
)
(setq ss (ssget) i -1 )
(while (setq e1(ssname ss (setq i (+ i 1))))
(entmod (subst (cons 8 a) (assoc 8 (entget e1)) (entget  e1)))
)
(princ)
)

cable2004

加'(290 . 0)

(if (=(tblobjname "LAYER" (setq a (getstring "\n输入图层号"))) nil)
(entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous") '(290 . 0)(cons 2 a)))
)

100	子类标记 (AcDbLayerTableRecord)
2	图层名
70	标准标记（按位编码值）： 1 = 冻结图层，否则解冻图层 2 = 默认情况下在新视口中冻结图层 4 = 锁定图层 16 = 如果设置了此位，则表条目外部依赖于外部参照 32 = 如果同时设置了此位和位 16，则表明已成功融入了外部依赖的外部参照 64 = 如果设置了此位，则表明在上次编辑图形时，图形中至少有一个图元参照了表条目。（此标志适用于 AutoCAD 命令。大多数读取 DXF 文件的程序都可以忽略它，并且无需由写入 DXF 文件的程序对其进行设置）
62	颜色编号（如果为负值，则表明图层处于关闭状态）
6	线型名
290	打印标志。如果设置为 0，则不打印此图层
370	线宽枚举值
390	PlotStyleName 对象的硬指针 ID/句柄

在执行 SAVEAS 期间输出依赖于外部参照的图层。对于这些图层，DXF 文

趣意人生

好资料！做个记号！

atone

真不赖，牛逼啊

atone

非常好的工具，标记一下

atone

http://bbs.mjtd.com/forum.php?mo ... 2%E3%2B%C7%D0%BB%BB这个图层切换工具很不错