块等分图形后，块被炸开

疯球

请大神们帮帮忙，用块平分对象后再把块炸开该怎么办(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))
    )
)

这个命令可以用块等分图形，但我想用块把图形等分后再把等分的块炸开一下

13529444157

疯球 发表于 2020-2-9 00:47
接触这个不是很 久，不太会

两个思路，第一种不使用等分命令，程序计算各点坐标，然后绘制或插入圆，文字编码另行插入（也可由excel提取）。第二种以你编写好的程序为基本，因为使用"divide”  不能使用sslast作为选择，建议使用 ssget 过滤筛选 并做循环 炸开。附： (ssget "p" '((2 . "原有接入设备-2(GE)"))))。试一下，可以使用。再做完善。更建议使用第一种方式
(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 aa (ssadd (entlast) ss))
      (setq i (1+ i))
    )
    (setq aa (ssget "p" '((2 . "原有接入设备-2(GE)"))))
    (setq b 0)
    (repeat num
      (setq aa_nam (ssname aa b))
     (command "EXPLODE" aa_nam "")
      (setq b (1+ b))
      )
)

疯球

请高手帮忙解决下

疯球

还有，能不能改成在我输入5的时候，其实是6等分

疯球

坐等高人！

疯球

请大神出来帮帮忙吧！！

疯球

继续等大神

疯球

希望能顶出个大神，或则小神也行啊

疯球

弱弱的再顶下

疯球

来个人吧！！