Bu yüzden ilerleme yapıyorum ama beni terk etmiyor muyum?
Aşağıdaki kod, tasarımdaki tüm standart parçaların bir döngüsü yapar "amgstdpart"... görünümin adını ve açıklamasını gösterir.... Şimdi parametreleri değiştirmek için daha fazlasını yapabilmeliyim. Ve onları kod tarafından çizime dahil etmek mümkün olsa bile...
Kod:
Public subequrecuperoparti standard()
"Acadmapplication'a referans
dim mcadmapplication olarak
set mcad = budrawing.application.getinterfaceobject ("acadmauto.acadmapplication")
" mcad2dyapımgr
dim structmgr mcad2dyapımgr
set structmgr = mcad.activedocument. structuremgr2d
" mcad2dstdpartcompgroupdescriptoror
dim compgrup1 mcad2dstdpartcomponentdescriptor
set compgrup1 = structmgr.create2dstdpartcomponentdescriptoror
dim powviews1() as mcadstdpartcomponentviewdescriptoror
powviews1 = structmgr.getsinglestdpartviewsformigr
dim view1 as variable
dim powview1 mcadstdpartcomponentviewdescriptor
Her görüş için1 powviews1
"If typeof view1 is mcadstdpartcomponentviewdescriptor then then
'set powview1 = view1
'icompgroup.addview powview1
'msgbox ""
"Eğer
set powview1 = view1
msgbox view1.fullviewname & "-" & view1.name
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
Sonunda alt alt