Sauvegarde des vues

[richard-c]

Bonjour,

 

y a t'il un moyen de récupérer les vues d'un dessin vers un autre ?

 

A+

[(gile)]

Salut,

 

Pour importer les vues nommées d'un dessin (fermé) dans le dessin courant (import-vues):

 

;; OpenDrawingDBX -Patrick_35-
(defun OpenDrawingDBX (dwg / odbx)
 (if
   (     (setq odbx (vlax-create-object "ObjectDBX.AxDbDocument"))
    (setq odbx (vlax-create-object
	 (strcat "ObjectDBX.AxDbDocument."
		 (substr (getvar "ACADVER") 1 2)
	 )
       )
    )
 )
 (vla-open odbx dwg)
 odbx
)

(defun c:import-vues (/ path doc dbx vues)
 (vl-load-com)
 (and
 (setq app (vlax-get-acad-object))
 (setq path (getfiled "Choisir un dessin" "" "dwg" 0))
 (setq doc (OpenDrawingDBX path))
 (vlax-for v (vla-get-Views doc)
 (setq vues (cons v vues))
      )
 (vlax-invoke
 doc
 'CopyObjects
 vues
 (vla-get-Views
   (vla-get-ActiveDocument app)
 )
      )
 )
 (and doc   (vlax-release-object doc))
 (princ (strcat "\n\t" (itoa (length vues)) " vues importé(s)"))
 (princ)
) 

[richard-c]

Merci (gile),

 

je n'ai pas essayé encore le programme, mais c'est sympa de répondre si vite,

 

j'aurais pu dans la même question poser aussi: et pour les groupes ?

 

 

A+

[richard-c]

bonjour (gile)

 

je viens d'essayer le programme,

voilà le message d'erreur quand je choisi le dessin qui a les vues enregistées :

 

; erreur: type d'argument incorrect: VLA-OBJECT nil

 

A+

[(gile)]

:casstet:

 

As-tu bien copié tout le code (y compris la routine OpenDrawingDBX) et rien que le code ?

Le dessin dans lequel tu récupères les vues est-il bien fermé ?

 

Sinon, c'est peut-être une histoire de version.

Essaye de coller ça sur la ligne de commande

 

(vl-load-com)

 

puis :

 

(setq odbx (vlax-create-object "ObjectDBX.AxDbDocument"))

 

Tu devrais avoir un retour du style : #

 

Si ce n'est pas le cas,c'est que ta version est trop ancienne, sinon supprime l'objet créé avec :

 

(vlax-release-object odbx)

 

puis

 

(setq odbx nil)

[richard-c]

après (setq odbx (vlax-create-object "ObjectDBX.AxDbDocument"))

AutoCAD me retourne nil donc trop vielle version.

 

 

A+

[(gile)]

Par curiosité, c'est quelle version ?

[richard-c]

C'est AutoCAD 2002 réseau

 

ACADVER = "15.06s (LMS Tech)" (lecture seule)

 

A+

[(gile)]

C'est curieux, la routine de Patrick_35 prévoit justement deux "créations d'objet dbx" différentes suivant que la version est antérieure à R16.0 (2004 si je ne m'abuse) ou non.

Et 2002, c'est juste avant 2004 ...

[Patrick_35]

Salut

 

Et un

(findfile "axdb15.dll")

trouve le fichier ?

 

Si oui, tu fais

(startapp "regsvr32.exe" (strcat "/s \"" (findfile "axdb15.dll") "\""))

Afin de charger objectdbx, et un

(and (vl-registry-read "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"))

devrait donner T afin de vérifier que c'est bon.

 

ps : source suivant cette page

 

@+

 

[Edité le 18/10/2007 par Patrick_35]