[编程申请]：图中图层名批量改名

gelin · 发表于 2004-9-15 03:38:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

能否帮忙写个单独的lisp程序，将图中图层名批量改名
如;
轴线 DOTE
阳台 BALCONY
图框 TITLE
柱子 COLUMN
门窗 WINDOW
轴标 AXIS
地面 GROUND
墙线 WALL
面层 SURFACE
屋顶 ROOF
楼梯 STAIR
洁具 LVTRY
栏杆 RAIL
扶手 HANDRAIL
房间 SPACE
相机 CAMERA
轴文 AXIS_TEXT
公标 PUB_DIM
公文 PUB_TEXT
公窗 PUB_WINDW
公填 PUB_HATCH
公框 PUB_TITLE
窗名 WINDOW_TEXT
剖线 S_WALL
剖窗 S_WINDOW
剖块 S_BLOCK
层线 E_FLOOR
立线 E_LINE
立窗 E_WINDOW
立块 E_BLOCK
基线 BASE
主要用于天正的图纸的整理，

eachy · 发表于 2004-9-15 03:43:57

最初由 gelin 发布
[B]能否帮忙写个单独的lisp程序，将图中图层名批量改名
如;
轴线 DOTE
阳台 BALCONY
图框 TITLE
柱子 COLUMN
门窗 WINDOW
轴标 AXIS
地面 GROUND
墙线 WALL       ... [/B]

说说怎么个对应法

gelin · 发表于 2004-9-15 04:06:42

dote改为轴线
BALCONY 改为阳台
类推

老兄勤奋啊

eachy · 发表于 2004-9-15 04:41:11

最初由 gelin 发布
[B]dote改为轴线
BALCONY 改为阳台
类推

老兄勤奋啊 [/B]

;;需要增加图层时只要往lyrlst表内添加即可
(defun c:rlyn (/ lyrlst d ln l1 ll)
(setq lyrlst
'(("DOTE" "轴线")
("BALCONY" "阳台")
("TITLE" "图框")
("COLUMN" "柱子")
("WINDOW" "门窗")
("AXIS" "轴标")
("GROUND" "地面")
("WALL" "墙线")
("SURFACE" "面层")
("ROOF" "屋顶")
("STAIR" "楼梯")
("LVTRY" "洁具")
("RAIL" "栏杆")
("HANDRAIL" "扶手")
("SPACE" "房间")
("CAMERA" "相机")
("AXIS_TEXT" "轴文")
("PUB_DIM" "公标")
("PUB_TEXT" "公文")
("PUB_WINDW" "公窗")
("PUB_HATCH" "公填")
("PUB_TITLE" "公框")
("WINDOW_TEXT" "窗名")
("S_WALL" "剖线")
("S_WINDOW" "剖窗")
("S_BLOCK" "剖块")
("E_FLOOR" "层线")
("E_LINE" "立线")
("E_WINDOW" "立窗")
("E_BLOCK" "立块")
("BASE" "基线")
)
)
(while (setq d (tblnext "layer" (null d)))
(setq ln (strcase (cdr (setq l1 (assoc 2 d)))))
(if (setq ll (assoc ln lyrlst))
(progn
(setq l (entget (tblobjname "layer" ln)))
(entmod (subst (cons 2 (cadr ll))
l1
l
)
)
)
)
)
(princ)
)

