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

124803430 · 发表于 2014-4-15 17:27:21

本帖最后由 124803430 于 2014-4-15 17:37 编辑

(defun c:ee()
(while (setq n (tblnext "layer" (null n)))
(setq layername (cdr(assoc 2 n)))
(command "layer" "c" "8" layername)
(command "")
)
)
(defun c:ff()
(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 "")
)

kwok · 发表于 2014-4-15 17:41:57

我在用2014,外参照进来的图都是灰色的，不用改，建议用一下高版.
2008就不是灰色的，其它版不清楚.

124803430 · 发表于 2014-4-15 17:32:21

本帖最后由 124803430 于 2014-4-15 17:33 编辑

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

fire9527 · 发表于 2014-4-15 19:28:12

同求

124803430 · 发表于 2014-4-15 21:14:20

kwok 发表于 2014-4-15 17:41
我在用2014,外参照进来的图都是灰色的，不用改，建议用一下高版.
2008就不是灰色的，其它版不清楚.

高版本的CAD用起来机器太卡了。

124803430 · 发表于 2014-4-16 11:05:19

人工顶贴~~~~~~~~

124803430 · 发表于 2014-4-17 09:21:19

没人回帖啊？？？？

124803430 · 发表于 2014-4-17 21:01:01

没人回帖啊？？？？

tranney · 发表于 2014-4-22 05:51:43

你可以用先用下面代码，然后插入为外部参照
;---------- 将所选对象设置为0-建筑底图线性不变
(defun c:0T (/ ceng ss en dxf lt)
      (setvar "cmdecho" 0)
      (setq ceng "0-建筑底图")
      (princ (strcat "\n---将所选对象设置为" ceng "，属性随层"))
      (if (not (tblsearch "layer" ceng))
            (command "_layer" "m" ceng "c" "8" ceng "lt" "Continuous" ceng "")
            (command "layer" "s" ceng "c" "8" "" "lt" "Continuous" ceng "")
      )
      (while (setq ss (ssget ":s"))
            (repeat (setq n (sslength ss))
                     (setq en (ssname ss (setq n (1- n))))
                     (setq dxf (entget en))
                     (if (not (cdr (assoc 6 dxf)))
                              (progn
                                    (setq lt (cdr (assoc 6 (entget (tblobjname "layer" (cdr (assoc 8 dxf)))))))
                                    (command "chprop" en "" "la" ceng "lw" "ByLayer" "lt" lt "")
                              )
                              (command "chprop" en "" "la" ceng "lw" "ByLayer" "")
                     )
            )
      (command "change" ss "" "p" "c" "bylayer" "lt" "" "la" ceng "lw" "bylayer" "")
      )
      (princ (strcat "\n---将所选对象设置为" ceng "，属性随层"))
      (setvar "cmdecho" 1)
      (princ)
)
这样的话除了块，其他的基本上都达到你的要求了，如果觉得块也要修改，请先用下面代码
;---------- 将块内所有对象更改到0图层，颜色随层。
(defun c:0t1 ( / e i l n ss x )
(if (setq ss (ssget '((0 . "INSERT"))))
      (repeat (setq i (sslength ss))
         (if (not (member (setq n (cdr (assoc 2 (entget (ssname ss (setq i (1- i))))))) l))
            (progn
                  (setq e (tblobjname "block" n)
                        l (cons n l)
                  )
                  (while (setq e (entnext e))
                     (setq x (entget e))
                     (entmod (subst '(8 . "0") (assoc 8 x) x))
                  )
            )
         )
      )
)
(command "_.regen")
(princ)
)

nadaloveluna · 发表于 2015-12-18 15:22:14

tranney 发表于 2014-4-22 05:51
你可以用先用下面代码，然后插入为外部参照
;---------- 将所选对象设置为0-建筑底图线性不变
(defun c: ...

谢谢前辈，这个程序处理建筑图挺好的。

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

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

相关帖子