让一条直线垂直向上偏移，可偏移不对？？

bearbear1

想让一直线200 向上或向下偏移 200的距离，结果是偏移了，可不是想要的结果，请问问题出在什么地方

 

(defun c:wc2()
        (setvar "osmode" 16383)
        (setvar "ORTHOMODE" 1)
        (setq pa (getpoint "请输入第一点"))
        (setq w (getreal "\n线长"))
        (setq pb (polar pa 0 w))
        (command "pline" pa pb "")
        (setq en (entlast))
        (setq txgd (getreal "偏移距离"))
        (setq pup(polar pa (/ pi 2) txgd))
        (command "copy" en "" pa "" pup "")
        ;(command "offset" w en  )
 ;(setq en ())

 

)

 

 

秋枫

 (command "copy" en "" pa "" pup "")
改为

 (command "copy" en "" pa pup "")

另，建议GetReal改为GetDist

 

建议你学习使用Vlisp的调试器。

非常

感谢