Alors je fais des progrès mais ne m'abandonne pas ?
le code ci-dessous fait un cycle de toutes les pièces standard dans la conception "amgstdpart"... montre le nom et la description de la vue.... maintenant je dois pouvoir faire plus par exemple pour changer les paramètres. et même si possible les insérer dans le dessin par code...
Code:
public sous provarecuperopartistandard()
' référence à la demande d'acadm
dim mcad comme application acadm
set mcad = thisdrawing.application.getinterfaceobject("acadmauto.acadmapplication")
' obtenir mcad2dstructuremgr
dim structmgr en mcad2dstructuremgr
set structmgr = mcad.activedocument.structuremgr2d
' créer mcad2dstdpartcompgroupdescripteur
dim compgroup1 en mcad2dstdpartcomponentdescriptor
définir compgroup1 = structmgr.create2dstdpartcomponentdescriptor
dim powviews1() comme mcadstdpartcomponentviewdescriptor
powviews1 = structmgr.getsinglesystdpartviewsformigr
dim view1 comme variante
dim powview1 en mcadstdpartcomponentviewdescriptor
pour chaque vue1 dans powviews1
'si le type de vue1 est mcadstdpartcomponentviewdescriptor alors
'set powview1 = view1
'icompgroup.addview powview1
'msgbox ""
'finir si
définir powview1 = view1
msgbox view1.fullviewname & "-" & view1.name
suivant
fin sous
