[LISP函数]：看这双向offset程序

conn

看看这个程序好不好用。


(defun c:text(/ a b b1 p1 d pckbox)
(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")
(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))
(princ "\n当前偏移量 <")(princ #parof)
(setq answer(getstring ">: "))
(if (/= (atof answer) 0.0)(setq #parof(atof answer)))
        (princ line)
        (setq ent(entsel "\n拾取线： "))
        (setq point(cadr ent))
        (princ line)
        (setq side(getpoint "\n拾取要偏移的一方： "))
        (setq dist(distance side point))(setq ang(angle side point))
        (if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))
                (setq ang(- 0 ang))(setq ang(- pi ang))
        );end if
        (setq other(polar point ang dist))
        (command "offset" #parof ent side ent other "")
        (entdel(car ent))


(princ)
(princ)
)

aeo

既然是双向offset，还要"要偏移的一方"干什么.