stephan35

Bonjour tramber, Qu'est-ce ???? oui à 0 ! A+

Plus ça va, moins ça va ;) Serait-il possible d'avoir une liste des opérations et des commandes qui optimise la vitesse de chargement d'autoCAD 2006, exemple: inhiber l'accès internet ? Merci .

Bonjour, Lors de l'execution d'un script, un tas de pavé blanc et noir apparaissent à l'écran, ceci correspondant à l'ensemble des questions et réponses pendant l'execution du script. Quelle commande, ou quelle vairable sert à inhiber cet affichage ? (qui ralanti le PC) Merci PS En parlant de ralentir .... suite à un comparatif AutoCAD 14 / Autocad 2006, pour le même script executé sur 200 dwg, sur les mêmes PC, mêmes configurations AutoCAD 14 : 51 Secondes AutoCAD 2006 : 3 Minutes 57 secondes .... :mad:

Bonjour, Les Xdatas servent principalement, lorsque tu créés ta propre application, à ajouter des données suppléméntaires aux entités relatives à ton application ... :casstet: Comme exemple le plus simple , serait de considérer les xdata comme des attributs que seul ton applicatif est capable de traiter ... Tu peux aussi comme l'a dit bred creer des liens virtuels entre des entités par rapport à leur numéro de maintient (handel). A+

Bug sur 4.0.0.15 TabControl Les onglet ont disparus ... c'est très dur de les selectionner ... Bug sur 4.0.0.16 TabControl Le contenu n'est pas en rapport avec l'onglet , décalage dans l'affichage et le choix effectué Frame Le contenu d'un frame est grisé mais opérationnel A+

Bien vu ! et je n'ai pas le choix car les fonctions vl-file* m'interdisent d'accèder à un fichier ouvert en lecture .... :mad: Je refournis le code une fois teminé ...

