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
页: [1]
查看完整版本: 有思路，有源码，没基础，难整合！求助！