自定义填充

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

很好，拟给予精神和行动上的支持

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

自定义填充

本帖子中包含更多资源