关于偏移删除

xiao88gang

(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

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

xiao88gang

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

可以的，偏移之后，再删除一条。