[编程交流] Autolisp问题

 
(defun FIT (/ SP EP ANG UANG DANG LANG RAD P1 P2 P3 P4 OSM LAY)
 (setq SP (getpoint "\nEnter START of FIT: ")
       EP (getpoint sp "\nEnter END of FIT: ")
       ANG (angle sp ep)
       UANG (+ ang (/ pi 2))
       DANG (+ ang (* pi 1.5))
       LANG (+ ang pi)
       RAD (/ od 2)
       P1 (polar sp uang rad)
       P2 (polar ep uang rad)
       P3 (polar sp dang rad)
       P4 (polar ep dang rad)
 )
   (setvar "cmdecho" 0)
   (setq osm (getvar "osmode")
         lay (getvar "clayer")
   )
    (setvar "osmode" 0)
    (command "line" p1 p2 "" "line" p3 p4 "")
    (setvar "osmode" osm)
    (setvar "cmdecho" 1)
(princ)
)
(defun c:test ()
(setq
 OD (getdist "\nEnter OD: ")
)
(fit)
)

(defun c:FIT (/ *error vlst ovar sp ep ang uang
                dang lang rad p1 p2 p3 p4)
 (defun *error* (msg)
   (if ovar (mapcar 'setvar vlst ovar))
   (if (not (member msg '("Function cancelled" "quit / exit abort")))
     (princ (strcat "\n<< Error: " msg " >>"))
     (princ "\n<<-- Cancelled -->>"))
   (princ))
 (setq vlst '("CMDECHO" "OSMODE")
       ovar (mapcar 'getvar vlst))
 (mapcar 'setvar vlst '(0 0))
 (or fit:dia (setq fit:dia 0.0))  
 (or (and (or OD ID) (setq fit:dia (if OD OD ID)))
     (or (not (setq tmp (getdist (strcat "\nEnter Diameter <" (rtos fit:dia) "> : "))))
         (setq fit:dia tmp)))
 
 (setq SP (getpoint "\nEnter START of FIT: ")
       EP (getpoint sp "\nEnter END of FIT: ")
       ANG (angle sp ep)
       UANG (+ ang (/ pi 2))
       DANG (+ ang (* pi 1.5))
       LANG (+ ang pi)
       RAD (/ fit:dia 2)
       P1 (polar sp uang rad)
       P2 (polar ep uang rad)
       P3 (polar sp dang rad)
       P4 (polar ep dang rad))
    (command "line" p1 p2 "" "line" p3 p4 "")
 
 (mapcar 'setvar vlst ovar)
 (princ))
(defun c:test (/ OD ID)
(if (setq OD (getdist "\nEnter OD: "))
  (c:fit))
 (princ))