Sub Example_HatchAreas() Dim oSset As AcadSelectionSet Dim oHatch As IAcadHatch2 Set oSset = ThisDrawing.SelectionSets.Add("TEST_SSET1") oSset.SelectOnScreen For Each oHatch In oSset Debug.Print oHatch.Area Next End Sub
elexis Expands Service with CONTACT Elements for IoT
14 minutes ago
No comments:
Post a Comment