社区 › AutoLISP/Visual LISP 编程技术 › 朋友们请进，求助 图块归层

xman00 发表于 2012-10-13 12:32:48

朋友们请进，求助 图块归层

请教，LSP，效果：
输入命令后，所有图块改到"图块"层（如图纸中无"图块"层，则创建"图块"层)
PS:“图块"层名为固定值，无需输入确认

ZZXXQQ 发表于 2012-10-13 19:02:55

本帖最后由 ZZXXQQ 于 2012-10-14 19:28 编辑

(defun c:tt ()
(setvar "CMDECHO" 0)
(setvar oldla "CLAYER")
(command "-LAYER" "m" "图块" "")
(if (setq ss (ssget "X" '((0 . "INSERT"))))
(command "CHPROP" ss "" "LA" "图块" "")
)
(setvar "CLAYER" oldla)
(setvar "CMDECHO" 1)
(princ)
)

fcut2004 发表于 2012-10-13 20:15:37

本帖最后由 fcut2004 于 2012-10-13 20:16 编辑

楼上(command "m" "图块" "")
是否为(command '' -layer" "m" "图块" "")？
我也没测试代码，呵呵。

╰☆明月倾莪欣 发表于 2012-10-13 21:45:03

可以用用了

石井鱼 发表于 2013-6-13 16:34:12

请教如何修改一下，使图块当前所在层改为与图块内图层相同，谢谢

masterlong 发表于 2013-6-13 21:09:29

http://bbs.mjtd.com/thread-80718-3-1.html
24楼
图层归并的小工具
需要doslib支持

查看完整版本: 朋友们请进，求助 图块归层