关于非等比例块的打散

namezg · 发表于 2012-2-23 20:39

一个非统一比例块中含有一个非统一比例块或一个以上的非统一比例块，如何打散这样的图块呢。
cad的打散命令可以打散一层的非统一比例块，多层的就无能为力了。不知如何能做到？

该贴已经同步到 namezg的微博

yjr111 · 发表于 2012-2-24 00:16

多次循环打散试试

原地踏步 · 发表于 2017-8-3 09:57

这个程序好，经常用到

onemax01 · 发表于 2016-9-26 15:57

这个非等比图块用程序炸散后图形有变化，不知道怎么回事

namezg · 发表于 2012-2-24 16:45

本帖最后由 namezg 于 2012-2-24 21:26 编辑

表达更详细些.嵌套块中如果有二个或二个以上的不等比例块,并且不等比例块中不只一个旋转角度不为零.则此嵌套块无法完全分解.当最外层和下一层均为不等比例块且旋转角度不为零时就无法再分解下去了。

Gu_xl · 发表于 2012-2-25 09:42

本帖最后由 Gu_xl 于 2012-3-1 08:57 编辑

非等比例块彻底打散程序：

(defun c:ExpBlk ()
(princ "\n非等比例块彻底打散程序 By Gu_xl")
(setq smdecho (getvar 'cmdecho))
(setvar 'cmdecho 0)
(setq *ACDOCUMENT* (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq *MODEL-SPACE* (vlax-get-property *AcDocument* (if (= 1 (getvar 'CVPORT)) 'PaperSpace 'ModelSpace)))
(while (setq ss (ssget ":L" '((0 . "insert"))))
(repeat (setq n (sslength ss))
(setq en (ssname ss (setq n (1- n))))
(gxl-SupperExplodeBlock en)
)
)
(setvar 'cmdecho cmdecho)
(princ)
)

完整代码如下：

yzr2002626 · 发表于 2012-2-25 10:35

G大程序，威武

cuyongping · 发表于 2012-2-25 15:57

看看！虽然有点不明白

gzxl · 发表于 2012-2-26 02:22

G版主出手就是不一样，高手

flytoday · 发表于 2012-2-26 13:55

G版滴都是无敌滴

namezg · 发表于 2012-2-27 07:30

只打散外面一层能吗

caomo922 · 发表于 2012-2-27 09:28

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