CADarome

Bonjour à tous. j'essai de voir comment récupérer la derniere valeur du nombre de copies fait avec la derniere impression. (setq actdoc (vla-get-activedocument (vlax-get-acad-object))) (setq plotdoc (vla-get-plot actdoc )) (setq #PlotCopy (vla-get-NumberOfCopies plotdoc)) Ce code ci-haut me retourne toujours 1 j'ai noté que le nombre de copies n'est pas sauvegardé dans les mises-en pages... donc, j'ai beau fouiller....je ne trouve pas où AutoCAD store cette variable. qq1 peut-il m'aider ? Merci à l'avance.

Tu as raison.. Je m'excuse...je ne suis pas toujours claire....Il faut que j'apprenne à extérioriser mes pensées. ;-) l'utilité..: Dévier certaines valeurs d'une programmation existante et Patcher le reste.. dont je n'ai pas le code. Donc, aucune utilité comme tel. ;-)

Merci Bred,... que penses-tu de ceci ? (setq str (getstring "\nEntrez le numéro de la Métavue à rechercher: ")) (setq MVsel (ssget "_X" '((0 . "VIEWPORT")))) (if (eq (sslength MVsel) 1) (alert " Aucune Métavue dans ce dessin.") (progn (setq sscount (sslength MVsel)) (setq val1 (- sscount 2)) (repeat (1- sscount) (setq MVname (cdr (assoc 69 (entget (ssname MVsel val1))))) (if (eq (itoa MVname) str) (alert (strcat "Métavue no: " (itoa MVname) " Trouvé")) ) (setq val1 (1- val1)) ) ) )

Bonjour à tous.. J'essai de trouver un moyen de sélectionner la méta-vue numéro 16 Ce code...fonctionne bien pour une méta-vue standards. (ssget "X" (list '(0 . "VIEWPORT") (cons 69 16) ) ) Cependant, la méta-vue en question était une poliligne fermé et transformé en métavue par la suite... donc,.. (0 . "LWPOLYLINE") comment selons-vous, devrais-je filter ma demande ? ya-t-il plus simple ?

oh !...... résultats..: ; IAxDbDocument: Interface IAxDbDocument ; Valeurs de propriétés: ; Application (RO) = Une exception s'est produite ; Blocks (RO) = # ; Database (RO) = # ; Dictionaries (RO) = # ; DimStyles (RO) = # ; ElevationModelSpace = 0.0 ; ElevationPaperSpace = 0.0 ; FileDependencies (RO) = # ; Groups (RO) = # ; Layers (RO) = # ; Layouts (RO) = # ; Limits = (0.0 0.0 420.0 297.0) ; Linetypes (RO) = # ; Materials (RO) = # ; ModelSpace (RO) = # ; Name = "c:/test.dwg" ; PaperSpace (RO) = # ; PlotConfigurations (RO) = # ; Preferences (RO) = # ; RegisteredApplications (RO) = # ; SectionManager (RO) = Une exception s'est produite ; SummaryInfo (RO) = # ; TextStyles (RO) = # ; UserCoordinateSystems (RO) = # ; Viewports (RO) = # ; Views (RO) = # ; Méthodes prises en charge: ; CopyObjects (3) ; DxfIn (2) ; DxfOut (3) ; HandleToObject (1) ; ObjectIdToObject (1) ; Open (2) ; Save () ; SaveAs (2) le ACTIVEDOCUMENT offre ceci.. ; Méthodes prises en charge: ; Activate () ; AuditInfo (1) ; Close (2) ; CopyObjects (3) ; EndUndoMark () ; Export (3) ; GetVariable (1) ; HandleToObject (1) ; Import (3) ; LoadShapeFile (1) ; New (1) ; ObjectIdToObject (1) ; Open (2) ; PurgeAll () ; Regen (1) ; Save () ; SaveAs (3) ; SendCommand (1) ; SetVariable (2) ; StartUndoMark () ; Wblock (2) Merci les gars.. donc si je comprend bien... On peut effacer des entitiés....mais non les purger ? hhmm..

Bonjour,... Petite question ici.. est-ce que ceci.. (setq Dbx (vla-get-activedocument (vlax-get-acad-object))) est exactement le même type que... (setq Dbx (ouvrir_dessin_dbx "c:/test.dwg")) si oui... Pourquoi (vla-purgeall Dbx) et (vla-AuditInfo Dbx :vlax-true) ne sont pas reconnues ?? font-ils partie de (vl-load-com) ? j'ai un peu de misère à saisir... :P

HA HA !! j'ai ajouté effectivement (vla-saveas Dbx "c:/test.dwg") Merci beaucoup. ;-)[Edité le 19/9/2007 par CADarome] [Edité le 19/9/2007 par CADarome]

