本人最近研究一键处理建筑底图程序，有问题请教各位

124803430 · 发表于 2014-4-16 14:22:46

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

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

×

(defun c:ee()
(while (setq n (tblnext "layer" (null n)))
(setq layername (cdr(assoc 2 n)))
(command "layer" "c" "8" layername)
(command "")
)
(command "layer" "f" "*a-wind-iden" "")
(command "layer" "f" "*a-spac-iden" "")
(command "layer" "f" "*dim_iden" "")
(command "layer" "f" "*a-anno-levl" "")
(command "layer" "f" "*a-anno-dims" "")
(command "layer" "f" "*a-grid" "")
(command "layer" "f" "*a-dim-iden" "")
(command "layer" "f" "*a-anno-note" "")
)
(defun c:za()
(setq qq (nentsel "\n 请选择需要冻结的图层:" ))
(setq qqname (car qq))
(setq lay (cdr(assoc 8 (entget qqname))))
(command "layer" "f" lay "")
)

因为我们这边底图都是外部参照，每个图参照过来的话图层显示会加竖向号，使得每个图层只有后面的名字相同，图层名本来不同
本人思路就是冻结几种特定图层，有些没冻结的图层就用手动关闭,然后图层全部改成8号灰色。但是因为外部参照图层图层名不一样。
只能使用通配符搜索功能，这样如果图层一多造成程序运行太慢。
如何能提高程序运行速度，给个思路或改进方法
变成8号色其实也挺慢的，这个程序不知道有改进方法没？

newer · 发表于 2014-4-16 14:34:26

你都用COMMAND做，效率肯定低。你试试通过修改层数据的70祖玛的值，去冻结、关闭等。

124803430 · 发表于 2014-4-17 09:16:59

newer 发表于 2014-4-16 14:34
你都用COMMAND做，效率肯定低。你试试通过修改层数据的70祖玛的值，去冻结、关闭等。

感谢回帖，因为是块参照，每张图的图层名都不一样。
如何能找到该图层是个问题啊。

newer · 发表于 2014-4-17 09:33:30

124803430 发表于 2014-4-17 09:16
感谢回帖，因为是块参照，每张图的图层名都不一样。
如何能找到该图层是个问题啊。

你的代码里面都用到了ASSOC 8了，你可以直接修改祖玛70的值，不要用COMMAND了。

124803430 · 发表于 2014-4-17 10:59:07

newer 发表于 2014-4-17 09:33
你的代码里面都用到了ASSOC 8了，你可以直接修改祖玛70的值，不要用COMMAND了。

但是我要关的是我搜索到的图层啊
那个只是遍历图层。把图层全部变灰。
如果直接改不就是把图层全部冻结了

newer · 发表于 2014-4-17 11:01:39

124803430 发表于 2014-4-17 10:59
但是我要关的是我搜索到的图层啊
那个只是遍历图层。把图层全部变灰。
如果直接改不就是把图层全部冻结 ...

用COMMAND效率要低，你用COMMAND的地方，可以用函数替代。

124803430 · 发表于 2014-4-17 11:05:18

newer 发表于 2014-4-17 11:01
用COMMAND效率要低，你用COMMAND的地方，可以用函数替代。

不知道方法噻，所以求助各位{:soso__3669389859068460655_4:}

win_gf · 发表于 2014-4-18 12:29:36

抱歉我就不详细说明了,请参阅代码中的注释,凭楼主的水平,应该很好理解

第一个修改如下

