有思路，有源码，没基础，难整合！求助！

aaacjh · 发表于 2012-5-17 23:03:12

本帖最后由 aaacjh 于 2012-5-17 23:04 编辑

思路：对框选对象进行合并多段线---利用command倒圆角命令对所有多段线进行批量倒圆角---分解所有对象。

;如何改写以下未完成的整合程序，实现框选对象批量倒R5圆角后并分解所有元素
(defun C:F5 ()
  (setq ss(ssget))
  (command "_.PEDIT" "m" pe "" "y" "j" "0.0" "")
  (command "fillet" "r" "5")
  (while (setq s1 (entsel "\n-->请点选矩形的任意一条边:"))
(if (= (cdr(assoc 0 (entget(car s1)))) "LWPOLYLINE")
(command "_.fillet" "P" s1)
(command "_.fillet" s1 PAUSE)  ) )
  )

求助操手们！先行谢过！

utx552258 · 发表于 2012-5-18 00:44:58

出来混，迟早要还的。

心是为何物 · 发表于 2012-5-20 19:10:10

有需要求加QQ269483126

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

有思路，有源码，没基础，难整合！求助！

相关帖子