Guest kruuger 发表于 2022-7-6 10:33:48

试试这个：http://kojacek.republika.pl/mag.html（mag.fas）
MAB-创建组
UGR-按选择解组
 
Wskażobiekt do rozbicia grupy:->选择要分解的对象组：
Wszystkie->全部
 
克鲁格

Sweety 发表于 2022-7-6 10:36:04

 
是 啊太好了。
 
但所有代码和功能都隐藏在。fas文件。
 
希望有人能为我们提出这些准则。
 
非常感谢。

Lee Mac 发表于 2022-7-6 10:38:34

http://www.cadtutor.net/forum/showthread.php?54230-组命令例程

pBe 发表于 2022-7-6 10:42:25

好我能说什么。。。30秒后写代码。。。。。
我听到一个声音说。。。。。
 
“不要试图重新发明轮子”
 

Guest kruuger 发表于 2022-7-6 10:43:24

这不是我的程序，所以我不能给你看代码。
但是现在有了VVA和Lee Mac代码，我们可以做一些类似于MAG.FAS的事情
克鲁格

Sweety 发表于 2022-7-6 10:48:52

 
是 啊这和往常一样棒，李先生。
 
非常感谢你。

pBe 发表于 2022-7-6 10:50:49

试试这个小代码，告诉我你的想法
 

(defun
c:test (/ this-dwg lko action)
(vl-load-com)
(setq this-dwg (vla-get-activedocument (vlax-get-acad-object)))
(vla-zoomextents (vlax-get-acad-object))
(vlax-for
    ol (vla-get-groups this-dwg)
   (if (/= (vla-get-count ol) 0)
   (progn
       (setq lko (ssadd))
       (vlax-for
          lk ol
         (setq lko (ssadd (vlax-vla-object->ename lk) lko))
       )
       (sssetfirst nil lko)
       (princ (strcat "\nGroup name " (setq gn (vla-get-name ol))))
       (initget 1 "D C")
       (setq action (getkword "\nSpecify action [Delete/Continue]: "))
       (cond
         ((= action "D")
(vla-delete ol )
   (princ (strcat "\nGroup Name " gn " Deleted"))
          (setq lko (ssadd))
         )
         ((= action "C")
          (princ (strcat "\nGroup Name " gn " not deleted"))
         )
       )
   )
   )
)
(princ)
)

 
我不久前开始的。不妨把它贴在这里

Sweety 发表于 2022-7-6 10:53:45

 
它没有，因为您使用了以下代码。

(vl-cmdf "_.Group" "Explode" gn)

 
如果command Explode与group一起工作，我不会要求使用例程来代替它。
 
非常感谢

pBe 发表于 2022-7-6 10:58:35

哈哈哈我猜你是对的
 
哦，好吧。无论如何，我需要练习
此外其在Group命令内的explode选项
 
别担心，甜心

Sweety 发表于 2022-7-6 11:02:02

 
谢谢你，伙计。
 
我也喜欢与你和其他人分享意见。
 
谢谢。
页: 1 [2]
查看完整版本: Lisp或代码分解组