ok..j'ai modifié mon lisp.. (defun Ouvrir_dessin_dbx(dwg / dbx) (if (< (atoi (substr (getvar "ACADVER") 1 2)) 16) (setq dbx (vlax-create-object "ObjectDBX.AxDbDocument")) (setq dbx (vlax-create-object (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2)))) ) (vla-open dbx dwg) dbx ) (defun BATCH_BLKREM (bloc / dbx) (setq Dbx (ouvrir_dessin_dbx "c:/test.dwg"));;# (setq blk (vla-get-blocks Dbx)) (vlax-for bl blk (vlax-for ent bl (if (eq (vla-get-objectname ent) "AcDbBlockReference") (if (eq (strcase (vla-get-name ent)) (strcase bloc)) (vla-delete ent) ) ) ) ) (vlax-release-object dbx) ) Je n'ai plus d'erreur....mais il n'enfface rien.. ;-\

Salut Pat ! Vraiment cool tes post ! j'ai fais quelques tests pour effacer un block spécifique dans tous les layouts (defun Ouvrir_dessin_dbx(dwg / dbx) (if (< (atoi (substr (getvar "ACADVER") 1 2)) 16) (setq dbx (vlax-create-object "ObjectDBX.AxDbDocument")) (setq dbx (vlax-create-object (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2)))) ) (vla-open dbx dwg) dbx ) (defun BATCH_BLKREM (block /) (setq Dbx (ouvrir_dessin_dbx "c:/test.dwg")) (vlax-for bdb Dbx (vlax-for item bdb (if (eq (vla-get-objectname ent) "AcDbBlockReference") (if (eq (strcase (vla-get-name item)) (strcase block)) (vla-delete item) ) ) ) ) ) cependant je recois un message d'erreur... que fais-je de pas normal ?

Bonjour les CADxpéains ! Petite remarque... Lorsque l'application PUBLISH est exécuté.... celui-ci exécute en même temps tous les lisp et programmes inclus dans le startup suitcase AutoCAD.. sûre qu'il va falloir créer un DWF......et alors ? vos fichiers seront à jours et le tout se fait en transparence.. ;-) bonne journée

bonjour à tous... j'aimerais savoir si il serait possible de faire un vla-dump-object d'un fichier externe ..? en fait, j'essai d'aller chercher une information dans un autre fichier DWG qui n'est pas ouvert. est-ce possible ? Merci.

Bonjour à tous, Ceci est tout simplement pour vous aviser que ObjectDCL 2007 7.0 est maintenant disponible ICI. Merci.

Salut GEGE.. tous les programmeurs ont des retissances face au changement,....en plus d'apprendre d'autres type de programmation......c'est tout a fait normal. j'ai 26 ans d'expérience avec AutoCAD (version 2.0 dos). et je dois dire que j'ai touché pas mal a différent types de programmations. Il est vraie que VBA est inclus dans AutoCAD, cependant, tu remarquera AutoCAD à été créé en en C++ et que ses fonctions ne l'utilise pas VBA et pour cause. VBA est utilisé par plusieurs logiciels, entre autre MSoffice, qui, lors d'une installation ÉCRASE les DLL requis pour les mises-a-jours. Or, nous savons ici que ces DLL seront utilisé par AutoCAD cependant, ayant fait plusieurs tests, les versions de MSoffice ne sont pas tous compatible avec AutoCAD. Je travaille présentement pour une grosse firme d'ingénierie en tant que support technique DAO je fait l'installation et configuration de PC pour plusieurs types de logiciels entre-autre AutoCAD et j'ai remarqué que si AutoCAD est installé AVANT MSoffice, Il faut ré-installer AutCAD. Pire encore les types de langage sont incompatibles (anglais/français). Dans la pluspart des programmes en VBA ceux-ci demeurent un risque pour les firmes d'ingénieries et donc, bani de notre façon de faire et ayant fait l'acquisision de plusieurs programme AutoCAD en VBA....Je peu vous assurer que le LISP demeure encore le meilleur type de programmation pour AutoCAD.........je peu en conter sur ce sujet. c'est pour cette seule et bonne raison que je me suis concentré sur le langage de progrmmation LISP......sûr, il y a c# ou c++...mais bon,...ont peut pas tout savoir.. ;-) Sur ce, je vous invite donc à visiter mon site DuctiSOFT car nous offrons présentement un spécial... je profites aussi de l'occasion pour vous annoncer qu'il y aura un module de déployement pour les créateurs de logiciels utilisant ObjectDCL. Merci et bonne journée. [Edité le 24/6/2007 par CADarome]

désolé Tramber.. Il était... www.ductisoft.com

Bonjour à tous,. Vous pouvez maintenant téléchargé la nouvelle version d'ObjectDCL ici n'hésitez pas à me contacter. bonne journée. Andrea.