社区 › 源码共享 › 数字切换图层

甜兮兮 发表于 2022-8-20 08:16:46

不错谢谢分享

andyzha 发表于 2022-9-2 10:43:24

小毛草 发表于 2022-6-24 15:22


学习了，这样用起来比较方便。

atone 发表于 2024-2-15 08:54:24

明经有个tcset的图层切换工具，非常不错

yefei812678 发表于 2024-2-28 17:41:19

感谢大神分享感谢大神分享

gwar 发表于 2024-3-2 09:24:04

感谢大佬分享

atone 发表于 2024-4-7 11:52:42

atone 发表于 2024-2-15 08:54
明经有个tcset的图层切换工具，非常不错

http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=70009&pid=515004&fromuid=7331526

zm880928 发表于 2024-4-20 11:11:31

楼主，你这个怎么设置图层切换后，不随层啊

huxu823 发表于 2024-4-25 22:42:41

panliang9 发表于 2022-2-18 08:48
不错，这个可以扩展一下。
1、在选中对象的前提下下，输入命令则将对象切换到该数字图层。
2、没有选中对 ...

;;加载线型
(defun JZXX ()
(or (TBLSEARCH "LTYPE" "CENTER,DASHED,FENCELINE1,FENCELINE2,PHANTOM")    ;搜索是否存在线型
    (vl-catch-all-apply
      'vla-load
      (list (vla-get-Linetypes
            (vla-get-ActiveDocument (vlax-get-acad-object))
          )
          "CENTER,DASHED,FENCELINE1,FENCELINE2,PHANTOM"
          (findfile "acadiso.lin")
      )                                                                  ;不存在则加载线型
    )
)
)

(defun li-xjtc (cm ys xx xk dy / ss lts )
    (JZXX) ;加载线型
    (Princ "\<<<<图层切换程序>>>>")
    (setvar "cmdecho" 0)
    (if        (= (tblsearch "layer" cm) nil)
      (entmake
      (list
                      '(0 . "LAYER")
                      '(100 . "AcDbSymbolTableRecord")
                      '(100 . "AcDbLayerTableRecord")
                      '(70 . 0)      ;图层状态
                      (cons 2 cm)      ;图层名称
                      (cons 62 ys)   ;图层颜色
                      (cons 6 xx)      ;图层线型
                      (cons 370 xk)    ;图层线宽：100=1, 15=0.15, 18=0.18, -3=默认
                      (cons 290 dy)    ;0-不打印，1-打印
      )
      )
    )
    (setq ss (ssget))
    (if (= ss nil)
      (setvar "clayer" cm)                                                 ;没有对象就切换至指定图层
      (command "chprop" ss "" "la" cm "c" "bylayer" "lt" "bylayer" "")   ;有对象就将对象改至指定图层
    )
    (princ)
)

;;;主程序
(defun c:00 (/) (li-xjtc "0" 7 "continuous" -3 1))            ;切换至 "0" 图层
(defun c:01 (/) (li-xjtc "01-DIM" 3 "continuous" 18 1))         ;切换至 "01-DIM" 图层
(defun c:02 (/) (li-xjtc "02-TXT" 7 "continuous" -3 1))         ;切换至 "02-TXT" 图层
(defun c:03 (/) (li-xjtc "03-Center" 1 "CENTER" 15 1))          ;切换至 "03-Center" 图层
(defun c:04 (/) (li-xjtc "04-Hidden" 8 "DASHED" -3 1))          ;切换至 "04-Hidden" 图层
(defun c:05 (/) (li-xjtc "05-Hatch" 2 "continuous" -3 1))       ;切换至 "05-Hatch" 图层

z312144636 发表于 2024-4-30 16:17:18

很好用感谢!!!!

查看完整版本: 数字切换图层