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

偏移

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

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

...可以做到？
sure!

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

晓东找到一个：
(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))
页: [1]
查看完整版本: 偏移