自定义填充

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

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

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

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

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

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

这个强烈需要啊

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

为啥炸不开啊，悲剧的

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

这东西好啊

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

自定义填充

本帖子中包含更多资源