块等分图形后，块被炸开

xj6019

疯球 发表于 2020-2-6 17:13
来个人吧！！

(defun c:TT ()
  (CMDLA0)
  (command "-insert" "插入的块名" pause  "" "" "")
(setq s1(entlast))
  (command"explode" s1 "")
  (CMDLA1))
  

xj6019

疯球 发表于 2020-2-6 17:13
来个人吧！！

代码只是插入块，然后可以直接分解块的代码，你试试能拼合，搞一下吧，我也不会代码，也不知道这点代码能给你帮上点忙了不

疯球

xj6019 发表于 2020-2-6 21:25
代码只是插入块，然后可以直接分解块的代码，你试试能拼合，搞一下吧，我也不会代码，也不知道这点代码能 ...

谢谢你的回复，但是好像不太行，知道选取上一步操做的命令吗？

xj6019

疯球 发表于 2020-2-7 07:35
谢谢你的回复，但是好像不太行，知道选取上一步操做的命令吗？

你看看这个是不是？

(princ "选择箭头:")
(setq ent (ssget))

(while ent
(command "copy" ent "" "@""@")
(setq en2 (entlast))

bssurvey

(defun C:fk ()
     (prompt "批量选择等分....")
     (setq ss (ssget) Num (getint "多少等分?: ") i 0)
     (while (setq ee (ssname ss i))
       (command "divide" ee "b" "原有接入设备-2(GE)" "n" Num)
       (setq i (1+ i))
     )
     (prompt "选择要炸开的块....")
     (setq ss1(ssget))            
     (command "explode" ss1)      
)

疯球

bssurvey 发表于 2020-2-7 09:14
(defun C:fk ()
     (prompt "批量选择等分....")
     (setq ss (ssget) Num (getint "多少等分?: ") i ...

还是不行，平分的块根本没有炸 开，谢谢回复

疯球

等高手！！

疯球

等大神，赐教

疯球

每隔一会来看一下，等着高人出现

xiangganglv

建议，你先画一个示意图，然后再想如何用代码来实现。问题被具现化了更容易解决。