偏移

king、 · 发表于 2017-11-7 11:54

使用偏移命令，偏移后的线段自动变为红色，然后Y删除原线段，N保留原线段，可以做到？

Andyhon · 发表于 2017-11-7 13:04

...可以做到？
sure!

king、 · 发表于 2017-11-27 14:40

晓东找到一个：
(DEFUN C:OC() (vl-cmdf "_.undo" "_group")
            (mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))
            (setq di (getstring "\输入偏移距离:"))
            (setq o (ssget))
            (setq po (getpoint "\nSide to offset"))
            (setq LAY (getvar "CLAYER"))
            (if (/= di nil)
            (COMMAND "OFFSET" di o po "")
            (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
            (if (= di nil)
            (COMMAND "OFFSET" "" o po "")
            (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
            (vl-cmdf "_.undo" "_end")(princ))

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

[提问] 偏移