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 static/image/common/back.gif
回复 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))


好用，多谢分享
页: 1 [2]
查看完整版本: 求助：快速指定图元图层程序