这个图层转换的程序如何修改支持块内图层？

江南十笑

• (defun c:tt ()
•   (setq lst '(("jmd,dldw" "居民地及设施")
•               ("DGX,GCD,DMTZ" "地貌")
•               ("DLSS" "交通")
•               ("GXYZ" "管线")
•               ("KZD" "测量控制点")
•               ("SXSS" "水系及附属设施")
•               ("TK" "图廓整饰")
•               ("ZBTZ" "植被与土质")
•               ("ZJ" "注记")
•              )
•   )
•   (foreach a lst
•     (if (setq ss (ssget "x" (list (cons 8 (car a)))))
•       (command "change" ss "" "p" "la" (cadr a) "c" "bylayer" "")
•     )
•   )
•   (princ)
• )
  

这个图层转换的程序如何修改支持块内图层？

菜卷鱼

没有做测试，但是写了注释，假如程序有问题你自己学着改

2. (defun c:tt ()
   
3.   (setq lst '(("jmd,dldw" "居民地及设施")
   
4.               ("DGX,GCD,DMTZ" "地貌")
   
5.               ("DLSS" "交通")
   
6.               ("GXYZ" "管线")
   
7.               ("KZD" "测量控制点")
   
8.               ("SXSS" "水系及附属设施")
   
9.               ("TK" "图廓整饰")
   
10.               ("ZBTZ" "植被与土质")
    
11.               ("ZJ" "注记")
    
12.              )
    
13.   )
    
14.   (foreach a lst
    
15.     (if (setq ss (ssget "x" (list (cons 8 (car a)))))
    
16.      (progn
    
17.       (command "change" ss "" "p" "la" (cadr a) "c" "bylayer" "")
    
18.       (setq ns (ssget "p" '((0 . "insert")))) ;;;从上一次选择的选择集里选出块
    
19.       (setq i -1)
    
20.       (repeat (sslength ns)  ;;;每个块处理一遍
    
21.         (setq blk (ssname ns (setq i (1+ i))))
    
22.         (setq lst2 (blklst blk))  ;;;;块转成列表
    
23.         (foreach obj lst2  ;;;;每个块内的成员处理一遍
    
24.          (setq info (entget obj))
    
25.          (setq newlayer (cons 67 (cadr a))) ;;;新的图层
    
26.          (setq newcolor (cons 62 0))  ;;;;新的颜色
    
27.          (entmod (subst newlayer (assoc 67 info) info))  ;;;新图层替换旧图层
    
28.          ;;(entmod (subst newcolor (assoc 62 info) info))  ;;;Bylayer颜色的时候 62索引项是没有的,假如要换别的颜色就用得上
    
29.          (entmod (vl-remove (assoc 62 info) info)) ;;;颜色改成bylayer
    
30.         )
    
31.      )
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

(defun c:tt ()<br />   (setq lst '(("jmd,dldw" "居民地及设施")<br />               ("DGX,GCD,DMTZ" "地貌")<br />               ("DLSS" "交通")<br />               ("GXYZ" "管线")<br />               ("KZD" "测量控制点")<br />               ("SXSS" "水系及附属设施")<br />               ("TK" "图廓整饰")<br />               ("ZBTZ" "植被与土质")<br />               ("ZJ" "注记")<br />              )<br />   )<br />   (foreach a lst<br />     (if (setq ss (ssget "x" (list (cons 8 (car a)))))<br />      (progn<br />       (command "change" ss "" "p" "la" (cadr a) "c" "bylayer" "")<br />       (setq ns (ssget "p" '((0 . "insert")))) ;;;从上一次选择的选择集里选出块<br />       (setq i -1)<br />       (repeat (sslength ns)  ;;;每个块处理一遍<br />         (setq blk (ssname ns (setq i (1+ i))))<br />         (setq lst2 (blklst blk))  ;;;;块转成列表<br />         (foreach obj lst2  ;;;;每个块内的成员处理一遍<br />          (setq info (entget obj))<br />          (setq newlayer (cons 67 (cadr a))) ;;;新的图层<br />          (setq newcolor (cons 62 0))  ;;;;新的颜色<br />          (entmod (subst newlayer (assoc 67 info) info))  ;;;新图层替换旧图层<br />          ;;(entmod (subst newcolor (assoc 62 info) info))  ;;;Bylayer颜色的时候 62索引项是没有的,假如要换别的颜色就用得上<br />          (entmod (vl-remove (assoc 62 info) info)) ;;;颜色改成bylayer<br />         )<br />      )<br />     )<br />   )<br />   (princ)<br /> )

菜卷鱼

(defun blkelst (Name / E LST)
  (setq e (TBLOBJNAME "block" Name))
  (while (setq e (entnext e))
    (setq Lst (cons e Lst))
  )
  Lst
)

江南十笑

菜卷鱼 发表于 2023-5-10 14:15
(defun blkelst (Name / E LST)
  (setq e (TBLOBJNAME "block" Name))
  (while (setq e (entnext e))

这个函数怎么插入上面的程序中呢

江南十笑

菜卷鱼 发表于 2023-5-10 10:45
没有做测试，但是写了注释，假如程序有问题你自己学着改

谢谢 虽然测试块内还是没改 我再研究研究

菜卷鱼

江南十笑 发表于 2023-5-16 21:59
谢谢 虽然测试块内还是没改 我再研究研究

你之前要是上传了图纸附件就测试了

菜卷鱼

江南十笑 发表于 2023-5-16 21:59
谢谢 虽然测试块内还是没改 我再研究研究

你再试试，之前两个lst变量重复了，改了第二个

江南十笑

谢谢大佬 经测试 块内还是不行 块外可以 已上传测试文件