Hi all
I have around 1.000 dgn files with one raster files attached to each file.
How can I set the raster property "draping" to be on in every file?
I searched for a keyin but no luck. So I could use it in a simple batch process.
Do I really have to write a vba script?
Kind regards
Morten
Jan provided a VBA on this thread https://communities.bentley.com/products/microstation/f/microstation-forum/98183/setting-raster-draping-using-keyin/288537#288537 a while back. May be it still helps depending on the version your running. (Its OK in V8i SS10)
Regards
Carl Myhill
Technical Support Engineer
Bentley Systems
Morten said:Do I really have to write a vba script?
Carl Myhill said:Jan Šlegr provided a VBA
Morten verified Jan's answer in 2014. Does that VBA work in CONNECT?
Regards, Jon Summers LA Solutions
Carl Myhill said:Jan provided a VBA on this thread
It's soooo long ago, that I even do not remember I did it :-)))))
Carl Myhill said:May be it still helps depending on the version your running.
I agree, without knowing version used by Morten, it cannot be expressed in any way that "may be" ;-)
Regards,
Jan
Bentley Accredited Developer: iTwin Platform - AssociateLabyrinth Technology | dev.notes() | cad.point
in 2014 Jan gave you the vba macro with 2 methods .. have you tried these under Connect or even v8i?
If so please report the outcome as others may benefit from this.
Lorys
Started msnt work 1990 - Retired Nov 2022 ( oh boy am I old )
But was long time user V8iss10 (8.11.09.919) dabbler CE update 16 (10.16.00.80)
MicroStation user since 1990 Melbourne Australia.click link to PM me
Internal access string needs to be changed in Connect. Replace the access string from “Draping" To "DrapeState"
Code changes…
In V8i
If Not oPh.SelectByAccessString("Draping") Then Exit Sub End If
In Connect
If Not oPh.SelectByAccessString("DrapeState") Then Exit Sub End If