Bloc dynamique

[jazzpower]

bonjour,

 

j'aimerais savoir comment rajouter un nouveau bloc extérieur dans un bloc dynamique

[philsogood]

hello

t'as unn lisp qui te permet d'ajouter des éléments a des blocs déjà existant

add2block

http://www.lee-mac.com/addobjectstoblock.html

@+

Phil

[jazzpower]

hello

t'as unn lisp qui te permet d'ajouter des éléments a des blocs déjà existant

add2block

http://www.lee-mac.com/addobjectstoblock.html

@+

Phil

 

 

Merci

[jazzpower]

Merci

 

le lisp me fonction pas sur les bloc dynamique

 

As-tu une autre solution

[fauxsuisse]

tu peux aussi simplement copier le bloc que tu veux insérer avant d'éditer ton bloc puis quand tu l'édit tu le colles

[x_all]

clic droit "éditer dans le dessin" marche pas?

 

oups, rien dit.... ça marche pas...

[Steven]

Bonsoir Jazzpower.

 

Va dans ton bloc via l'éditeur de bloc puis insère ton nouveau bloc et ferme l'éditeur de bloc en enregistrant les modifications.

 

Cependant, quelles sont les actions de dynamisme qu'a ton bloc dynamique existant?

Si c'est un bloc avec des paramètres de visibilités, il va falloir que tu modifies les paramètres de visibilité en y incluant le bloc additionnel.

Si c'est un bloc avec des actions d'étirement ou d'échelle, idem, il va falloir modifier l'action de ces paramètres de manière à les ajouter au bloc additionnel.

Quoiqu'il en soit, il y aura des modifications à faire à l'intérieur du bloc dynamique existant, en ce qui concerne les paramètres et actions dynamique pour y inclure le bloc additionnel.

[Patrick_35]

Salut

 

Tu peux modifier le bloc de base et ensuite, clic droit sur le bloc dynamique -> reinitialiser le bloc et cela autant de fois que nécessaire.

Si cette solution te conviens, et éviter n clics droit pour traiter tous les blocs dans le dessin avec le lisp de lee-mac

 

Tu remplaces

(defun LM:AddObjectstoBlock ( doc block ss / lst mat )
 
 (setq lst (LM:ss->vla ss)
       mat (LM:Ref->Def block)
       mat (vlax-tmatrix (append (mapcar 'append (car mat) (mapcar 'list (cadr mat))) '((0. 0. 0. 1.))))
 )
 (foreach obj lst (vla-transformby obj mat))

 (vla-CopyObjects doc (LM:SafearrayVariant vlax-vbobject lst)
   (vla-item (vla-get-Blocks doc) (cdr (assoc 2 (entget block))))
 )
 (foreach obj lst (vla-delete obj))
 (vla-regen doc acAllViewports)
)

 

par

(defun LM:AddObjectstoBlock ( doc block ss / ele lst mat sel nom nombl)

 (defun nombl(bl)
   (if (vlax-property-available-p bl 'effectivename)
     (vla-get-effectivename bl)
     (vla-get-name bl)
   )
 )

 (setq lst (LM:ss->vla ss)
       mat (LM:Ref->Def block)
       mat (vlax-tmatrix (append (mapcar 'append (car mat) (mapcar 'list (cadr mat))) '((0. 0. 0. 1.))))
 )
 (foreach obj lst (vla-transformby obj mat))

 (vla-CopyObjects doc (LM:SafearrayVariant vlax-vbobject lst)
   (vla-item (vla-get-Blocks doc) (setq nom (nombl (vlax-ename->vla-object block))))
 )

 (and (ssget "x" (list (cons 0 "insert")))
   (progn
     (vlax-for ele (setq sel (vla-get-activeselectionset doc))
(and (eq (nombl ele) nom)
  (vla-resetblock ele)
)
     )
     (vla-delete sel)
   )
 )

 (foreach obj lst (vla-delete obj))
 (vla-regen doc acAllViewports)
)

 

@+