疯球 发表于 2020-2-4 17:04:25

块等分图形后，块被炸开

本帖最后由 疯球 于 2020-2-10 10:21 编辑

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

本帖最后由 13529444157 于 2020-2-11 08:53 编辑

疯球 发表于 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))
      )
)

疯球 发表于 2020-2-4 19:11:45

请高手帮忙解决下

疯球 发表于 2020-2-4 20:16:00

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

疯球 发表于 2020-2-5 08:03:32

坐等高人！

疯球 发表于 2020-2-5 12:03:37

请大神出来帮帮忙吧！！

疯球 发表于 2020-2-5 16:13:08

继续等大神

疯球 发表于 2020-2-5 19:11:06

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

疯球 发表于 2020-2-5 22:26:56

弱弱的再顶下

疯球 发表于 2020-2-6 17:13:50

来个人吧！！
页: [1] 2 3 4
查看完整版本: 块等分图形后，块被炸开