[求助]：分解没有命名的组的LISP FORR2005

chenhang · 发表于 2004-4-16 15:14:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

分解没有命名的组的LISP FORR2005谁有请给我一个

xiaping · 发表于 2004-4-16 15:20:20

用晓东工具箱3.0 for 2005。绝对好用。

chenhang · 发表于 2004-4-16 15:24:48

最初由 xiaping 发布
[B]用晓东工具箱3.0 for 2005。绝对好用。 [/B]

能给我LISP吗,我用的日文的系统,中文的外挂不能用的.谢谢!

mmmm · 发表于 2004-4-16 18:44:05

把选定的组实体做成一个临时块
插入后再炸掉

秋枫 · 发表于 2004-4-17 14:58:30

剪切，然后粘贴到原坐标即可。

snsj · 发表于 2004-4-17 15:53:17

还可以用组命令里的查找组名匿名组的名一般为*A1之类的，命令行输入-group 输入那个名字分解就可以了

chenhang · 发表于 2004-4-21 16:34:21

最初由 snsj 发布
[B]还可以用组命令里的查找组名匿名组的名一般为*A1之类的，命令行输入-group 输入那个名字分解就可以了 [/B]

这样太慢了,有LISP可以解决吗?

snsj · 发表于 2004-4-22 19:42:53

最初由 chenhang 发布
[B]
这样太慢了,有LISP可以解决吗? [/B]

[php]
;;;|分解选中物体所在组
;;;|分解单个有名(匿名)组
;;;|SNSJ 2004.4.22
(defun c:cs (/ a i n go gtob vlit kz ent)
(vl-load-com)(setvar "cmdecho" 0)
  (if (setq ent(entsel))
(progn
(setq a (vlax-ename->vla-object(car ent))i 0 n 0)
(setq go (vla-get-groups(vla-get-Activedocument (vlax-get-acad-object))))
  (while (null kz)
(repeat (vla-get-count(setq vlit(vla-item go i)))
         (setq gtob (vla-item vlit n))
      (if (= (vla-get-objectid a) (vla-get-objectid gtob))
      (setq kz (vla-get-name vlit))
      )(setq n (+ n 1))
                  )(setq i (+ i 1))
  )(vl-cmdf ".group" "e" kz)
(princ (strcat "******|组" kz "被分解|******"))
  )(princ "******|没有选中物体|******")
)
  (princ)
  )
[/php]

chenhang · 发表于 2004-4-24 17:50:42

最初由 snsj 发布
[B]
[php]
;;;|分解选中物体所在组
;;;|分解单个有名(匿名)组
;;;|SNSJ 2004.4.22
(defun c:cs (/ a i n go gtob vlit kz en... [/B]

LISP加载后输入CS没有反应,请在帮我看看

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

[求助]：分解没有命名的组的LISP FORR2005

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块