(defun c:ee( / layerlst layerlstF layernext changelayercolor freezelayer)
;获取所有图层名称,并组合成列表
(setq layerlst (list (cdr (assoc 2 (tblnext "layer" T)))))
(while (setq layernext (tblnext "layer"))
(setq layerlst (append layerlst (list (cdr (assoc 2 layernext)))))
)
;保留带有|符号的图层,也就是获取外部参照的图层名称
(setq layerlst (vl-remove-if-not '(LAMBDA (e) (vl-string-position (ascii "|") e)) layerlst))
;定义修改图层颜色为8的函数
(defun changelayercolor(layername / layer_data)
(setq layer_data (entget (tblobjname "LAYER" layername)))
(setq layer_data (subst (cons 62 8) (assoc 62 layer_data) layer_data))
(entmod layer_data)
)
;为观察效率,用对话框确认粗略估计执行时间
(alert "修改外部参照图层颜色为8号色,开始.")
(foreach n layerlst (changelayercolor n))
(alert "修改外部参照图层颜色为8号色,结束.")
;文本栏输出执行信息
(princ "\n已将如下图层修改颜色修改为8号色:\n")
(foreach n layerlst (princ (strcat n "\n")))
;此处同上,但需要冻结的图层判断条件不全,请自行补充
(setq layerlstF (vl-remove-if-not '(LAMBDA (e)
(wcmatch e
"*a-wind-iden,*a-spac-iden" ;请自行补充
)) layerlst))
(defun freezelayer(layername / layer_data)
(setq layer_data (entget (tblobjname "LAYER" layername)))
(setq layer_data (subst (cons 70 1) (assoc 70 layer_data) layer_data))
(entmod layer_data)
)
(alert "冻结指定层,开始.")
(foreach n layerlstF (changelayercolor n))
(alert "冻结指定层,结束.")
(princ "\n已将如下图层冻结:\n")
(foreach n layerlstF (princ (strcat n "\n")))
(princ)
)

(defun c:ee( / layerlst layerlstF layernext changelayercolor freezelayer) 
;获取所有图层名称,并组合成列表 
(setq layerlst (list (cdr (assoc 2 (tblnext "layer" T))))) 
(while (setq layernext (tblnext "layer")) 
(setq layerlst (append layerlst (list (cdr (assoc 2 layernext))))) 
) 
;保留带有|符号的图层,也就是获取外部参照的图层名称 
(setq layerlst (vl-remove-if-not '(LAMBDA (e) (vl-string-position (ascii "|") e)) layerlst)) 
;定义修改图层颜色为8的函数 
(defun changelayercolor(layername / layer_data) 
(setq layer_data (entget (tblobjname "LAYER" layername))) 
(setq layer_data (subst (cons 62 8) (assoc 62 layer_data) layer_data)) 
(entmod layer_data) 
) 
 
;为观察效率,用对话框确认粗略估计执行时间 
(alert "修改外部参照图层颜色为8号色,开始.") 
(foreach n layerlst (changelayercolor n)) 
(alert "修改外部参照图层颜色为8号色,结束.") 
 
;文本栏输出执行信息 
(princ "\n已将如下图层修改颜色修改为8号色:\n") 
(foreach n layerlst (princ (strcat n "\n"))) 
 
;此处同上,但需要冻结的图层判断条件不全,请自行补充 
(setq layerlstF (vl-remove-if-not '(LAMBDA (e) 
(wcmatch e 
"*a-wind-iden,*a-spac-iden" ;请自行补充 
)) layerlst)) 
 
(defun freezelayer(layername / layer_data) 
(setq layer_data (entget (tblobjname "LAYER" layername))) 
(setq layer_data (subst (cons 70 1) (assoc 70 layer_data) layer_data)) 
(entmod layer_data) 
) 
 
(alert "冻结指定层,开始.") 
(foreach n layerlstF (changelayercolor n)) 
(alert "冻结指定层,结束.") 
 
(princ "\n已将如下图层冻结:\n") 
(foreach n layerlstF (princ (strcat n "\n"))) 
 
(princ) 
)

第二个改写如下

(defun c:za()
(command "-layer" "F")
)

希望楼主以后写代码之前多考虑一下所采用的方法,而不是事后发现效率低再想办法补救.

祝开心

124803430 · 发表于 2014-4-21 11:36:31

win_gf 发表于 2014-4-18 12:29
抱歉我就不详细说明了,请参阅代码中的注释,凭楼主的水平,应该很好理解

第一个修改如下第二个改写如下希 ...

感谢回帖
有一个地方不理解

(defun changelayercolor(layername / layer_data)
(setq layer_data (entget (tblobjname "LAYER" layername)))
(setq layer_data (subst (cons 62 8) (assoc 62 layer_data) layer_data))
(entmod layer_data)
)

上面这段代码中(tblobjname "LAYER" layername)
layername个函数，只是在defun定义了一下，为什么tblobjname函数能够执行？？？？

win_gf · 发表于 2014-5-5 10:48:22

tblobjname 是系统自带函数

sunykkkk · 发表于 2014-5-14 20:53:46

学习了谢谢

zxq0220 · 发表于 2014-5-15 09:00:05

;在程序开头加上(setvar "CMDECHO" 0)可以提高运行速度。如：
(defun c:ee()
(setvar "CMDECHO" 0)
(while (setq n (tblnext "layer" (null n)))
(setq layername (cdr(assoc 2 n)))
(command "layer" "c" "8" layername "")
)
(command "layer" "f" "*a-wind-iden,*a-spac-iden,*dim_iden,*a-anno-levl,*a-anno-dims,*a-grid,*a-dim-iden,*a-anno-note" "")
(setvar "CMDECHO" 1)
(princ)
)
(defun c:za()
(setvar "CMDECHO" 0)
(setq qq (nentsel "\n 请选择需要冻结的图层:" ))
(setq qqname (car qq))
(setq lay (cdr(assoc 8 (entget qqname))))
(command "layer" "f" lay "")
(setvar "CMDECHO" 1)
(princ)
)

哆啦A梦_B64Mu · 发表于 2020-2-29 21:43:45

谢了，这段代码我收下了。

csshaoyu2000 · 发表于 2021-7-19 15:41:04

如果图元和图层颜色不一样呢？

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

[求助] 本人最近研究一键处理建筑底图程序，有问题请教各位

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

相关帖子

点评

点评

点评

点评

点评

点评