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

关于非等比例块的打散

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


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 namezg的微博

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

多次循环打散试试

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

这个程序好，经常用到

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

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

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

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

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

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

本帖最后由 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)
)

完整代码如下：
**** Hidden Message *****




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

G大程序，威武

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

看看！虽然有点不明白

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

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

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

G版滴都是无敌滴

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

只打散外面一层能吗

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

页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 关于非等比例块的打散