（完成）[编程申请]：求批量炸块到层程序

caibaobao · 发表于 2002-8-3 15:29:53

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

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

×

:3
求晓东帮忙，能够编制一个程序：能够批量选取不同图层上的图块，并将其炸开到其所在的图层。谢谢！

eachy · 发表于 2002-8-3 16:45:36

最初由 caibaobao 发布
[B]:3
求晓东帮忙，能够编制一个程序：能够批量选取不同图层上的图块，并将其炸开到其所在的图层。谢谢！ [/B]

不用炸开块，现在的工具箱中已经有这个工具，在命令行输入DWGBLACK[/COLOR]，可以改层、颜色，对于改层可以是新层。
对应菜单【XDSOFT】－》【其他】－》【图元变色】
下面是用到的一个子函数。对照DXF组码根据需要可以用来改层、颜色、线形、字串等等。

;;本程序出自XDsoft,修改的最初目的只是为处理电子版地形图,
;;将所有实体改为同一图层,同一颜色,字体也统一一种(未完成),
;;经过修改更通用些,也适应专门的要求
;;
;;通用属性修改 cnum0 组码 cnum 组码值
;;
(defun #chg_color (e cnum0 cnum / tf e blkna)
(xdrx_setenttodb e)
(setq tf (xdrx_getentdxf 0))
(cond
((or
(= tf "INSERT")
(= tf "DIMENSION")
)
(setq blkna (xdrx_getentdxf 2))
(setq blkna (tblsearch "block" blkna))
(setq e (cdr (assoc -2 blkna)))
(while e
(xdrx_setenttodb e)
(setq tf (xdrx_getentdxf 0))
(if (or
(= tf "INSERT")
(= tf "DIMENSION")
)
(progn
(#chg_color e cnum0 cnum)
)
(progn
(xdrx_setenttodb e)
(xdrx_modent cnum0 cnum)
)
)
(setq e (entnext e))
)
)
(t
(xdrx_modent cnum0 cnum)
)
)
)

;;本程序出自XDsoft,修改的最初目的只是为处理电子版地形图, 
;;将所有实体改为同一图层,同一颜色,字体也统一一种(未完成), 
;;经过修改更通用些,也适应专门的要求 
;; 
;;通用属性修改  cnum0  组码   cnum  组码值 
;; 
(defun #chg_color (e cnum0 cnum / tf e blkna) 
  (xdrx_setenttodb e) 
  (setq tf (xdrx_getentdxf 0)) 
  (cond 
    ((or 
       (= tf "INSERT") 
       (= tf "DIMENSION") 
     ) 
     (setq blkna (xdrx_getentdxf 2)) 
     (setq blkna (tblsearch "block" blkna)) 
     (setq e (cdr (assoc -2 blkna))) 
     (while e 
       (xdrx_setenttodb e) 
       (setq tf (xdrx_getentdxf 0)) 
       (if (or 
             (= tf "INSERT") 
             (= tf "DIMENSION") 
           ) 
         (progn 
           (#chg_color e cnum0 cnum) 
         ) 
         (progn 
           (xdrx_setenttodb e) 
           (xdrx_modent cnum0 cnum) 
         ) 
       ) 
       (setq e (entnext e)) 
     ) 
    ) 
    (t 
     (xdrx_modent cnum0 cnum) 
    ) 
  ) 
)

XDSoft · 发表于 2002-8-3 17:25:45

最初由 caibaobao 发布
[B]:3
求晓东帮忙，能够编制一个程序：能够批量选取不同图层上的图块，并将其炸开到其所在的图层。谢谢！ [/B]

其实这个工作，用ACAD自身的命令也是很方便的。炸开后的实体，马上可以用选取物体提示的P得到，然后用chprop命令就可以改他们的属性了，不仅是层，包括颜色、线性等等

用EXPLODE命令炸开你需要的块后，用CHPROP命令
提示选取物体的时候，输入P，然后输入LA，再然后输入你想的层名即可了。

XDSoft · 发表于 2002-8-3 17:30:54

最初由 caibaobao 发布
[B]:3
求晓东帮忙，能够编制一个程序：能够批量选取不同图层上的图块，并将其炸开到其所在的图层。谢谢！ [/B]

这个程序以前给大家写过，可以随层的炸开MINSERT,INSERT,POLYLINE，ACAD的EXPLODE命令的增强，去看看下面的帖子：

http://www.xdcad.net/forum/showthread.php?postid=20670#post20670

eachy · 发表于 2002-8-3 17:48:19

建议：对于块还是不要随意Explode。[/COLOR]

caibaobao · 发表于 2002-8-5 17:53:22

谢谢两位！嘿嘿……，这是为黑心的为骗方案的JS预备的：可以打图，但编辑起来很麻烦。

xzg_hello · 发表于 2002-8-9 20:28:23

哈哈，站长的招可真够毒的，如果能把线都再细分成Ｎ段就更……：）

caibaobao · 发表于 2002-8-14 18:44:33

谢谢各位，因为，现在这样的JS太多了，一开始花好稻好什么都好说甚至要拍断几根肋骨表示诚意，但是当比较详细的图纸到手后人就不见了，声都没有。举例：江苏昆山瘟杀煲这个客户，一开始，就带着做施工图单位的人，到我们单位来讨论总平面方案，很满意，但到了谈签合同时，就失踪了！巧的是，在同济大学附近的图象制作打印一条街上碰了个正着！

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

（完成）[编程申请]：求批量炸块到层程序

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

相关帖子

Re: [编程申请]：求批量炸块到层程序

Re: [编程申请]：求批量炸块到层程序

Re: [编程申请]：求批量炸块到层程序