Repiqué chez adolisp : (defun @Macro_julian (JulianDate / a b c d e y z Month Day Year Hours Minutes Seconds CalenderTime NoTime NoDate ReturnValue ) ;; Initialize the return value (setq ReturnValue "") ;; If the input date has no time component ... (if (equal 0.0 (float (- JulianDate (float (fix JulianDate)))) 1E-9 ) ;; It has no time component ... if it has no date ;; component ... (if (zerop (fix JulianDate)) ;; It must be a timestamp of 0:00.00. Set the flag that ;; we don't have a date but leave the "No Time" flag ;; unset (setq NoDate T) ;; It has a date component but has no time component. ;; Shift the date to a real Julian date (setq JulianDate (+ 2415019 (fix JulianDate)) ;; Set a flag so we know we don't have to ;; calculate the time NoTime T ) ) ;; It has a time component. If it has no date component ;; ... (if (zerop (fix JulianDate)) ;; Set a flag so we know we don't want to calculate a ;; date (setq NoDate T) ;; Otherwise, just shift it to be based like a standard ;; Julian date (setq JulianDate (+ 2415019 JulianDate)) ) ) ;; If we want to calculate the date ... (if (not NoDate) ;; It's magic, don't even ask (because I don't know). ;; Some things we weren't meant to know. (setq z (fix JulianDate) a (fix (/ (- z 1867216.25) 36524.25)) a (+ z 1 a (- (fix (/ a 4)))) b (+ a 1524) c (fix (/ (- b 122.1) 365.25)) d (floor (* 365.25 c)) e (fix (/ (- b d) 30.6001)) Day (fix (- b d (floor (* 30.6001 e)))) e (- e (if (< e 14) 2 14 ) ) Month (1+ e) Year (if (> e 1) (- c 4716) (- c 4715) ) Year (if (= Year 0) (1- Year) Year ) ;; This uses US format for the date, you might want ;; to change it. ReturnValue (strcat (itoa Year) (if (< Month 10) (strcat "0" (itoa Month)) (itoa Month) ) "" (if (< Day 10) (strcat "0" (itoa Day)) (itoa Day) ) "" ) ) ) ;; If we want to calculate the time ... (if (not NoTime) ;; First strip the date portion from the input (setq y (- JulianDate (float (fix JulianDate))) ;; Round to the nearest second y (/ (float (fix (+ 0.5 (* y 86400.0)))) 86400.0) ;; Number of hours since midnight Hours (fix (* y 24)) ;; Number of minutes since midnight the hour ;; (1440 minutes per day) Minutes (fix (- (* y 1440.0) (* Hours 60.0))) ;; Number of seconds since the minute (86400 ;; seconds per day) Seconds (fix (- (* y 86400.0) (* Hours 3600.0) (* Minutes 60.0) ) ) CalenderTime (strcat (if (< Hours 10) (strcat "0" (itoa Hours)) (itoa Hours) ) "" (if (< Minutes 10) (strcat "0" (itoa Minutes)) (itoa Minutes) ) "" (if (< Seconds 10) (strcat "0" (itoa Seconds)) (itoa Seconds) ) ) ReturnValue (if (< 0 (strlen ReturnValue)) (strcat ReturnValue "" CalenderTime) CalenderTime ) ) ) ReturnValue ) Je ne sais pas pourquoi, mais ce qu'avait donné didier ne fonctionne pas avec des dates extraites avec (vlax-get objFile 'DateCreated) ce qui donne 38979.6 ... à simplifier ???? :casstet: A suivre ...

Voilà le travail : (defun @Macro_checksum_fichier ( $file / $tmp #filetime #filesize) (if $file (progn (setq $tmp "" #filetime (vl-file-systime $file)) (if #filetime (progn (foreach tmp #filetime (setq $tmp (strcat $tmp (itoa tmp))) ) (setq #filesize (vl-file-size $file)) (setq $tmp (strcat $tmp (itoa #filesize))) ) (progn (MsgBox "Erreur" 16 (strcat $file " n'existe pas !")) ) ) ) (progn (MsgBox "Erreur" 16 (strcat "Valeur entrée vide !")) ) ) ) Un petit message pour les teigneux de la simplification ...... :casstet: ......... ............ ................ ...................... Si quelqu'un veut me poster une version lite de mon code, no souci !!! ;)

La copie et le piratage est un déli ! qui peut être sévèrement puni par la loie, ici tu ne trouvera que des professionnels qui ont acquis leurs licences et qui se sont acquitter des redevances légales .... Tu peux effacer ta demande ou tout simplement la corriger .... ;) Tu trouvera sur internet des version LT qui, malgré leur prix , deviennent accessibles ... Et pour finir, rapproche toi de ton école , peut-être existe-t-il des versions éducatives ??? :casstet: http://www.districad.com/indexgen.php?categorie=1&nature=9&produitid=7 [Edité le 20/2/2007 par stephan35]

Bienvenue, ^c^c correspond à l'annulation de la commande en cours (= touches CTRL + C x2 !) Va voir le lien de gile qui explique tout dans le détail ... Pour les développement Lisp, on ne s'improvise pas développeur, si c'est pour la création d'automatisation et de simplifications de taches, l'autolisp est un bon début pour l'apprentissage. Le vlisp est, quand à lui, plus orienté objet , donc plus complexe dans sa rédaction. Ce site regorge de ressources humaines qui pourront te guider ... Bon courrage ... et bon lisp ;)

Merci , mais ... Comment fait-on avec la commande en ligne pour ajouter manuellement des fichiers, à l'identique que la boite de dialogue (Onglet "table des fichiers", ajouter)??? -etransmit me donne uniquement : Ne pourrions nous pas ajouter manuellement des fichiers ???

Bonjour à tous ! Encore des questions bêtes ! Avec autocad 2006, avons nous la possibilité de générer des fichiers de sauvegarde au format ZIP ??? (un zippeur intégré quoi !) ;) Merci pour vos réponses .

Donc d'après vos réponses, sur la 2006, ormis la possibilité de passé par un générateur exterieur type primopdf ou autre ,on ne sait pas générer nativement du pdf ! :mad: Merci à tous ! [Edité le 19/2/2007 par stephan35]

Bonjour, AutoCAD dispose-t-il d'un générateur PDF intégré ??? Merci !

Comment faire alors ? (l'exemple fournis ne fonctionne pas :( ) Si j'ai 3 fichier ouvert en même temps, je ne peut pas activer en lisp celui sur lequel j'ai des traitements à faire ??? Je pense qu'il y a surement une solution ....... :casstet: Merci Ps: bon week end !

Oui, suivant la doc (recopié texto), cette variable récupère l'objet que l'on passe en document actif , #VLA-OBJECT IAcadDocument 0a9e4c04 dans notre cas ! et ça plante ..... :casstet:

Peut-être souhaites tu créer un commande qui trace 2 polylignes en // ? Dans ce cas de figure, l'autolisp ou Vlisp reste l'outils idéale ..... à mon avis ;) Plus de détails ou d'explications seraient les bienvenus .... A+

Bonjour, voici mon code (repiqué) fournis dans la bible vlisp (defun ZOOMALL ( / $acad docs dnum this) (vl-load-com) (setq $acad (vlax-get-acad-object) docs (vla-get-documents $acad) this (vla-get-activedocument $acad) dnum (vla-get-count docs) ) (prompt "\n$acad :")(print $acad) (prompt "\ndocs :")(print docs) (prompt "\nthis :")(print this) (prompt "\ndnum :")(print dnum) (vlax-for each docs (prompt "\ndocs :")(print docs)(prompt " - each :")(print each) (vla-put-ActiveDocument each) (vla-ZoomExtents $acad) (vla-save each) ) (vla-put-activedocument this) (vlax-release-object docs) (vlax-release-object this) (vlax-release-object $acad) (princ (strcat "\nProcessed " (itoa dnum) " drawings.")) (princ) ) et ça plante lamentablement ........ :o Pourquoi ????? :casstet: :casstet: :casstet: :casstet: :casstet: Je veux comprendre ! Merci à tous [Edité le 16/2/2007 par stephan35] [Edité le 16/2/2007 par stephan35]

Le moral revient .......... :D Le code : (setvar "SDI" 0) (setq vla(vla-open (vla-get-documents (vlax-get-acad-object)) (strcat $rep "\\" (Odcl_Control_GetText Boites_Open_EFIC)) nil)) (detail vla "vla-open") (setq ms (vla-get-ModelSpace vla)) (detail ms "vla-get-ModelSpace") (setq app (vla-get-application vla)) (detail app "vla-get-application") (vla-zoomall app) ;(vla-saveas vla (strcat $rep "\\" (Odcl_Control_GetText Boites_Open_EFIC)) "acNative") (vla-save vla) (vla-close vla) Bon voilà ce qui se passe : Par défaut il ouvre le dwg en lecture seule ! c'est bête hein ! ;) il faut mettre nil (j'ai trouvé tout seul !) dans vla-open Par contre le vla-saveas provoque un méchant blocage ! Le zoom ne s'applique que sur ma cession de départ ... il faudrait peut-être pouvoir forcer temporairement la cession active , mais comment ? Je continue .... :casstet:

J'ai fini mon reouleau ! Comment fais-tu pour en avoir un nouveau ?????? Panique !!!!!!!! :question: :question: :question: :question: :question: :question: :question: :question:

Voici l'écran texte de la deuxieme cession : Voici l'écran texte de la première cession : On dirait qu'il ignore le vla-sendcommand ! Est-ce que ça fonctionne chez quelq'un ??? :casstet: Merci les gars !

(setvar "SDI" 0) (setq vla(vla-open (vla-get-documents (vlax-get-acad-object)) (strcat $rep "\\" (Odcl_Control_GetText Boites_Open_EFIC)))) (prompt "\nObjet vla :")(print vla) (vlax-dump-object vla T) (prompt "\nSuite ") (vla-sendcommand vla "_zoom _e ") (vla-save vla) (vla-close vla) (setvar "SDI" 1) Salut, ça plante systématiquement ! (avec ou sans save): erreur: Erreur Automation il ne me manquerait pas un arx ? tu peux me donner la liste de tes arx chargé ? Merci bred

Plus fort ! erreur: Erreur Automation à chaque tentative : (vla-activate vla) (vla-sendcommand vla "_zoom _e") (vla-save vla) Au secours ........ !!!!!!! :casstet: :casstet: :casstet: :casstet: Merci !

Faire : (vlax-dump-object vla T) qui retourne la liste des propriétés et des méthodes applicables à l'objet. Bonjour, j'ai comme réponse : Le zoomExtents n'en fait effectivement pas partie ! dois-je faire un activate ? pour m'autoriser à faire un sendcommand ? Merci ...

Effectivement , ça à l'air très complet ..... Je me lance ........ ;) Merci !