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

jakywen_cn · 发表于 2011-5-14 17:40:11

我把你写的都存到KEY30W

自贡黄明儒 · 发表于 2011-5-14 17:45:53

回复 jakywen_cn 的帖子

5楼这句(setq s1 (cadr (ssgetfirst)))，得先选择对象才不会为nil

jakywen_cn · 发表于 2011-5-15 22:14:58

回复自贡黄明儒的帖子

额~~~帅哥你能帮我看下lisp 有没错吗？还有加载的时候发生错误，或者你帮我改下给我谢谢

自贡黄明儒 · 发表于 2011-5-16 12:57:58

回复 jakywen_cn 的帖子

没有看到你的程序,5楼写的不错
(defun C:0 (/ s1)
  (if (setq s1 (cadr (ssgetfirst))) nil (setq s1 (ssget))
  (if s1  (command "change" s1 "" "P" "la" "0" ""))
  (command "clayer" "0")
  (princ)
)

461045462 · 发表于 2011-5-19 20:02:39

自贡黄明儒发表于 2011-5-16 12:57
回复 jakywen_cn 的帖子

没有看到你的程序,5楼写的不错

5楼写的不错.
下面这句少了一个 )
(if (setq s1 (cadr (ssgetfirst))) nil (setq s1 (ssget))
===>
(if (setq s1 (cadr (ssgetfirst))) nil (setq s1 (ssget)))

lichunyu · 发表于 2011-5-21 17:21:08

好东西啊
真在学习

yangwunhong · 发表于 2011-5-21 19:16:26

本帖最后由 yangwunhong 于 2011-5-21 19:17 编辑

我觉得楼上的回答，针对性不强。我做了一个如下：
(defun C:0 (/ s1)
(setq s1 (ssget))
(command "change" s1 "" "P" "la" "墙线" "")
(princ)
)
将有颜色的文字换成你的图层名即可，其余图层，可以参照此程序。

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

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

好用，多谢分享

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