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 的帖子

怎么解决 希望高手指点下
页: [1]
查看完整版本: 求助：快速指定图元图层程序 希望那个高手帮帮忙~~~~