[LISP函数]： 如何编辑一个类似偏移(offset)命令

aliu22

如何编辑一个类似偏移(offset)命令,并且可以把开始选择的那条线删除,就像移动(move)一样方便.

Underway

offset + erase 如何
or using entmod

zxq0220

最初由 aliu22 发布
[B]如何编辑一个类似偏移(offset)命令,并且可以把开始选择的那条线删除,就像移动(move)一样方便. [/B]

编辑可以用WINDOWS的记事本呀。

程序可以这样写：
[php]
(DEFUN C:OFFS ()
(SETVAR "CMDECHO" 0)
(SETQ DISP (IF (< (GETVAR "OFFSETDIST") 0) Through (RTOS (GETVAR "OFFSETDIST") 2 3)))
(INITGET "Through ")
(SETQ DD (GETDIST (STRCAT "Offset distance or Through <" DISP ">")))
(SETVAR "OFFSETDIST" (IF (= DD "Through") -1 (IF DD DD (GETVAR "OFFSETDIST"))))
(IF (SETQ SS (ENTSEL "\nSelect object to offset :")) (PROGN
  (SETQ PT (GETPOINT(IF (< (GETVAR "OFFSETDIST") 0) "Through point" "Side to offset")))
  (COMMAND "OFFSET" "" (CADR SS) PT "" "ERASE" (CAR SS) "")
))
(PRINC)
)
[/php]

aliu22

请问为什么要把offsetdist的值设为大于0呢