Patou

Excusé-moi tout le monde de cette impressement sur arx2007, j'ai ouvert le zip apres avoir ecrit le message. @+

http:// http://sourceforge.net/project/showfiles.php?group_id=173347 Non texté je n'ais pas autocad 2007 @+

Avez-vous un exemple pour charger dans autocad cette boite (onglet de plus dans les preference (Options) ObjectDcl (open source) Autocad 2006 Merci! d'avance....

Je peux répondre à quelques question! NON, je pense ? Ex: (defun ObjectDCL_LoadArx () (if (not (member "objectdcl.arx" (arx))) (arxload "objectdcl.arx" "ObjectDCL.arx not found.") ) ) (defun c:Projet () ;;Ton projet (Projet.odc) (Odcl_LoadProject "Projet") ;;Boite de dialgue (Odcl_Form_Show Projet_Form1) (princ) ) Oui, pour manipuler la ou les boites de dialogue. Non pour le reste du code. Tu dois avoir "objectdcl.arx" selon la version de ton Autocad et de tes clients et leur transmettre avec ton projet. "objectdcl.arx" => (2000, 2000i, 2002) "objectdcl2004.arx" => (2004) "objectdcl2005.arx" => (2005, 2006) disponible sur le site gratuitement (objectdcl.com) j'ai pas beaucoup d'experience avec, mais j'ai fait quelque petit programme avec le logiciel (demo) disponible sur le site Si quelqu'un peux me corriger.

un petit lisp Pour ceux qui veulent avoir l'ancien editeur de text temporaire ;;;DdeditOld ;;; Patrick Benoit (defun c:DdeditOld (/ old_mtexted old_dtexted) (setq old_mtexted (getvar "mtexted") old_dtexted (getvar "dtexted") ) ;;; Revenir avec l'ancien editeur de Mtext (setvar "mtexted" "oldeditor") ;;; Revenir avec l'ancien editeur de Dtext (dialogue box) (setvar "dtexted" 1) (command "_ddedit" pause) (setvar "mtexted" old_mtexted) (setvar "dtexted" old_dtexted) (princ) ) (princ)

Si ca peut d'aider ;;; TXT2ATTDEF.LSP TEXT TO ATTRIBUTES ©2002, Sanjay Kulkarni (defun C:TXT2ATTDEF (/ TXT1 IFTXT TXT1VAL TXT1IP TXT1HT TXT2IP TXT1ROT TXT1JUSTH TXT1JUSTV TXTJUST APRMPT PAFLAGS PCMDECHO) (setq PCMDECHO (getvar "CMDECHO")) (setvar "CMDECHO" 0) (setq TXT1 (entget (car (entsel "\nSelect Text : ")))) (setq IFTXT (cdr (assoc 0 TXT1))) (while (/= IFTXT "TEXT") (setq TXT1 (entget (car (entsel (strcat "\nSelection Error !! You selected " IFTXT "! \nPlease Select Text : " ) ;_ end of strcat ) ;_ end of entsel ) ;_ end of car ) ;_ end of entget ) ;_ end of setq (setq IFTXT (cdr (assoc 0 TXT1))) ) ;_ end of while (setq TXT1VAL (cdr (assoc 1 TXT1))) (setq TXT2IP (cdr (assoc 10 TXT1))) (setq TXT1IP (cdr (assoc 11 TXT1))) (setq TXT1HT (cdr (assoc 40 TXT1))) (setq TXT1ROT (cdr (assoc 50 TXT1))) (setq TXT1JUSTH (cdr (assoc 72 TXT1))) (setq TXT1JUSTV (cdr (assoc 73 TXT1))) (cond ((and(= TXT1JUSTV 0)(= TXT1JUSTH 0)) (setq txtjust "Left")) ((and(= TXT1JUSTV 0)(= TXT1JUSTH 1)) (setq txtjust "Center")) ((and(= TXT1JUSTV 0)(= TXT1JUSTH 2)) (setq txtjust "Right")) ((and(= TXT1JUSTV 0)(= TXT1JUSTH 3)) (setq txtjust "Align")) ((and(= TXT1JUSTV 0)(= TXT1JUSTH 4)) (setq txtjust "Middle")) ((and(= TXT1JUSTV 0)(= TXT1JUSTH 5)) (setq txtjust "Fit")) ((and(= TXT1JUSTV 1)(= TXT1JUSTH 0)) (setq txtjust "BL")) ((and(= TXT1JUSTV 1)(= TXT1JUSTH 1)) (setq txtjust "BC")) ((and(= TXT1JUSTV 1)(= TXT1JUSTH 2)) (setq txtjust "BR")) ((and(= TXT1JUSTV 2)(= TXT1JUSTH 0)) (setq txtjust "ML")) ((and(= TXT1JUSTV 2)(= TXT1JUSTH 1)) (setq txtjust "MC")) ((and(= TXT1JUSTV 2)(= TXT1JUSTH 2)) (setq txtjust "MR")) ((and(= TXT1JUSTV 3)(= TXT1JUSTH 0)) (setq txtjust "TL")) ((and(= TXT1JUSTV 3)(= TXT1JUSTH 1)) (setq txtjust "TC")) ((and(= TXT1JUSTV 3)(= TXT1JUSTH 2)) (setq txtjust "TR")) ) (setq APRMPT (getstring T "\nAttribute prompt : ")) (entdel (cdar TXT1)) (setq PAFLAGS (getvar "AFLAGS")) (setvar "AFLAGS" 0) (setq TXT1ROT (/ (* TXT1ROT 180) pi)) (cond ((= TXTJUST "Left") (command "attdef" "" TXT1VAL APRMPT TXT1VAL TXT2IP TXT1HT TXT1ROT)) ((or(= TXTJUST "Fit")(= TXTJUST "Align")) (command "attdef" "" TXT1VAL APRMPT TXT1VAL "J" TXTJUST TXT2IP TXT1IP TXT1HT TXT1ROT)) ((command "attdef" "" TXT1VAL APRMPT TXT1VAL "J" TXTJUST TXT1IP TXT1HT TXT1ROT)) );_ end of COND (setvar "AFLAGS" PAFLAGS) (setvar "CMDECHO" PCMDECHO) (princ) ) ;defun txt2attdef ;;End Of Routine (PRINC)

Boujour je commence en vba et je veux recuperer les codes dxf d'un objet ex: (0 . "LINE") comme en lisp (entget(car (entsel))) (assoc 0) = "LINE" il y t'il quelquun qui peux m'aider

c'est exacte Airvai jusqu'a la version 2004 sauf pour la version 2005 qui est dans le menu contextuel en mode de commande moi j'ai land desktop2005 et il y est disponible l'amélioration est tardif apres temp d'année mais elle est là Patou

Merci! pour la variable '_SNAPBASE Patou (patrick) :)

Bonsoir à tous, J'aimerais donné un point de départ à un hatch ? il me semble que dans la 2002, il fallais redéfinir le point de base du dessin avec la command «base» qui est par default à « 0,0,0 » ex: dans un coin d'un rectangle. J'ai la version 2004 us

Dessinez un cercle de rayon 100. Cliquez sur son quadrant droit et étirez horizontalement, tapez 50. Quel est le rayon du cercle maintenant? 150? Si vous êtes dans AutoCAD 2004, le cercle fait 50, dans AutoCAD 2002, 150... J'ai fait l'expérience et ça me donne un cercle du rayon que j'ai tapé ex: étiré de 25= R25: étiré de 200= R200 (AutoCad 2004) pour un cercle au départ d'un rayon de 100 Bug! ou pas Bug! Patou Amicalement

Bonjour, Je suis à la recherche d'un logiciel pour éditer et compiler des fichier .ARX gratuiciel ou autre. Merci Patou

AutoCad 2004 ne support plus les images .gif (insertion) Patou

Tu rajoutes [] à l'extrimité se que tu veux en menu contextuel (defun c:essai ( / reponse) (setvar "cmdecho" 0) (initget "Angle Calque Facteur Hauteur Inclinaison Justification STyle S Tous Valeur") (setq reponse (getkword "\n Propriete identique : [Angle/Calque/Fact/Hauteur/Inclin/Justif/STyle/Sp/Tous/Valeur]")) (alert (strcat "Votre Choix : " reponse)) (prin1) ) tu auras alors acces à ton menucontextuel (version 2000 et +) pour la 14 pas vérifié patou ;)