批量求助

357785513 · 发表于 2009-11-12 22:51:00

大家好,有没人办法,可以选择多个圆里的各不相同的块,这些块以前是被人家做的块套块,等于就是先做一个块,然后再用一个圆把块圈起来,再把圆同块再做一次块,就是块套块,现在工程师把这些块全炸了一次,就变成一个圆套一个块了,而且块名的种类又烦多,请问个位有没有办法批量选择圆里面的块,因为圆都是一样大小的

xianaihua · 发表于 2009-11-12 23:07:00

可以选择镶嵌块

(setq SELECT (nentsel "选择子图"))
(setq ent (cdr (assoc 0 (entget (car SELECT)))))

357785513 · 发表于 2009-11-13 00:15:00

也就是一次选择多个圆里的多个块吧

357785513 · 发表于 2009-11-13 12:55:00

2楼的好像选不到呀,选不到多个圆里的块

liu_kunlun · 发表于 2009-11-13 13:17:00

本帖最后由作者于 2009-11-13 13:52:54 编辑

首先用（ssget (list '(0 . "CIRCLE") (cons 10 r)))选择到半径为r的圆

然后再对选到的每个圆用

（ssget "w" (mapcar '- ptcen (list r r 0)) (mapcar '+ ptcen (list r r 0)) '((0 . "INSERT") )）

得到每个圆中的insert实体

其中ptcen及r分别是圆中心及半径

357785513 · 发表于 2009-11-13 23:17:00

五楼刘先生,好像只能一个选,不能全选择到

357785513 · 发表于 2009-11-26 12:31:00

今天又遇上了,还是解决不了呀,那位看看有什么好办法不

liu_kunlun · 发表于 2009-11-26 13:42:00

例如，删除这些符合条件的对象：

(defun c:ttt ()
(command "erase" (ttt) "")
)

(defun ttt ( / c r ss n e s1 sout ptcen)
(if (and (setq c (car (entsel "选择样本园:")))
           (setq r (cdr (assoc 40 (entget c))))
           (setq ss (ssget (list '(0 . "CIRCLE") (cons 40 r))))
      )
      (progn
         (setq n -1 sout (ssadd))
         (repeat (sslength ss)
            (setq e (ssname ss (setq n (+ n 1))) ptcen (cdr (assoc 10 (entget e))))
            (setq s1 (ssget "w" (mapcar '- ptcen (list r r 0)) (mapcar '+ ptcen (list r r 0)) '((0 . "INSERT") )))
     (if s1 (setq sout (ssadd (ssname s1 0) sout)))
         )
) )
sout
)

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

[基础] 批量求助