[lisp函数]：编程申请

zzt21963

[编程申请]如何用lisp编写一个程序，就是具有offset的功能，但必须删除被offset的对象（源对象）

841594

试试这段lisp程序：

(defun c:odsset (/ ens pt ofd ss)
  (initget "T")
  (setq        ofd (getdist
              (strcat "\n指定偏移距离或 [通过(T)] <"
                      (if (= -1.0 (setq ls (getvar "offsetdist")))
                        "通过"
                        (rtos ls)
                      )
                      ">:"
              )
            )
        ss (ssadd)
  )
  (cond
    ((= ofd "T") (setvar "offsetdist" -1.0))
    (ofd (setvar "offsetdist" ofd))
    (1)
  )
  (command "offset" "")
  (while (setq ens (entsel "\n选择要偏移的对象或 <退出>: "))
    (command ens)
    (setq pt (getpoint "\n指定偏移方向或通过点: "))
    (command pt)
    (ssadd (car ens) ss)
  )
  (command nil)
  (command "erase" ss "")
  (princ)
)