谁来帮我完成这个双线偏移的代码！

sunnylhj

这个单线变双线的代码是 “无痕” 写的，我想改成像系统自的“offset”命令的"Through" 一样，代码只完成了一半就不会！请前辈们指教。

2. (defun c:x2 (/ ss vss)   
   
3.    (princ "\nSingle line to Double line -------Program by 无痕  Program revised by ShingYatChun")
   
4.    (initget 128 "Through")
   
5.    (if (or (= dist nil) (= dist 0))
   
6.     (setq s "Through")
   
7.     (setq s (rtos dist))
   
8.     )
   
9.    (setq s (cond (s:s) (s))
   
10.      TmpStr (strcat "\nSpecify offset distance or [Through] <" s ">: ")
    
11.      s (cond ((getkword TmpStr))(s:s ))
    
12.    )
    
13.   (if (= s nil)
    
14.     (setq s "Through")
    
15.     (setq dist (atof s))
    
16.   )
    
17.    (setq ss (ssget   '((0 . "*line,arc,ellipse,circle")) )
    
18.        vss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
    
19.          ;dist (getdist "\nSpecify offset distance or Through:")
    
20.      )
    
21.    (vlax-for obj vss (vla-offset obj dist)(vla-offset obj (- 0 dist)))
    
22.    (princ (strcat "\nProgram processing is complete"))
    
23.    (prin1)
    
24. )

(defun c:x2 (/ ss vss)   <br />    (princ "\nSingle line to Double line -------Program by 无痕  Program revised by ShingYatChun")<br />    (initget 128 "Through")<br />    (if (or (= dist nil) (= dist 0))<br />     (setq s "Through")<br />     (setq s (rtos dist))<br />     )<br />    (setq s (cond (s:s) (s))<br />      TmpStr (strcat "\nSpecify offset distance or [Through] <" s ">: ")<br />      s (cond ((getkword TmpStr))(s:s ))<br />    )<br />   (if (= s nil)<br />     (setq s "Through")<br />     (setq dist (atof s))<br />   )<br />    (setq ss (ssget   '((0 . "*line,arc,ellipse,circle")) )<br />        vss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))<br />          ;dist (getdist "\nSpecify offset distance or Through:")<br />      )<br />    (vlax-for obj vss (vla-offset obj dist)(vla-offset obj (- 0 dist)))<br />    (princ (strcat "\nProgram processing is complete"))<br />    (prin1)<br /> )