[求助]：求高手看看我写的引线标注LISP程序.

pandoras

各位高手，小弟受人之托，写一个自定义的引线标注程序。
以前从未接触LISP，昨天看了半天别人的LISP。
下面是我自己写的一段。

感觉if语句那一段不太对，
我的理解是判断两点x坐标，如果第二点X坐标大于第一点，就执行后面第一段，否则执行第二段。

不知道对不对？

还有就是程序加载后运行时有问题，请各位帮忙看看。

不胜感激！
下面是代码和效果图


;******************************************************************************
;  Functional Description
;  This Lisp is used to draw quickleader for support no.
;******************************************************************************




(defun c:XX ()   ;define the function
;******************************************************************************
        ;Save System Variables:blipmode,clayer,cmdecho,orthomode,osmode

        (setq oldblipmode (getvar "blipmode"))

          (setq oldclayer (getvar "clayer"))
         
          (setq oldcmdecho (getvar "cmdecho"))
         
          (setq oldorthomode (getvar "orthomode"))
         
          (setq oldsnap (getvar "osmode"))         
         
          (setq scale (getvar "dimscale"))
        ;Get current dimension overall scale

;******************************************************************************
        ;Switch OFF System Variables

        (setvar "blipmode" 0)
       
        (setvar "cmdecho" 0)
       
        (setvar "orthomode" 0)
       
        (setvar "osmode" 167)       
        ;Swith on osmode
        ;1 ENDpoint
        ;2 MIDpoint
        ;4 CENter
        ;32 INTersection
        ;128 PERpendicular
       
        ;(setvar "clayer" dim)
        ;Swith current layer to layer "dim"       
       
        (command "GRAPHSCR")
        ;Close the AutoCAD Text Window
       
;******************************************************************************
        ;Get User Inputs and Initialize
       
        (setq SPNR 1)
        ;Initial support No.
       
        (setq LLENGTH 6)
        ;Initial Horizontal line Length
       
        (setq LOFFSET 0.7)
        ;Initial line offset down
       
        (setq DOTSIZE 1)
        (setq DONUTSIZE (* DOTSIZE scale))
        ;Initial dot size
       
        (setq TWIDTH 0.2)
        (setq PLWIDTH (* scale TWIDTH))       
        ;Pline width Calculations
       
        (setq HT 3)
        (setq TXTHT (* scale HT))       
        ;Text Height Calculations
       
        (while
        ;start of while loop
       
        (setq PT1 (getpoint "\nEnter Start Point: "))
        ;get the start point
       
        (setvar "osmode" 0)       
        ;Swith off osmode
       
        (setq PT2 (getpoint "\nEnter End Point: "))
        ;get the end point
       
        (initget (+ 1 2 4))
        ;check user input
        (setq SPNR (getint (strcat "\nEnter Support No.<"(rtos SPNR 2 0)">: ")))
        ;get support no.

        ;End of User Inputs
;******************************************************************************


;******************************************************************************
        ;Start of Point Calculations
       
        (if
        ;Start of if
       
        (> car(PT2) car(PT1) )       

        (setq PT3  (polar PT2 (dtr 0.0) (* scale LLENGTH))
              PT4  (polar PT2 (dtr 270.0) (* scale LOFFSET))
              PT5  (polar PT3 (dtr 270) (* scale LOFFSET))
              PT6  (polar PT2 (dtr 0.0) (* scale (/ LLENGTH 2)))
              PT7  (polar PT6 (dtr 90.0) (* scale (/ LLENGTH 2)))
        ); case X of PT2 > PT1
       
        (setq PT3  (polar PT2 (dtr 180.0) (* scale LLENGTH))
              PT4  (polar PT2 (dtr 270.0) (* scale LOFFSET))
              PT5  (polar PT3 (dtr 270) (* scale LOFFSET))
              PT6  (polar PT2 (dtr 180.0) (* scale (/ LLENGTH 2)))
              PT7  (polar PT6 (dtr 90.0) (* scale (/ LLENGTH 2)))
        ); case X of PT2 < PT1
       
        )
        ;Start of if
       
        ;End of Point Calculations
       

               
;******************************************************************************
        ;Start of Command Function

        (command "DONUT" "0" DONUTSIZE PT1 ""
                 "Line" PT1 PT2 ""
                 "Line" PT2 PT3 ""
                 "PLine" PT4 "W" PLWIDTH PLWIDTH PT5 ""
                 "TEXT" "J" "MC" PT7 TXTHT "" SPNR ""
        )        ;End Command
        ;End of Command Function
;******************************************************************************

        (setq SPNR (+ 1 SPNR))
       
        (setvar "osmode" 167)       
        ;Swith on osmode
        ;1 ENDpoint
        ;2 MIDpoint
        ;4 CENter
        ;32 INTersection
        ;128 PERpendicular

        );end of while loop
       
;******************************************************************************
        ;Reset System Variable       
       
        (setvar "blipmode" oldblipmode)
       
        (setvar "cmdecho" oldcmdecho)
       
        (setvar "orthomode" oldorthomode)
       
        (setvar "osmode" oldsnap)       
       
        (setvar "clayer" oldclayer)


;******************************************************************************
        (princ)
        ;finish cleanly

)        ;end of defun

;******************************************************************************
;This function converts Degrees to Radians.

(defun dtr (x)
        ;define degrees to radians function

        (* pi (/ x 180.0))
        ;divide the angle by 180 then
        ;multiply the result by the constant PI

)        ;end of function

;******************************************************************************
(princ)        ;load cleanly
;******************************************************************************

david96007

car (PT2)

应该为(car pt2)