疯球 发表于 2020-2-6 17:13
来个人吧！！
(defun c:TT ()
(CMDLA0)
(command "-insert" "插入的块名" pause"" "" "")
(setq s1(entlast))
(command"explode" s1 "")
(CMDLA1))
疯球 发表于 2020-2-6 17:13
来个人吧！！
代码只是插入块，然后可以直接分解块的代码，你试试能拼合，搞一下吧，我也不会代码，也不知道这点代码能给你帮上点忙了不
xj6019 发表于 2020-2-6 21:25
代码只是插入块，然后可以直接分解块的代码，你试试能拼合，搞一下吧，我也不会代码，也不知道这点代码能 ...
谢谢你的回复，但是好像不太行，知道选取上一步操做的命令吗？
疯球 发表于 2020-2-7 07:35
谢谢你的回复，但是好像不太行，知道选取上一步操做的命令吗？
你看看这个是不是？
(princ "选择箭头:")
(setq ent (ssget))
(while ent
(command "copy" ent "" "@""@")
(setq en2 (entlast))
(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 ...
还是不行，平分的块根本没有炸 开，谢谢回复
等高手！！
等大神，赐教
每隔一会来看一下，等着高人出现
建议，你先画一个示意图，然后再想如何用代码来实现。问题被具现化了更容易解决。