Le blog info de tea che

Pour info, Ce blog est transféré à une nouvelle adresse. Les nouveaux articles seront visibles ici : http://www.traitpoint.com/

(if (= (tblsearch "ltype" "LIMITE-DEPARTEMENT") nil)(command "_linetype" "ch" "LIMITE-DEPARTEMENT" "c:/Dossier 1/Dossier 2/Dossier 3/mestypesdelignes.lin" "")) Où "ch" est l'abréviation de "charger"... Sur une version anglaise d'AutoCad il conviendra...

;;; Texte à copier et coller dans un fichier Lisp : reptext.lsp ; REPTEXT.LSP by P.Heald Sept'92-Apr'93 Ver. 3.01 ;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED ;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR ;;; PURPOSE...

- Regarder l'icône SCU (Affichage - Affichage - Icône SCU - Actif) ou (commande : ICONESCU ACTIF) ou (variable système UCSICON : 0 pour non affiché - 1 pour affiché à l'angle bas-gauche de la vue - 3 pour affiché aux coordonnées d'origine) - Si le plan...

- Définir un nouveau système d'axes de manière à faire correspondre les nouveaux X avec l'horizontale de la vue finale souhaitée : ... SCU (OBjet ou Z) - Faire correspondre la vue avec le nouveau système d'axes : ... REPERE (Courant)

; Liste des Styles de Texte (setq ok T) (while (setq ll (tblnext "style" ok)) (print (strcat (cdr (assoc 2 ll)) " police : " (cdr (assoc 3 ll)) " Ht : " (rtos (cdr (assoc 40 ll)) 2 2) " Inlinaison gr : " (rtos (/ (* (cdr (assoc 50 ll)) 200.0) pi) 2 2)...

Bon à savoir... BINDTYPE : Contrôle comment les noms (des calques) des XRef sont adressés lors de leur fusion (binding) ou de leur édition sur place. Valeurs : 0 - Comportement standard : "xref1|one" devient "xref$0$one" 1 - Comportement d' "insertion"...

Avec la pratique d'autres langages, on a tôt fait de coller une valeur testée au cul de son opérateur - du genre : if ldes=nil... or chez Lisp, le premier terme suivant la parenthèse ouvrante (et jusqu'a l'espace ou la parenthèse suivante) est interprété...

Commande : MEMBER : (Member Terme_recherché Liste) - Recherche l'existence d'un membre dans une liste - Retourne une sous-liste débutant à la position de ce membre - Retourne nil si pas trouvé. Exemple : (setq ltot (list "NivUn"(list "1" "2" "3")"NivDeux"(list...

AutoCad utilise des tables pour stoquer certaines informations : - layer - ltype - view - textstyle - block - UCS - viewport On les parcourt avec les commandes lisp : tblsearch et tblnext (tblnext "layer") renvoie l'élément suivant de la table Layer :...