hhh454 发表于 2011-2-21 09:51:55

简单的根据命令自动调出图层

简单的根据命令自动调出图层
(defun c:rec ()
(princ "\n画框切透----钮广春整理--QQ-626860125")
(setvar "cmdecho" 0)
(setq oldos (getvar "OSMODE"))
(command "layer" "s" "5" "")
(command "rectang")
(setvar "cmdecho" 1)
(setvar "OSMODE" oldos)
(PRINC))

hhh454 发表于 2011-2-21 09:52:58

增加图层
(princ "\n增加1-6号图层----钮广春整理--QQ-626860125")
(setvar "cmdecho" 0)                  ; 关闭命令提示
(Setq osmode_bak (getvar "osmode"))   ;_记录捕捉
(Setvar "osmode" 0)                   ;_关闭捕捉
(command "layer" "new" "1" "c" "4" "1" "")
(command "layer" "new" "2" "c" "2" "2" "")
(command "layer" "new" "3" "c" "6" "3" "")
(command "layer" "new" "4" "c" "8" "4" "")
(command "layer" "new" "5" "c" "1" "5" "")
(command "layer" "new" "6" "c" "5" "6" "")
(setvar "cmdecho" 1)                  ; 打开命令提示
(Setvar "osmode" osmode_bak)          ;_还原捕捉
(PRINC)

mandala 发表于 2011-2-21 14:33:50

这个操作要关闭捕捉干嘛？

jialiang168 发表于 2011-2-21 16:09:06

laytrans 图层转换器的命令，(command "laytrans")要如何调用，不知楼主知不知道。

hhh454 发表于 2011-2-24 14:42:56

回复 mandala 的帖子

习惯，我学着写的，代码里面都带这个

yxl88168 发表于 2011-4-30 11:50:49

有什么作用，说说呀
页: [1]
查看完整版本: 简单的根据命令自动调出图层