求助：快速指定图元图层程序希望那个高手帮帮忙~~~~

jakywen_cn · 发表于 2011-5-16 10:59:37

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

cjjh8301 · 发表于 2011-5-16 11:03:30

本帖最后由 cjjh8301 于 2011-5-16 11:09 编辑

我有个小程序，一个前辈帮写的，但是在部分图中有问题，你试试，要更多对应图层，可以自己复制红色部分并修改命令和参数。
(defun Ccl (la c lt)
  (if (tblsearch "Layer" la) nil
(command "Layer" "make"
   la
   "C"
   c    ; color
   ""
   "L"
   lt    ; linetype
   ""
   ""
  ))
  (command "chprop" ss "" "La" la "C" "bylayer" "Lt" "bylayer" "")
)

(defun C:L1 ( )
(if (setq ss (cadr (ssgetfirst)))    ; 某层预选
   (Ccl "s1" "5" "continuous")    ; 对应变量  “图层”  “色号” “ 线型”
)
)
(defun C:L2 ( )
(if (setq ss (cadr (ssgetfirst))) ;
   (Ccl "s2" "50" "continuous")  ;
)
)
(defun C:L3 ( )
(if (setq ss (cadr (ssgetfirst))) ;
   (Ccl "s3" "4" "continuous") ;
)
)

jakywen_cn · 发表于 2011-5-16 12:16:43

为什么不能跟天正里面使用呢

jakywen_cn · 发表于 2011-5-16 12:34:19

回复 cjjh8301 的帖子

非常感谢能帮我解决这个问题，不过放在天正里面不能用，有没有什么办法解决这个问题

cjjh8301 · 发表于 2011-5-17 13:04:14

好像天正自带那个功能的吧，没用过天正。

liminnet · 发表于 2011-5-18 17:54:27

提示: 作者被禁止或删除内容自动屏蔽

jakywen_cn · 发表于 2011-5-20 17:00:33

回复 liminnet 的帖子

怎么解决希望高手指点下

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

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2011-5-18 17:54:27 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

求助：快速指定图元图层程序 希望那个高手帮帮忙~~~~

求助：快速指定图元图层程序希望那个高手帮帮忙~~~~