Select Drawing View

[donaldleigh]

Hi all

Is there a way to select a drawing view after running a rule.

My logic is this

1. Start Rule
2. Rule will ask to select the "Front View"
3. Manually Select a Drawing View
4. View label will change to read "FRONT VIEW"
5. Ask to select "Top View"
6. Repeat steps 3 and 4 (Changing Label to Top View)
7. Repeat for side view, Isometric View ect.

I have all the parts of this rule down except how to select a view mid rule.

Running 2014

Donald

[dgreatice · Accepted solution]

Hi,

is better to more flexible, example: 

1. Select View what ever,

2. Input with prompt: name of the view,

3. Loop.

Dim oDone As Boolean = False
Dim oSelectView As DrawingView

Do Until oDone = True
	oSelectView = ThisApplication.CommandManager.Pick(selectionfilterenum.kDrawingViewFilter, "Pick View")
	MyLabel = InputBox("Input label view", "Input Label View", oSelectView.Label.Text)
	oSelectView.ShowLabel = True
	oSelectView.Name = uCase(MyLabel)
	
	WantSelectMore = MsgBox("Want edit more label view?", vbYesNo, "Input More Label")
	If WantSelectMore = vbYes Then
		oDone = False
	Else
		oDone = True	
	End If
Loop

[donaldleigh]

Thanks