求图层工具。图层切换
求类似贱人工具箱的手动切换图层一样。例如设置 a1,为切换到"图层a1",如果图层存在则切换到该图层，如果不存在则建立。
如果选择对象（对象集），按A1，对象集的全部对象自动切换到a1图层。
这样是建图层（不打印）
(defun c:wd()
(command "LAYER" "n" "图层名" "p" "n" "图层名" "")
)
问下 切换图层 如果是用 先选对象~再
(command "LAYMCH" "N" "图层名"）
貌似不可以~
CAD 的步骤是选对象 输入 LAYMCH再输入 N 再对话框 选图层，问下
command "LAYMCH" 的步骤得怎么写。
(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)
)
change 本帖最后由 cable2004 于 2013-1-18 21:27 编辑
(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)) (entgete1)))
)
(princ)
) 本帖最后由 cable2004 于 2013-1-18 21:24 编辑
加'(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 文 好资料！做个记号！ 真不赖，牛逼啊 非常好的工具，标记一下 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70009&highlight=%CD%BC%B2%E3%2B%C7%D0%BB%BB这个图层切换工具很不错
页:
[1]