[编程交流] Can#039；无法找到原因错误

;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                   CE PROGRAM EST CONÇU POUR DESSINER                    ¦¦¦;
;¦¦¦                      UNE BOITE AUTOUR D'UN MTEXT                        ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                   AUTEUR : CadFrank, Copyright ® 2012                   ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                   Ce sous-program défini les calques                    ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
(defun NouveauCalque (/ lay)
 (if (not (tblsearch "LAYER" "-LU SYMBOLE"))
   (progn
     (command "_layer"           "_n"               "-LU SYMBOLE"
       "_C"           "90"               "-LU SYMBOLE"
       ""           ""
      )
   )
 )                                        ;if
)                                        ; fin NouveauCalque
;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                        Ce sous-program défini les                       ¦¦¦;
;¦¦¦                            parametres initial                           ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
(defun Parametreinitial ()
 (setq retour (list
                (cons "osmode" (getvar 'osmode))
                (cons "clayer" (getvar 'clayer))
              )
 )
 (setvar 'OSMODE 0)
   
 retour ; la dernière expression est retournée par la fonction
); fin parametreinitial
;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                        Ce sous-program remet les                        ¦¦¦;
;¦¦¦                            parametres initial                           ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
(defun Parametrefin (retour)
 (foreach p retour
   (setvar (car p) (cdr p))
 )
);fin parametrefin
;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                        Ce sous-program reproduit                        ¦¦¦;
;¦¦¦                                une ligne                                ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
(defun _Line (pt1 pt2)
   (entmakex (list '(0 . "LINE")
                   '(8 . "-LU SYMBOLE")
                   '(62 . 61)
                   (cons 10 pt1)
                   (cons 11 pt2)
             )
   )
 );fin
;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                        Ce sous-program reproduit                        ¦¦¦;
;¦¦¦                              une polyligne                              ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
 (defun _Poly (po1 po2 po3 po4 w clr)
   (entmakex (list '(0 . "LWPOLYLINE")
                   '(100 . "AcDbEntity")
                   '(100 . "AcDbPolyline")
                   '(90 . 5)
                   '(70 . 1)
                   '(8 . "-LU SYMBOLE")
                   (cons 10 po1)
                   (cons 10 po2)
                   (cons 10 po3)
                   (cons 10 po4)
                   (cons 62 clr)
                   (cons 43 w)
             )
   )
 )
;¦¦¦ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¦¦¦;
;¦¦¦                          PROGRAM PRINCIPAL                              ¦¦¦;
;¦¦¦ _______________________________________________________________________ ¦¦¦;
(defun c:bca (/ Entt pt ho ve ang ht p1 p2 p3 p4 p5 p6 p7 p8)
 (vl-load-com)
 (setq init (Parametreinitial))
 (NouveauCalque)
 
 
 
   (if (and
    (not
      (while
        (progn (setvar 'errno 0)
               (setq Entt
                      (car (entsel "\n Sélectionner le MultiText désiré : "))
               )
               (cond
                 ((= 7 (getvar 'errno))
                  (princ "\nDésolé, aucun Mtext sélectionné.")
                 )
                 ((eq 'ename (type Entt))
                  (if (not (eq (cdr (assoc 0 (entget Entt))) "MTEXT"))
                    (princ "\nCeci n'est pas un Mtext.")
                  )
                 )
               )
        )
      )
    )
            Entt
)
     (progn
       (setq Entt (entget Entt))
;(command "Clayer" 
       (setq pt (cdr (assoc 10 Entt))
      ho (cdr (assoc 42 Entt))
      ve (cdr (assoc 43 Entt))
      ang (cdr (assoc 50 Entt))
      ht (cdr (assoc 40 Entt))
)
     
       (setq p1 (polar (polar pt (+ ang pi) (* ht 0.65))
                (+ ang (/ pi 2.))
                (* ht 0.65)
                )
             p3 (polar (setq p2 (polar p1 ang (+ (* (* ht 0.65) 2.) ho)))
                       (+ ang (* pi 1.5))
                       (+ (* (* ht 0.65) 2.) ve)
                )
             p4 (polar p3 (+ ang pi) (+ (* (* ht 0.65) 2.) ho))
             p5 (polar (polar p1 (+ ang pi) (* ht 0.65))
                       (+ ang (/ pi 2.))
                       (* ht 0.65)
                     )
             p6 (polar p5 ang (+ (* (* ht 0.65) 4.) ho))
             p7 (polar p6 (+ ang (* pi 1.5)) (+ (* (* ht 0.65) 4.) ve))
             p8 (polar p7 (+ ang pi) (+ (* (* ht 0.65) 4.) ho))
        )
     
        (mapcar '_Line
                (list p5 p5 p6 p6 p7 p7 p8 p8)
                (list (polar p5 (+ ang (/ pi 2.)) ht)
                      (polar p5 (+ ang pi) ht)
                      (polar p6 (+ ang (/ pi 2.)) ht)
                      (polar p6 ang ht)
                      (polar p7 ang ht)
                      (polar p7 (+ ang (* pi 1.5)) ht)
                      (polar p8 (+ ang pi) ht)
                      (polar p8 (+ ang (* pi 1.5)) ht)
                 )
            )
            (_Poly p1 p2 p3 p4 (/ ht 2.) 256)
            (_Poly p5 p6 p7 p8 0.0 61)
          )
       
     );if
 (parametrefin init)
 (prompt "\nMtext selectionné ! ")
 (princ)
 
 );fin