xiao88gang 发表于 2018-4-4 20:54:48

关于偏移删除

(defun c:OE (/ a )
(terpri)
(setvar "cmdecho" 1)
(setvar "menuecho" 0)
(setq a (entsel "select object to offset:"))
(command "offset" pause a pause "")
(command "erase" a "")
)
这个偏移删除程序,只能对单条线起作用。我就想能不能实现平行的两条线,删除其中的一条,另外一条往之前的两条线偏移1/2,如何实现?望高手指点。

renhaitao_nice 发表于 2018-4-5 08:04:49

你让它开始就偏移1/2不行吗

xiao88gang 发表于 2018-4-6 14:08:06

renhaitao_nice 发表于 2018-4-5 08:04
你让它开始就偏移1/2不行吗

可以的,偏移之后,再删除一条。
页: [1]
查看完整版本: 关于偏移删除