cad图层名修改程序。

jjt · 发表于 2011-11-24 10:30

哈哈，我找到程序了，可根据自己爱好修改图层名。快捷键为1,2,3,4,5,6,7,8,0.名可对应修改
(defun JJT_chlayer (JJT_layer / JJT_S)
(if (null (tblsearch "LAYER" JJT_layer))
(entmake (list
      '(0 . "LAYER")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbLayerTableRecord")
      (cons 2 JJT_layer)       ;图层名称
      '(70 . 0)                ;图层状态
      '(62 . 7)                ;图层颜色
      '(6 . "bylayer")       ;图层线型
)
   )
)
(setq JJT_S (cadr (ssgetfirst)))
(if JJT_S
(command "CHPROP" JJT_S "" "la" JJT_layer "c" "bylayer" "")
(setvar "clayer" JJT_layer)
)
(princ)
)

(defun c:0 ()
(JJT_chlayer "0")
)
(defun c:1 ()
(JJT_chlayer "OBJ")
)
(defun c:2 ()
(JJT_chlayer "6t")
）
(defun c:3 ()
(JJT_chlayer "SCETR")
)
(defun c:4 ()
(JJT_chlayer "HIDD")
)
(defun c:5 ()
(JJT_chlayer "DIM")
)
(defun c:6 ()
(JJT_chlayer "DASH")
)
(defun c:7 ()
(JJT_chlayer "TEXT")
)
(defun c:8 ()
(JJT_chlayer "BORDER")
)

jjt · 发表于 2011-11-24 10:31

哈哈，同志们学习吧

ouyangshengwei · 发表于 2012-10-18 20:55

看看啊啊啊

ouyangshengwei · 发表于 2012-10-18 20:55

看看啊啊啊

1638825912 · 发表于 2012-10-20 22:16

看看啊要学习下啊

xxjinxxjin · 发表于 2012-10-28 23:05

学习下谢谢楼主分享

kcmsh · 发表于 2012-11-4 10:08

不知道是什么东西

我本善良中 · 发表于 2012-12-27 08:43

学习下谢谢楼主分享

嘎嘎gaga · 发表于 2014-5-6 16:30

能下载吗感觉很不错

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