Lisp或代码分解组

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

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

copy

 
(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 [[color=blue]Delete/[/color]Continue]: "))
       (cond
         [color=blue]((= action "D")[/color]
 [color=blue](vla-delete ol )[/color]
[color=blue]     (princ (strcat "\nGroup Name " gn " Deleted"))[/color]
          (setq lko (ssadd))
         )
         ((= action "C")
          (princ (strcat "\nGroup Name " gn " not deleted"))
         )
       )
     )
   )
 )
 (princ)
)