Hallo Experten,
habe ein kleines Vbs-Problem in der Messfunktion mit "GetMinimumDistance", bei der mir vielleicht jemand weiterhelfen kann.
Ich möchte eine exakte Messung zwischen zwei Elementen (Boundary und Intersection) vornehmen und den minimalen Abstand messen. Ist die Boundary zirkular, wird die Messung nicht auf die Kurve sondern den Mittelpunkt vorgenommen. Ich möchte jedoch ausschließlich zur Kurve bzw. Edge messen.
In der Measure-Fkt. in V5 würde in der "Selection 1" "Edge only" vorauswählen. Wie kann ich das in Vbs umsetzen?
Mein bisheriges Makro-Fragment:
Set ref1 = part1.CreateReferenceFromObject(hybridShapeBoundary1)
Set ref2 = part1.CreateReferenceFromObject(hybridShapeIntersection1)
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(ref1)
MinDist = TheMeasurable.GetMinimumDistance(ref2)
Thanx for help!
------------------
Gussi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP