绘制画十字线功能，画不到中心且长短不一是怎么回事

lohas1118

;;;;;;;绘制画十字线功能
(DEFUN C:HS (/ VS PC LS C CX CY VSL PT1 PT2 PT3 PT4)
       (SETQ VS (GETVAR "VIEWSIZE"))
       (SETQ PC (GETVAR "VIEWCTR"))
       (SETQ LS (* 1.4 VS))
    (WHILE   ;画十字线功能可以媲美于MasterCAM的功能,您试试?!
       (SETQ C (GETPOINT "\n SELECT a POINT:"))
       (SETQ CX (CAR C)
             CY (CADR C)
             PCX (CAR PC)
             PCY (CADR PC)
             VS1 (/ VS 2)
             LS1 (/ LS 2)
             PT1 (LIST (- PCX LS1) CY)
             PT2 (LIST (+ PCX LS1) CY)
             PT3 (LIST CX (+ PCY VS1))
             PT4 (LIST CX (- PCY VS1))
       )
             (COMMAND "LINE" PT1 PT2 "")
             (COMMAND "LINE" PT3 PT4 "")
       )
)

Andyhon

会不会是捕捉在作怪

lohas1118

Andyhon 发表于 2012-3-28 10:37
会不会是捕捉在作怪

那应该如何设置呢，烦请指点。

langjs

几行代码，错误百出

lohas1118

langjs 发表于 2012-3-29 16:24
几行代码，错误百出

不会好么惨吧，请高人指点[em0]

langjs

lohas1118 发表于 2012-3-29 16:26
不会好么惨吧，请高人指点

PT1 (LIST (- PCX LS1) CY)
这几个坐标点算的不对

lohas1118

langjs 发表于 2012-3-29 16:46
PT1 (LIST (- PCX LS1) CY)
这几个坐标点算的不对

多谢指点