[LISP函数]：如何选中所有的阵列出的块，并把他们炸开？

cuiyi555 · 发表于 2006-3-18 21:43:42

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

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

×

如何选中所有的阵列出的块，并把他们炸开？
用lisp 调用inster 插入了一个块，然后用阵列出了几个这样的块。
问题是如何用选择集ssget 把上面的这些块选中，并把他们炸开？
我想用ssget做选择集，然后炸开上面所有的块，可是不成功。
想问下大虾们该怎么做才能选中所有阵列出的块，并把他们炸开

Underway · 发表于 2006-3-18 22:10:50

(ssget "X" '((2 . "块名称"))) ; 全选

or

(ssget '((2 . "块名称"))) ; 手动选

doubao · 发表于 2006-3-18 22:31:01

选中所有块很容易，要选择出阵列出的块就不那么容易了。因为从插入块的数据里得不到和其他块的阵列关系。所以必须要有一个判断程序来判断所选择的块是不是在某个阵列的点上。这个判断程序还要考虑矩形阵列和圆形阵列的不同情况，最好还要考虑到三维的情况。

如果块是用“minsert”插入的， “explode”命令是炸不开的，不过编程序比较容易解决。因为插入块的数据里有阵列的信息。

cuiyi555 · 发表于 2006-3-19 13:25:17

(defun c:abc()
  ；先注释掉直接用块名c1插 (setq aaa "c1")
  (setq bbb (getpoint "\n 插入点"))
  (command "insert" "c1" bbb 1 1 0)
  (setq ccc (ssget "x" '(( 2 . "c1")) ))
)
为什么 ccc为空？没有任何块被选进选择集？

Underway · 发表于 2006-3-19 14:00:17

2004 上的驗證

Command: (setq bbb (getpoint "\n 插入点"))
插入点(148.112 191.958 0.0)

Command: (command "insert" "c1" bbb 1 1 0)
insert Enter block name or [?] <aaa>: c1 Specify insertion point or
[Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 1 Enter Y
scale factor <use X scale factor>: 1 Specify rotation angle <0>: 0
Command: nil

Command: (setq ccc (ssget "x" '(( 2 . "c1")) ))
[Selection set: 7]

雨箭风刀 · 发表于 2006-3-20 22:28:44

xplode命令

xyp1964 · 发表于 2006-3-20 22:39:23

[FONT=courier new]
(setq ss1(ssget "X" '((2 . "块名称"))))
;;;阵列
;;;
(setq ss2(ssget "X" '((2 . "块名称"))))
(command"select" ss2 "r" ss1 "")
(setq ss (ssget"p"))
(command"explode" ss "")
[/FONT]

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

[LISP函数]：如何选中所有的阵列出的块，并把他们炸开？

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

相关帖子