CAD中用lisp程序实现批量偏移_求一个cad lisp 双向偏移的代码

(defunc:gg(/abb1p1dpckbox)(PRINC"\双向偏移$2005.8.8胡晓航$")(setqd20p1nilpee(/pi2)e3pckbox(getvar"pickbox")line"")(if(=#parofnil)(setq#parof(/(getvar"viewsize")10)))(pr...

(defun c:gg (/ a b b1 p1 d pckbox)

(PRINC "\ 双向偏移 $2005.8.8胡晓航$ ")

(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")

(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))

(princ "\n当前偏移量

(setq answer(getstring ">: "))

(if (/= (atof answer) 0.0)(setq #parof(atof answer)))

(princ line)

(setvar "pickbox" pckbox)

(setq ent(entsel "\n拾取线： "))

(setvar "pickbox" 2)

(setq point(cadr ent))

(princ line)

(setq side(getpoint "\n拾取要偏移的一方： "))

(setq dist(distance side point))(setq ang(angle side point))