lisp ne fonctionne pas

[Big666]

bonjour

j'ai trouver ce lisp mais il ne fonctionne pas

 

voici le code

;REID REAGAN 1-25-95

;PROGRAM FOR DOOR WITH TRIM AND KNOB

(DEFUN C:porte()

(SETVAR "CMDECHO" 0)

(SETQ HOR (GETDIST "\nHORIZONTAL DISTANCE:"))

(SETQ VER (GETDIST "\nVERTICAL DISTANCE:"))

(SETQ TR (GETDIST "\nTRIM WIDTH:"))

(SETQ KNOB (GETDIST "\nENTER DOOR KNOB RADIUS:"))

(SETQ CL (GETVAR "CLAYER"))

(SETQ SP (GETPOINT "\nPICK LOWER LEFT CORNER OF OPENING:"))

(SETQ P2 (POLAR SP (DTR 0) HOR))

(SETQ P3 (POLAR SP (DTR 180) TR))

(SETQ P4 (POLAR P2 (DTR 0) TR))

(SETQ P5 (POLAR P4 (DTR 90) (+ TR VER)))

(SETQ P6 (POLAR P5 (DTR 270) TR))

(SETQ P7 (POLAR P6 (DTR 180) TR))

(SETQ P8 (POLAR P7 (DTR 180) HOR))

(SETQ P9 (POLAR P8 (DTR 180) TR))

(SETQ P10 (POLAR P9 (DTR 90) TR))

(SETQ P11 (POLAR P10 (DTR 270) (+ TR VER)))

(COMMAND "LAYER" "M" "DOOR" "C" "YELLOW" "" "")

(COMMAND "LINE" SP P8 P7 P2 P3 P10 P8 P10 P5 P7 P5 P4 P2 C)

(SETQ P12 (POLAR SP (DTR 90) 36))

(SETQ P13 (POLAR P12 (DTR 0) 3))

(COMMAND "LAYER" "M" "KNOB" "C" "GREEN" "" "")

(COMMAND "CIRCLE" P13 KNOB "")

(SETVAR "CLAYER" CL)

)

(DEFUN DTR (a) (* Pi (/ a 180.0)))

(PRINC)

 

merci pour votre aide

[Carboleum]

Quel est le message d'erreur ?

[Big666]

celui ci

Commande inconnue "PORTE". Appuyez sur F1 pour obtenir de l'aide.

[Carboleum]

Soit ton lisp est pas chargé -> un peu de lecture: http://cadxp.com/index.php?/topic/14323-charger-un-lisp/

 

Soit un problème dans un command qui envoie une chaîne vide à l’interpréteur, ça arrive de temps en temps.

charge ce lisp avant de relancer ta commande:

(defun *error* (m) (vl-bt))

Tu auras plus d'info sur l'erreur.

[didier]

Coucou

 

j'aime pas trop répondre au copier-coller

mais comme je ne viens plus souvent je ne vais pas faire montre de sale caractère.

 

première chose : mettre les commandes en "international"

 

(COMMAND "LAYER" "M" "DOOR" "C" "YELLOW" "" "") devient

(COMMAND "_LAYER" "_M" "DOOR" "_C" "2" "" "")

 

si ça ne fonctionne pas mieux, reviens à la charge

 

amicalement

[-Olivier-]

Hello,

 

Le programme date de 95. Autocad à évolué depuis :(rires forts):

La variable VER ne peut plus être utilisée la modifier par VERT, par exemple, les 3 fois où elle intervient.

La commande -layer à évoluée aussi et présente semble t'il des options supplémentaire non prévu :unsure:

 

Attention, la variable CMDECHO n'est pas réactivée en fin de programme.

 

Il me reste encore des erreurs (verrou clavier ???)

 

A+

[Big666]

merci

âpres avoir suivie vos conseil je n'est rien obtenue de mieux .

ce lisp doit être trop vieux et inutilisable .

[bonuscad]

ce lisp doit être trop vieux et inutilisable

 

Rien à voir avec son ancienneté ?!?!

 

Il a été écrit sous une version Anglaise, si on l'adapte comme il faut, il fonctionne...

 

Cependant il n'est pas bien écrit, ou tout du moins très succinct. Les entrées utilisateurs ne sont pas contrôlées, pas de gestion d'erreur ET SURTOUT la variable OSMODE n'est pas surveillée (le dessin risque d'être surprenant si les accroches objet sont actif)

Donc en gardant le code brut (sans mes observations), voici la correction:

;REID REAGAN 1-25-95
;PROGRAM FOR DOOR WITH TRIM AND KNOB
(DEFUN C:porte( / HOR VER TR KNOB CL SP P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13)
(SETVAR "CMDECHO" 0)
(SETQ HOR (GETDIST "\nHORIZONTAL DISTANCE:"))
(SETQ VER (GETDIST "\nVERTICAL DISTANCE:"))
(SETQ TR (GETDIST "\nTRIM WIDTH:"))
(SETQ KNOB (GETDIST "\nENTER DOOR KNOB RADIUS:"))
(SETQ CL (GETVAR "CLAYER"))
(SETQ SP (GETPOINT "\nPICK LOWER LEFT CORNER OF OPENING:"))
(SETQ P2 (POLAR SP (DTR 0) HOR))
(SETQ P3 (POLAR SP (DTR 180) TR))
(SETQ P4 (POLAR P2 (DTR 0) TR))
(SETQ P5 (POLAR P4 (DTR 90) (+ TR VER)))
(SETQ P6 (POLAR P5 (DTR 270) TR))
(SETQ P7 (POLAR P6 (DTR 180) TR))
(SETQ P8 (POLAR P7 (DTR 180) HOR))
(SETQ P9 (POLAR P8 (DTR 180) TR))
(SETQ P10 (POLAR P9 (DTR 90) TR))
(SETQ P11 (POLAR P10 (DTR 270) (+ TR VER)))
(COMMAND "_.-LAYER" "_MAKE" "DOOR" "_COLOR" "_YELLOW" "" "")
(COMMAND "_.LINE" SP P8 P7 P2 P3 P10 P8 P10 P5 P7 P5 P4 P2 "_CLOSE")
(SETQ P12 (POLAR SP (DTR 90) 36))
(SETQ P13 (POLAR P12 (DTR 0) 3))
(COMMAND "_.-LAYER" "_MAKE" "KNOB" "_COLOR" "_GREEN" "" "")
(COMMAND "_.CIRCLE" P13 KNOB)
(SETVAR "CLAYER" CL)
)
(DEFUN DTR (a / ) (* Pi (/ a 180.0)))
(PRINC)

[Big666]

Merci pour votre aide ce lisp fonctionne, mais ce n'est pas extraordinaire