Dim ACADLayout As ACADLayout
Dim originalValue As Integer
‘ Get the layout object
Set ACADLayout = ThisDrawing.ActiveLayout
‘ Read and display the original value
originalValue = ACADLayout.PlotType
MsgBox “The PlotType value is set to: ” & originalValue
‘ Modify the PlotType preference by toggling the value
ACADLayout.PlotType = acExtents
MsgBox “The PlotType preference has been set to: ” & ACADLayout.PlotType
‘ Reset the preference back to its original value
ACADLayout.PlotType = originalValue
MsgBox “The PlotType preference was reset back to: ” & originalValue
이렇게 하면 결과 값이 전부 0, 0, 0, 나오는데요…..;;;
acExtents 넣었을 때는 결과 값이 달라져야 하는거 아닌가요?
공유