Skip to main content
P
ptc-20325851-Visitor
1-Visitor
April 30, 2013
Question

Using VB to change the color of a surface

  • April 30, 2013
  • 1 reply
  • 972 views

Hope this hasn't been covered...I found lots of toolkit but no VB.


Is it possible to change the color of a surface using VB/VBA?


I've (I think) managed to "get hold" on the surfaces using this:


Private Function GetSurfaces(ByRef model As IpfcModel)
 Dim surfaces As IpfcModelItems
 Dim numSurfaces As Double

End Function



Thanks in advance.


This thread is inactive and closed by the PTC Community Management Team. If you would like to provide a reply and re-open this thread, please notify the moderator and reference the thread. You may also use "Start a topic" button to ask a new question. Please be sure to include what version of the PTC product you are using so another community member knowledgeable about your version may be able to assist.

1 reply

A
AndreasHellmann1-Visitor
1-Visitor
April 30, 2013

There is no API function in VB or Weblink. Available in Toolkit only.


Perhaps you might try this:


Add all your surfaces to the SelectionBuffer with IpfcSelectionBuffer.AddSelection().


Then run a macro/mapkey with session.RunMacro().


You might have colors defined in your environment and these colors have a NAME, for example "r1", so this mapkey executed after adding surface selections to the selection buffer willassignthe color r1 to the surfaces:


mapkey _sc ~ Select `main_dlg_cur` `ProCmdViewGallery.view`;\
mapkey(continued) ~ Select `main_dlg_cur` \
mapkey(continued) `ProCmdViewGallery_layoutph.palette_holder.myAppPalette.NamesList`1 `r1`;\
mapkey(continued) ~ Timer `UI Desktop` `UI Desktop` `Gallery_UI_Timer`;\
mapkey(continued) ~ Close `main_dlg_cur` `ProCmdViewGallery.view`;



Hope this helps.


Andreas


__________________________________


Andreas Hellmann
MCAD Services Pro/E & Pro/E customization
Am Wartfeld 7
D-61169 Friedberg


phone: +49 151 21259910
mail: -

Terms & ConditionsAccessibility statement