linshiyin2 发表于 2012-12-3 21:09:40

自定义填充



g版有个充填程序，如图，就是不能炸开，g版的地址http://bbs.mjtd.com/thread-90749-2-1.html
谁能写个可以炸开的，g版进来也看看啊，

Lisper 发表于 2012-12-3 21:56:42

多重块炸开，可参见帖子：
http://bbs.mjtd.com/thread-92160-1-1.html

linshiyin2 发表于 2012-12-4 10:16:51

g版的东西不错，能再加上局部变量就好了，这样内存释放也比较干净。
(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)
)

千寻╭ァ 发表于 2012-12-10 12:59:57

这个强烈需要啊

千寻╭ァ 发表于 2012-12-11 11:13:32

为啥炸不开啊，悲剧的

yefei812678 发表于 2024-2-23 16:39:17

这东西好啊

LOOONG 发表于 2024-7-1 20:23:35

厉害，去原帖学习到了！

tensir 发表于 2024-7-7 14:42:11

感谢作者的分享！

849881146 发表于 2024-7-31 21:35:41

这个还是很有用的，感谢分享

huang222100 发表于 2024-8-2 17:34:19

很好，拟给予精神和行动上的支持
页: [1]
查看完整版本: 自定义填充