Message 1 of 5
ilogic Annotation plane- set "use sheet plane" on the whole dimensions.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi everyone,
I would like to know if someone know a illogic rule that be able to set the command "Annotation Plane>Use Sheet Plane" through the whole dimensions.
Note. I have attached a Screenshot with the problem that is generate.
My skills in ilogic are limited but I think the code could be something like the one shown below:
Sub Main()
Dim oDoc As DrawingDocument
oDoc = ThisDoc.Document
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
On Error Resume Next
Dim oDim As GeneralDimension
For Each oDim In oSheet.DrawingDimensions.GeneralDimensions
If oDim.Type = ObjectTypeEnum.kLinearGeneralDimensionObject Then
ThisApplication.CommandManager.ControlDefinitions.Item("DrawingRAnnoPlanesUseSheet").Execute
End If
Next
End Sub
Cheers.