Změna směru čáry

U některých typů čar jako je značení kanalizace, plynu ve stavebních projektech je důležité, který bod je koncový a který počáteční, protože typ čáry musí mít správný směr značení. Příklad vytvoří novou čáru s obráceným počátečním a koncovým bodem a přiřadí jí vlastnosti původní čáry. Nakonec bude původní čára smazána a nová aktualizována pro správné zobrazení.

Využity jsou tyto vlastnosti objektů:
StartPoint - počáteční bod
EndPoint - koncový bod
Layer - hladina
LineType - typ čáry
LineTypeScale - měřítko typu čáry
LineWeight - tloušťka čáry

Sub ChangeLineDirection()

Dim icadDoc As IntelliCAD.Document
Dim myArc As Arc
Dim cenPt As IntelliCAD.Point
Dim myObj As Object
Dim Pt1 As Point
Dim myStartPt As Point
Dim myEndPt As Point
Dim myLine As IntelliCAD.Line
Dim myLine2 As IntelliCAD.Line

Set icadDoc = ActiveDocument
Set cenPt = Library.CreatePoint(4, 2)
icadDoc.Utility.GetEntity myLine, Pt1, " Vyber objekt:"
Set myStartPt = myLine.StartPoint
Set myEndPt = myLine.EndPoint

Set myLine2 = icadDoc.ModelSpace.AddLine(Library.CreatePoint(myEndPt.x, myEndPt.y, myEndPt.z), Library.CreatePoint(myStartPt.x, myStartPt.y, myStartPt.z))
myLine2.Layer = myLine.Layer
myLine2.Linetype = myLine.Linetype
myLine2.LinetypeScale = myLine.LinetypeScale
myLine2.Lineweight = myLine.Lineweight

myLine.Delete
myLine2.Update

End Sub

Makro je také možné stáhnout zde.

 



Menu