[LISP函数]：双线偏移使用问题

Jason1010

我在网站下载了双线偏移LISP原代码，使用的时候发现，双线偏移只能为默然设置，每次更改设置，必须每次重新设。我想问，为什么不能设置一次后，以后使用也能按上次设置要求双线偏移。
请高手帮我修改修改双线偏移LISP原代码。
+++++++++++++++++++++++++++++++++++
(defun C:sxpy(/ ss1 entName1 OffDist n i sPt Pt1 Pt2 tAngle IsDelete IsCurLayer oldOSnap)
;(CMDINIT0);保存用户系统变量.
(vl-load-com)
(setq oldOSnap (getvar "OSmode"))
(if (= #AY_OFF2ISDELETE nil) (setq #AY_OFF2ISDELETE "N"))
(if (= #AY_OFF2ISCURLAYER nil) (setq #AY_OFF2ISCURLAYER "N"))
(initget "S" 0)
(setq OffDist (getdist (strcat "\n设置(S)/指定单向偏移距离<" (rtos (getvar "offsetdist")) ">:")))
(if (= (Type OffDist) 'STR)
(progn
(initget "Y N")
(setq IsDelete (getkword (strcat "\n是(Y)/否(N)删除原曲线对象?<" #AY_OFF2ISDELETE ">:")))
(if (Null IsDelete) (setq IsDelete #AY_OFF2ISDELETE) (setq #AY_OFF2ISDELETE IsDelete))
(initget "Y N")
(setq IsCurLayer (getkword (strcat "\n是(Y)/否(N)将偏移后的对象置到当前层?<" #AY_OFF2ISCURLAYER ">:")))
(if (Null IsCurLayer) (setq IsCurLayer #AY_OFF2ISCURLAYER) (setq #AY_OFF2ISDELETE IsCurLayer))
(setq OffDist (getdist (strcat "\n指定单向偏移距离<" (rtos (getvar "offsetdist")) ">:")))
);end_progn
);end_if
(if (null OffDist) (setq OffDist (getvar "offsetdist")));
(setq ss1 (ssget ))
(setq n (sslength ss1))
(setq i 0)
(setvar "osmode" 0)
(while (< i n)
(setq entName1 (ssname ss1 i))
(setq sPt (vlax-curve-getStartPoint entName1))
(setq tAngle (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv entName1
(vlax-curve-getparamatpoint entName1
(vlax-curve-getclosestpointto entName1 sPt)))))
(setq Pt1 (polar sPt (+ tAngle (/ pi 2.0)) OffDist))
(setq Pt2 (polar sPt (- tAngle (/ pi 2.0)) OffDist))
(command "_.OFFSET" OffDist entName1 Pt1 "")
(if (= IsCurLayer "Y")
(progn
(setq ent1 (entget (entlast)))
(setq ent1 (subst (cons 8 (getvar "clayer")) (assoc 8 ent1) ent1))
(entmod ent1)
);end_progn
);end_if
(command "_.OFFSET" OffDist entName1 Pt2 "")
(if (= IsCurLayer "Y")
(progn
(setq ent1 (entget (entlast)))
(setq ent1 (subst (cons 8 (getvar "clayer")) (assoc 8 ent1) ent1))
(entmod ent1)
);end_progn
);end_if
(if (= IsDelete "Y") (command"_.Erase" entName1 ""))
(setq i (1+ i))
);end_while
(setvar "osmode" oldOSnap)
(princ)
;(CMDINIT1);恢复用户系统变量.
);end_defun

xlmx-whj

到这再去下一个吧！ 包你好用。http://www.xdcad.net/forum/showthread.php?s=&threadid=641253

Jason1010

谢谢楼上的高手回复。可是你那个稍微简单了，没办法对双向偏移设置。

szmaicy

http://www.aworm.com/mini/showthread.php?t=16&pp=20
21楼代码。