怎么回事？图纸上的代码出错了，谁能告诉我该怎么做？

[38620079]

Sub Main() Dim oDrawingDoc As DrawingDocument = ThisApplication.ActiveDocument Dim baseScale As Double = oDrawingDoc.ActiveSheet.DrawingViews.Item(1).Scale For Each oView As DrawingView In oDrawingDoc.ActiveSheet.DrawingViews oView.Scale = baseScale Next End Sub

[38620079]

What's going on? The code is running wrong in the drawing, who can tell me what to do?

[FINET_Laurent · Accepted solution]

Hi,

Make sure the view you are chaning the scale is a main view and not an projected view, section views, etc. since those views scale are linked to the main ones : 

Sub Main() 
	Dim oDrawingDoc As DrawingDocument = ThisApplication.ActiveDocument 
	Dim baseScale As Double = oDrawingDoc.ActiveSheet.DrawingViews.Item(1).Scale
	
	For Each oView As DrawingView In oDrawingDoc.ActiveSheet.DrawingViews 
		If oView.Type <> DrawingViewTypeEnum.kStandardDrawingViewType Then Continue For			
		oView.Scale = baseScale
		
	Next 
End Sub

Kind regards,

FINET L.

[vpeuvion · Accepted solution]

Hi, you can try this:

Sub Main()
	Dim oDrawingDoc As DrawingDocument = ThisApplication.ActiveDocument 
	Dim baseScale As Double = oDrawingDoc.ActiveSheet.DrawingViews.Item(1).Scale
	For Each oView As DrawingView In oDrawingDoc.ActiveSheet.DrawingViews 
		If oView.ViewType = 10501 Then oView.Scale = baseScale 
	Next 
End Sub

 Vincent.

[38620079]

噢！I see 谢谢