jakywen_cn 发表于 2011-5-14 13:52:04

求助：快速指定图元图层程序

能否编制这样的程序（lisp）:简单的快捷键，将选定的图元转到指定图层，图元颜色等属性随层，例：
选定一直线或一匹直线，快捷键“d”，回车，则图元转到“d”层。
当然，快捷键最好是数字键，数字对应相应图层，“1”墙线，“2”中心线，“3”管道等等。

sunny_8848 发表于 2021-8-5 15:46:07

yangwunhong 发表于 2011-5-21 19:16
我觉得楼上的回答，针对性不强。我做了一个如下：
(defun C:0 (/ s1)
(setq s1 (ssget))


好用，多谢分享

jakywen_cn 发表于 2011-5-14 14:28:16

请高手帮忙    谢谢

duotu007 发表于 2011-5-14 14:48:10

(defun c:0()
(setvar "clayer" "0")
(princ)
)

duotu007 发表于 2011-5-14 14:49:42

(defun c:0()
(if (tblsearch "layer" "0")
    (setvar "clayer" "0")
    (alert "\n此图没有XX层")
)
(princ)
)

duotu007 发表于 2011-5-14 14:59:39

本帖最后由 duotu007 于 2011-5-14 15:00 编辑

(defun C:0 (/ s1)
(setq s1 (cadr (ssgetfirst)))
(if s1(command "change" s1 "" "P" "la" "0" ""))
(command "clayer" "0")
(princ)
)

jakywen_cn 发表于 2011-5-14 17:08:58

额~~~怎么不能用

jakywen_cn 发表于 2011-5-14 17:09:40

显示语法错误

jakywen_cn 发表于 2011-5-14 17:19:46

回复 duotu007 的帖子

怎么显示语法错误？不了解

Andyhon 发表于 2011-5-14 17:26:31

且先别管那示例
把您在命命令列中执行时的回应值
都贴上来瞧瞧

jakywen_cn 发表于 2011-5-14 17:39:08

命令:
命令:
命令: _appload 已成功加载 复件 复件 key30w.LSP。


命令:
命令: ; 错误: 语法错误

命令:
页: [1] 2
查看完整版本: 求助：快速指定图元图层程序