;***************2,畫十字線功能********************************
(DEFUN C:HV (/ 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 "")
       )
)
