email:  password:

Authoring Tools - VRMLPAD addins and macros

[reply] [back to forum] [new message] [all forums]

Subject: Re: share youre addins and macros Sender: Tim Stump 12.02.03 17:43 >Hello > >Im looking for macros and addins .. >simple and advanced . templates etc.. >I need to find ways to speed up my vrml- >building process. >If anybody have any to share I be most >thankful . > >TIA >Per Norberg > >ps. >.. maybe some exchange-market of >macros , templates etc. .. Im sure many >can benefit .. >ds. Here's a simple macro (vbscript) that makes sure all the material nodes aren't implicit (ie: not rendered fullbright). This is useful for our stuff because we use lots of lighting in our scenes (day/night effects), but not all models we get have material nodes defined, so the models look funny in our scenes. BindCommand "Check_Material_Nodes", "Chec k Material Nodes", , "Alt+M" Sub checkAppearanceForMaterial (appearance) End Sub Sub Check_Material_Nodes() Dim allNodes Dim fields Dim node Dim hasMaterial Set allNodes = StdProtos ("Shape").Instances For i = 1 to allNodes.count Set fields = allNodes(i).fields For Each field In fields If field.name = "appearance" Then Set fld = field End If Next 'every shape should have an appearance... 'create a new one if it's implicit If fld.Implicit Then 'add new appearance node fld.Implicit = false fld.Value = "Appearance" End If Set node = fld.Value Set fields = node.fields 'check for implicit materials, too For Each field In fields If field.name = "material" Then If field.Implicit Then field.Implicit = false field.Value = "Material" End If End If Next Next End Sub Tim Stump Programmer - Object Raku Technology   [reply] [back to forum] [new message] [all forums] share youre addins and macros / per@extred.com / 18.06.01 17:37      Re: share youre addins and macros / Tim Stump / 12.02.03 17:43      Re: share youre addins and macros / fabricatorgeneral@yahoo.com / 27.06.01 07:34 Messages in thread: 3 [reply] [back to forum] [new message] [all forums]