Communauté
6364 Visites, 19 Réponses
Bonjour
Voila j'utilise beaucoup le système de gabarit et le système de copiage de gabarit à partir d'un dessin préexistant
Par contre le remplissage du gabarit peut vitre être répétitif et il faut parfois que je change l'indice en le passant de l'indice 0 à l'indice A par exemple et cela autant de fois que le numéro d'indice figure... 
D'ou l'intérêt d'utiliser le système de champ qui permet de fixer la valeur de référence pour l'indice pour tout mes dessins et que celle ci soit mis à jour par changement du champe "indice" que j'ai personnalisé dans Fichier => "Propriétés du dessin" => "Personnaliser"
Le soucis c'est que je perds mes propriétés de dessin et mes personnalisations quand je créer un nouveau dessin et le système de copiage des gabaris n'implique pas le copiage des Propriétés personalisées même si une partie d'entres elles figure dans mon gabarit (ce qui est un peu dommage...)
Comment on copie les propriétés personnalisées dans un autre dessin ?
Merci
PS :Quel est la saisie clavier pour mettre à jour les champs ?
Salut,
Ci-dessous le code de la routine IMPOROP correctement formaté.
À copier dans un éditeur de texte (bloc-note) et à enregistrer avec l'extension .lsp (et pas .lisp).
Pour de plus amples explications sur le chargement et l'utilisations de routine LISP voir ici :
http://cadxp.com/topic/14323-charger-un-lisp/
;; IMPOROP (gile)
;; Importe dans le dessin courant les propriétés personnalisées d'un fichier (dwg ou dwt)
(defun c:improp (/ target filename doc odbx source)
(or *acdoc*
(setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(setq target (vla-get-SummaryInfo *acdoc*))
(if
(setq filename (getfiled "Choisir le fichier source"
(getvar 'dwgprefix)
"dwg;dwt"
0
)
)
(progn
(if
(not
(and
(setq
doc (GetItem
(vla-get-Documents (vlax-get-acad-object))
(strcat (vl-filename-base filename) ".dwg")
)
)
(= filename (vla-get-FullName doc))
)
)
(setq doc (OpenDrawingDBX filename)
odbx T
)
)
(setq source (vla-get-SummaryInfo doc)
n -1
)
(foreach p
'(Author Comments HyperlinkBase KeyWords Subject Title)
(if (/= "" (setq prop (vlax-get source p)))
(vlax-put target p prop)
)
)
(repeat (vla-NumCustomInfo source)
(vla-GetCustomByIndex source (setq n (1+ n)) 'key 'val)
(vla-AddCustomInfo target key val)
)
(and odbx (vlax-release-object doc))
)
)
(princ)
)
;;; Accéder à un dessin fermé
(defun OpenDrawingDBX (filename / objdbx release)
(setq objdbx
(vlax-create-object
(if (< (setq release (atoi (getvar "ACADVER"))) 16)
"ObjectDBX.AxDbDocument"
(strcat "ObjectDBX.AxDbDocument." (itoa release))
)
)
)
(vla-open objdbx filename)
objdbx
)
;;; GetItem (gile)
;;; Retourne le vla-object de l'item s'il est présent dans la collection
;;;
;;; Arguments
;;; col : la collection (vla-object)
;;; name : le nom de l'objet (string) ou son indice (entier)
;;;
;;; Retour : le vla-object ou nil
(defun GetItem (col name / obj)
(vl-catch-all-apply
(function (lambda () (setq obj (vla-item col name))))
)
obj
)
Bonjour @Anonymous
Si une des réponses à votre question résout votre problème, vous a permis de le comprendre ou contribue significativement à sa résolution, voulez vous avoir l'amabilité de cliquer sur le bouton "Accepter comme solution" en bas de la réponse?
Si nos équipes de support technique ont pu vous apporter une solution ou contribuer significativement à vous aider en dehors de ce forum, pouvez vous partager ici la solution trouvée et cliquer sur le bouton "Accepter comme solution" de façon qu'elle bénéficie à la communauté?
Merci.
Patrick Emin animateur de la communauté francophone
Vous avez trouvé un message utile? Alors donnez un "J'aime" à ce message!
Votre question a eu une réponse satisfaisante? Voulez vous avoir l'amabilité de cliquer sur le bouton APPROUVER LA SOLUTION en bas de la réponse qui apporte une solution?
Signez notre Livre d'Or
Bonjour, outre les réponses données, voir aussi la commande Propulate des Express Tools, assez étroitement lié à cette discussion.
Patrick Emin animateur de la communauté francophone
Vous avez trouvé un message utile? Alors donnez un "J'aime" à ce message!
Votre question a eu une réponse satisfaisante? Voulez vous avoir l'amabilité de cliquer sur le bouton APPROUVER LA SOLUTION en bas de la réponse qui apporte une solution?
Signez notre Livre d'Or
@scubells a écrit :
sur Autocad 2018 la manip ne marche plus...
De quelle manip parles-tu ?
Le LISP donné ci-dessus fonctionne avec AutoCAD 2018, si c'est de ça dont tu parles, il faudrait donner plus de précisions sur la façon dont tu procèdes pour qu'on puisse t'aider plus avant.
Tu copies le code LISP donné réponse #6 dans le bloc-note et tu l'enregistres avec l'extension .lsp .
Depuis un dessin dans lequel tu veux importer les propriétés, tu charges le LISP (commande APPLOAD), et tu lances la commande : IMPROP.
Pour de plus amples explications sur le chargement et l'utilisations de routine LISP voir ici : http://cadxp.com/topic/14323-charger-un-lisp/
Vous n'avez pas trouvé ce que vous recherchiez ? Posez une question à la communauté ou partagez vos connaissances.
Publier dans les forums
