[编程交流] 中线LISP错误

;|
   Centre-Line by Lee McDonnell
       November 2008
|;
(defun c:cl (/ oldlay oldsnap c1 c1ent c1cent c1rad crat)
   
;     --- Error Trap ---
   
   (defun *error*(msg)
   (if oldVars
       (mapcar 'setvar varLst  oldVars)
   ); end if
   (princ "\nError or Esc pressed... ")
   (princ)
   ); end of *error*
 
       (setq varLst    (list "CMDECHO" "OSMODE" "CLAYER" "DIMSCALE")
         oldVars    (mapcar 'getvar varLst)
   ); end setq 
;    --- Error Trap ---
   (setvar "cmdecho" 0)
   (setq oldlay (getvar "clayer"))
   (setq oldsnap (getvar "osmode"))
   (mapcar 'cllayer '("1" "2" "3" "4" "5"))
   (if     (not (getenv "cl:ratio"))
       (setenv "cl:ratio" "122")
   ) ; end if
   (princ (strcat "\nType "CLSET" to Change Base Variables. << Current Settings >> C/L Ratio: " 
           (getvar "cl:ratio")))
   (while
       (setq c1 (entsel "\nSelect Circle for Centre-line: "))
       (setq c1ent (entget (car c1)))
       (if     (= (cdr (assoc 0 c1ent)) "CIRCLE")
           (progn
               (setq     c1cent     (assoc 10 c1ent)
                   c1rad    (assoc 40 c1ent)
                   crat    (/ (atof (getenv "cl:ratio")) 100)
               ) ; end setq
               (setvar "osmode" 0)
               (setvar "clayer" "5")
               (command "-linetype" "S" "CENTER" "")
               (command "_line"
                   (polar
                       c1cent
                       pi
                       (* clrad crat)
                   ) ; end polar
                   (polar
                       c1cent
                       0
                       (* clrad crat)
                   ) ; end polar
                   ""
               ) ;end line
               (command "_line"
                   (polar
                       c1cent
                       (/ (* 3 pi) 2)
                       (* clrad crat)
                   ) ; end polar
                   (polar
                       c1cent
                       (/ pi 2)
                       (* clrad crat)
                   ) end polar
                   ""
               ) ; end line
           ) ; end progn
           (alert "\nEntity is not a Circle.")
       ) ; end if
   ) ; end while
   (setvar "clayer" oldlay)
   (setvar "osmode" oldsnap)
   (setvar "cmdecho" 1)
   (princ "\nFunction Complete.")
   (princ)
) ; end cl
(defun cllayer (lay)
   (if     (not (tblsearch "LAYER" lay))
           (command "_.-layer" "_m" lay "_c" lay lay "")
   ) ; end if
   (princ)
) end cllayer
(defun c:clset (/ cratio)
   (if     (not (getenv "cl:ratio"))
       (setenv "cl:ratio" "122")
   ) ; end if
   (princ (strcat "\n<< Current Settings >> C/L Ratio: " (getvar "cl:ratio") "%"))
   (if    (setq cratio (getreal (strcat "\nSpecify C/L as % of Circle Radius <" 
                       (getenv "cl:ratio") 
                       "> : ")))
       (setenv "cl:ratio" (rtos cratio))
   ) ; end if
   (princ "\nBase Variables Set.")
   (princ)
) ; end clset

(defun c:cce (/ lt osn oucs ss b d d1 ename elist cp r pn ps pw pe r2)
 (command "cmdecho" (getvar "cmdecho"))
 (setq lt "center")
 (if (= (tblsearch "ltype" lt) nil)
   (command "-linetype" "l" lt "acad.lin" ""))
 (princ "\n Center cross: ")
 (cond
   ((setq ss (ssget '((-4 . "<OR")
               (0 . "CIRCLE,ARC,ELLIPSE")
               (-4 . "OR>")
              )
      )
    )
    (setq b (sslength ss))                ; = number of circles in ss
    (setq d b)
    (repeat b
      (setq d1           (1- d)
     ename (ssname ss d1)        ; = last entity in ss
     elist (entget ename)
     cp           (cdr (assoc 10 elist))
     r           (cdr (assoc 40 elist))
     d           (* r 1.5)                ; greater this number, greater overlap of center lines (%)
     pn           (polar cp (* pi 0.5) d)
     ps           (polar cp (* pi 1.5) d)
     pw           (polar cp pi d)
     pe           (polar cp 0 d)
     d           d1
     r2           (* r 0.25)
      )
                                ;(setvar "osmode" 0)
      (entmake        (list
          (cons 0 "LINE")
          (cons 6 lt)
          (cons 62 3)
          (cons 10 pn)
          (cons 11 ps)
          (cons 48 r2)
          (cons 210 (list 0.0 0.0 1.0))
        )
      )
      (entmake        (list
          (cons 0 "LINE")
          (cons 6 lt)
          (cons 62 3)
          (cons 10 pw)
          (cons 11 pe)
          (cons 48 r2)
          (cons 210 (list 0.0 0.0 1.0))
        )
      )
    )
   )
   (T (princ "\n No circle selected! "))
 )
 (if (not (tblsearch "ltype" lt))
   (princ (strcat "\n Linetype "" lt "" was not loaded."))
 )
 (princ)
)
(prompt "\n Type < cce > for circle or arc center lines")

 
(defun c:clset (/ cratio)
(if (not (getenv "cl:ratio"))
(setenv "cl:ratio" "122")
) ; end if
(princ (strcat "\n<< Current Settings >> C/L Ratio: " (getenv "cl:ratio") "%")) ; chg getvar to getenv
(if (setq cratio (getreal (strcat "\nSpecify C/L as % of Circle Radius <" 
(getenv "cl:ratio") 
"> : ")))
(setenv "cl:ratio" (rtos cratio))
) ; end if
(princ "\nBase Variables Set.")
(princ)
) ; end clset
(defun cllayer (lay) ; moved from end
(if (not (tblsearch "LAYER" lay))
(command "_.-layer" "_m" lay "_c" lay lay "")
) ; end if
(princ)
) ; end cllayer - added semicolon
; --- Error Trap ---
(defun cl_error (msg)
(if oldVars
(mapcar 'setvar varLst oldVars)
); end if
(princ "\nError or Esc pressed... ")
(setq *ERROR* sys_error)
(princ)
); end of *error*
; --- Error Trap ---
(defun c:cldraw (/ oldlay oldsnap c1 c1ent c1cent c1rad crat)
(setq sys_error *ERROR*)
(setq *ERROR* cl_error)
(setq varLst (list "CMDECHO" "OSMODE" "CLAYER" "DIMSCALE")
oldVars (mapcar 'getvar varLst)
); end setq 
(setvar "cmdecho" 0)
(setq oldlay (getvar "clayer"))
(setq oldsnap (getvar "osmode"))
(mapcar 'cllayer '("1" "2" "3" "4" "5"))
(if (not (getenv "cl:ratio"))
(setenv "cl:ratio" "122")
) ; end if
(princ (strcat "\nType "CLSET" to Change Base Variables. << Current Settings >> C/L Ratio: " 
(getenv "cl:ratio"))) ; fix
(while
(setq c1 (entsel "\nSelect Circle for Centre-line: "))
(setq c1ent (entget (car c1)))
(if (= (cdr (assoc 0 c1ent)) "CIRCLE")
; fixed c1rad & add cdr in progn
(progn
(setq c1cent (cdr (assoc 10 c1ent))
c1rad (cdr (assoc 40 c1ent))
crat (/ (atof (getenv "cl:ratio")) 100)
) ; end setq
(princ "\nc1rad = ")(princ c1rad)
(princ "\ncrat = ")(princ crat)
(setvar "osmode" 0)
(setvar "clayer" "5")
(command "-linetype" "S" "CENTER" "")
(command "_line"
(polar
c1cent
pi
(* c1rad crat)
) ; end polar
(polar
c1cent
0
(* c1rad crat)
) ; end polar
""
) ; end line
(command "_line"
(polar
c1cent
(/ (* 3 pi) 2)
(* c1rad crat)
) ; end polar
(polar
c1cent
(/ pi 2)
(* c1rad crat)
) ; end polar
""
) ; end line
) ; end progn
(alert "\nEntity is not a Circle.")
) ; end if
) ; end while
(setvar "clayer" oldlay)
(setvar "osmode" oldsnap)
(setvar "cmdecho" 1)
(setq *ERROR* sys_error)
(princ "\nFunction Complete.")
(princ)
) ; end cl

;|
   Centre-Line by Lee McDonnell
       November 2008
|;
(defun c:cl (/ oldlay oldsnap c1 c1ent c1cent c1rad crat)
   
;     --- Error Trap ---
   
   (defun *error*(msg)
   (if oldVars
       (mapcar 'setvar varLst  oldVars)
   ); end if
   (princ "\nError or Esc pressed... ")
   (princ)
   ); end of *error*
 
       (setq varLst    (list "CMDECHO" "OSMODE" "CLAYER" "DIMSCALE")
         oldVars    (mapcar 'getvar varLst)
   ); end setq 
;    --- Error Trap ---
   (setvar "cmdecho" 0)
   (setq oldlay (getvar "clayer"))
   (setq oldsnap (getvar "osmode"))
   (mapcar 'cllayer '("1" "2" "3" "4" "5"))
   (if     (not (getenv "cl:ratio"))
       (setenv "cl:ratio" "122")
   ) ; end if
   (princ (strcat "\nType "CLSET" to Change Base Variables. << Current Settings >> C/L Ratio: " 
           (getenv "cl:ratio")))
   (while
       (/= (setq c1 (entsel "\nSelect Circle for Centre-line: ")) nil)
       (setq c1ent (entget (car c1)))
       (if     (= (cdr (assoc 0 c1ent)) "CIRCLE")
           (progn
               (setq     c1cent     (cdr (assoc 10 c1ent))
                   c1rad    (cdr (assoc 40 c1ent))
                   crat    (/ (atof (getenv "cl:ratio")) 100)
               ) ; end setq
               (setvar "osmode" 0)
               (setvar "clayer" "5")
               (command "-linetype" "S" "CENTER" "")
               (command "_line"
                   (polar
                       c1cent
                       pi
                       (* c1rad crat)
                   ) ; end polar
                   (polar
                       c1cent
                       0
                       (* c1rad crat)
                   ) ; end polar
                   ""
               ) ;end line
               (command "_line"
                   (polar
                       c1cent
                       (/ (* 3 pi) 2)
                       (* c1rad crat)
                   ) ; end polar
                   (polar
                       c1cent
                       (/ pi 2)
                       (* c1rad crat)
                   ) ; end polar
                   ""
               ) ; end line
           ) ; end progn
           (alert "\nEntity is not a Circle.")
       ) ; end if
       (command "-linetype" "S" "Bylayer" "")
   ) ; end while
   (setvar "clayer" oldlay)
   (setvar "osmode" oldsnap)
   (setvar "cmdecho" 1)
   (princ "\nFunction Complete.")
   (princ)
) ; end cl
(defun cllayer (lay)
   (if     (not (tblsearch "LAYER" lay))
           (command "_.-layer" "_m" lay "_c" lay lay "")
   ) ; end if
   (princ)
) ; end cllayer
(defun c:clset (/ cratio)
   (if     (not (getenv "cl:ratio"))
       (setenv "cl:ratio" "122")
   ) ; end if
   (princ (strcat "\n<< Current Settings >> C/L Ratio: " (getenv "cl:ratio") "%"))
   (if    (setq cratio (getreal (strcat "\nSpecify C/L as % of Circle Radius <" 
                       (getenv "cl:ratio") 
                       "> : ")))
       (setenv "cl:ratio" (rtos cratio))
   ) ; end if
   (princ "\nBase Variables Set.")
   (princ)
) ; end clset

5