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

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。

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

命令:

账号		自动登录	找回密码
密码			注册

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

浏览过的版块