;;需要增加图层时只要往lyrlst表内添加即可 
(defun c:rlyn (/ lyrlst d ln l1 ll) 
  (setq        lyrlst 
         '(("DOTE" "轴线") 
           ("BALCONY" "阳台") 
           ("TITLE" "图框") 
           ("COLUMN" "柱子") 
           ("WINDOW" "门窗") 
           ("AXIS" "轴标") 
           ("GROUND" "地面") 
           ("WALL" "墙线") 
           ("SURFACE" "面层") 
           ("ROOF" "屋顶") 
           ("STAIR" "楼梯") 
           ("LVTRY" "洁具") 
           ("RAIL" "栏杆") 
           ("HANDRAIL" "扶手") 
           ("SPACE" "房间") 
           ("CAMERA" "相机") 
           ("AXIS_TEXT" "轴文") 
           ("PUB_DIM" "公标") 
           ("PUB_TEXT" "公文") 
           ("PUB_WINDW" "公窗") 
           ("PUB_HATCH" "公填") 
           ("PUB_TITLE" "公框") 
           ("WINDOW_TEXT" "窗名") 
           ("S_WALL" "剖线") 
           ("S_WINDOW" "剖窗") 
           ("S_BLOCK" "剖块") 
           ("E_FLOOR" "层线") 
           ("E_LINE" "立线") 
           ("E_WINDOW" "立窗") 
           ("E_BLOCK" "立块") 
           ("BASE" "基线") 
          ) 
  ) 
  (while (setq d (tblnext "layer" (null d))) 
    (setq ln (strcase (cdr (setq l1 (assoc 2 d))))) 
    (if        (setq ll (assoc ln lyrlst)) 
      (progn 
        (setq l (entget (tblobjname "layer" ln))) 
        (entmod        (subst (cons 2 (cadr ll)) 
                       l1 
                       l 
                ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

gelin · 发表于 2004-9-15 05:08:22

谢谢老兄，这样简单多了

lsjjm · 发表于 2004-9-15 05:08:27

最初由 eachy 发布
[B][CODE]
;;需要增加图层时只要往lyrlst表内添加即可
(defun c:rlyn (/ lyrlst d ln l1 ll) (setq lyrlst... [/B]

将(while...一段改为:
(foreach i lyrlst (vl-cmdf "rename" "la" (car i)(cadr i)))
更简单!

gelin · 发表于 2004-9-15 21:22:13

最初由 lsjjm 发布
[B]

将(while...一段改为:
(foreach i lyrlst (vl-... [/B]

不是很懂，试了下，总出错，具体怎么改？谢谢

eachy · 发表于 2004-9-15 23:35:10

最初由 gelin 发布
[B]

不是很懂，试了下，总出错，具体怎么改？谢谢 [/B]

这样更简单了，rename一样要先判断图中是否有图层。

(defun c:rlyn ()
(mapcar '(lambda (x)
(if (tblsearch "layer" (car x))
(command ".rename" "la" (car x) (cadr x))
)
)
'(("DOTE" "轴线")
("BALCONY" "阳台")
("TITLE" "图框")
("COLUMN" "柱子")
("WINDOW" "门窗")
("AXIS" "轴标")
("GROUND" "地面")
("WALL" "墙线")
("SURFACE" "面层")
("ROOF" "屋顶")
("STAIR" "楼梯")
("LVTRY" "洁具")
("RAIL" "栏杆")
("HANDRAIL" "扶手")
("SPACE" "房间")
("CAMERA" "相机")
("AXIS_TEXT" "轴文")
("PUB_DIM" "公标")
("PUB_TEXT" "公文")
("PUB_WINDW" "公窗")
("PUB_HATCH" "公填")
("PUB_TITLE" "公框")
("WINDOW_TEXT" "窗名")
("S_WALL" "剖线")
("S_WINDOW" "剖窗")
("S_BLOCK" "剖块")
("E_FLOOR" "层线")
("E_LINE" "立线")
("E_WINDOW" "立窗")
("E_BLOCK" "立块")
("BASE" "基线")
)
)
(princ)
)

(defun c:rlyn () 
  (mapcar '(lambda (x) 
             (if (tblsearch "layer" (car x)) 
               (command ".rename" "la" (car x) (cadr x)) 
             ) 
           ) 
          '(("DOTE" "轴线") 
            ("BALCONY" "阳台") 
            ("TITLE" "图框") 
            ("COLUMN" "柱子") 
            ("WINDOW" "门窗") 
            ("AXIS" "轴标") 
            ("GROUND" "地面") 
            ("WALL" "墙线") 
            ("SURFACE" "面层") 
            ("ROOF" "屋顶") 
            ("STAIR" "楼梯") 
            ("LVTRY" "洁具") 
            ("RAIL" "栏杆") 
            ("HANDRAIL" "扶手") 
            ("SPACE" "房间") 
            ("CAMERA" "相机") 
            ("AXIS_TEXT" "轴文") 
            ("PUB_DIM" "公标") 
            ("PUB_TEXT" "公文") 
            ("PUB_WINDW" "公窗") 
            ("PUB_HATCH" "公填") 
            ("PUB_TITLE" "公框") 
            ("WINDOW_TEXT" "窗名") 
            ("S_WALL" "剖线") 
            ("S_WINDOW" "剖窗") 
            ("S_BLOCK" "剖块") 
            ("E_FLOOR" "层线") 
            ("E_LINE" "立线") 
            ("E_WINDOW" "立窗") 
            ("E_BLOCK" "立块") 
            ("BASE" "基线") 
           ) 
  ) 
  (princ) 
)

gelin · 发表于 2004-9-18 06:20:15

经过几天试用，楼主的程序可用性强些，8楼的程序虽然简洁，但容错要差些，遇到如果有要修改的中文层名存在，会自动中断程序，1楼则不会

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

[编程申请]：图中图层名批量改名

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：图中图层名批量改名