Auto Lisp. Visual Lisp

Hop!

"Si c'est stupide et que ça marche,
        alors ce n'est pas stupide"

Jour,
jconnais po , mais vla des liens :
http://www.wagogo.com/~cadagogo/dlispgen.htm

http://perso.wanadoo.fr/didier.duhem/developp.htm

http://xarch.tu-graz.ac.at/autocad/news/faq/page5101.htm

http://perso.wanadoo.fr/maxence.delannoy/


schmol
*  le chaînon manquant *

Voici un autre lien mais il est en anglais desole

http://www.afralisp.com/tutor.htm

j'espere que cela d'aidera quand meme

a plus

Le plus simple est d'aller directement dans l'aide d'Autocad qui n'est pas trop mal ficellée. Help>Developer>help
Pour commencer : "Visual LISP Developer's Guide"
Ensuite, pour apprendre les fonctions et comment ça marche réellement, il faut y aller en tatonnant en se référent à "AutoLISP Reference".

Bon courage

Bonjour,
Essayez le site www.didier-lourdelle.fr

Virgile

Re-Bonjour,
Un autre site plus pédagogique pour commencer la programmation en lisp sous autocad quand on ne connait pas le systeme:
http://antoineprieurdrevon.free.fr/

Virgile

Salut c'est moi ,
qui peu importe, je sais seulement que je peux bien t'aider ,d'une maniere ou autre ,des documents oui, je peux meme te mettre en plein domaine .
tient toi bien.
a+

Salut c'est moi ,
qui peu importe, je sais seulement que je peux bien t'aider ,d'une maniere ou autre ,des documents oui, je peux meme te mettre en plein domaine .
tient toi bien.
a+

Salut A TOI DE DEVINER,
voilla, je sui tre curieux de savoir comment comencer, aussi et bien sur surtout ou trouver de la doc gratos.
il faut savoir que je ne connait rien en programation, sauf que je l4aime bocoup, et je veu l4aprendre.
merci.

Salut

http://www.cadxp.com
c'est un forum comme celui-ci exclusivement destiné aux AutoCadiens, Catien .... et en français

A laisser votre OS en Administrateur
vous en perdez vos cheveux :p

J'ai fais 2ans d'autolisp (version 12) et j'ai une */- 30 pages des détails des diverses fonctions.
Je pense que les syntaxe de base sont inchangées.
Je peux te faire des copies et te les envoyés sous formes d'imprimés.
Si çà te dis, tes coordonnées SVP....
A+.
Un Acadien doublé d'un Linuxien.

Salut....

Mon adresse ??? c'est simple clic sur mon nom tu as mon profil et mon adresse mail j'attendrais ta réponse.

A laisser votre OS en Administrateur
vous en perdez vos cheveux :p

Slt. Qelqu'un pourrait il m'aider. Je voudré rendre utilisable la date sous autolisp pour l'insérer dans un dessin. L'avoir sous la forme JJ/MM/AA quoi. Comment puis je faire. Merci d'avance.

(setq annee (fix (/ (getvar 'cdate) 10000)))
(setq mois (- (fix (/ (getvar 'cdate) 100)) (* annee 100)))
(setq jour (- (fix (getvar 'cdate)) (* mois 100) (* annee 10000)))
;;;
;;; Affiche le commentaire
;;;
(Princ (strcat "\nCe fond de plan a été traité par "
(getvar "CPROFILE")
" le "
(rtos jour 2 0)
"/"
(rtos mois 2 0)
"/"
(rtos annee 2 0)
)
)

A laisser votre OS en Administrateur
vous en perdez vos cheveux :p

Les listes c'est bien de se lancer dedans.

à savoir que !(nth 0 listef) désigne le premier élément (A1)
mais !(nth (- (lenght listef) 1) listef) qui désignerai le dernier élément de la liste est impossible à extraire de cette façon car !(nth (lenght listef) listef) est égal à nil : impossible pour une liste je te conseille d'aller sur http://www.cadxp.com là tu apprendrai un peu plus de chose sur l'AutoLISP

si tes variables A4 ..... A0 ne sont pas de type "string" utilise les fonctions itoa et atoi (voir l'aide d'AutoCAD).

A laisser votre OS en Administrateur
vous en perdez vos cheveux :p

Merci pour l'adresse.
En fait j'étais pas trés loin de trouver la solution.
Ceci fonctionne:

(setq listef '("A4" "A3" "A2" "A1" "A0"))
(setq n 0)
(start_list "f" 2 0)
(repeat (length listef)
(add_list (nth n listef))
(setq n (+ 1 n))
)
(end_list)
(action_tile "f" "(setq choixformat (atoi (get_tile $key)))")

Merci encore
SchO²n

(defun date (/ c_d ann moi jou)
(setq c_d (rtos (getvar "CDATE") 2 0)
ann (substr c_d 3 2)
moi (substr c_d 5 2)
jou (substr c_d 7 2)
)
(strcat jou "/" moi "/" ann)
)

(defun c:Date(/ oldte oldcmd pti ht)
(setq oldte (getvar "TEXTEVAL") oldcmd (getvar "CMDECHO"))
(setvar "TEXTEVAL" 1) (setvar "CMDECHO" 0)
(setq pti (getpoint "\nPoint insertion Date: ")
ht (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))
)
(if (zerop ht) (progn (setq ht (getvar "DIMTXT"))
(command "_TEXT" pti ht 0.0 (date))
)
(command "_TEXT" pti 0.0 (date))
)
(command "_CHPROP" "_LAST" "" "_La" "0" "")
(setvar "TEXTEVAL" oldte) (setvar "CMDECHO" oldcmd)
(princ)
)


;Approfondi les possibilités de la variable TEXTEVAL
;elle est très pratique.

;pti appel la fonction d'extraction de la date.

;ht définit la hauteur du texte par défaut dans le STYLE
;Si Haut.STYLE = 0 alors ht = la hauteur du texte.
;Si haut.TEXT = 0 tu tombe dans la commande TEXT
;qui te demandera alors une hauteur.

;la date sera automatiquement en layer 0 parce que généralement
;c'est le layer cadre et nomenclature.

Hey this is a nice site! If you ever need a student loan check out our http://www.nextstudent.com