03-03-2020
02:13 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-03-2020
02:13 AM
At below code, extension of lines can be added depends on line type (Like Horizontal or Vertical).
Dim oStartPt As Point2d
Set oStartPt = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Centerlines.Item(i).StartPoint.X, oSheet.Centerlines.Item(i).StartPoint.Y)
Dim oStart As Point2d
Set oStart = oView.SheetToDrawingViewSpace(oStartPt)
Dim oEndPt As Point2d
Set oEndPt = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Centerlines.Item(i).EndPoint.X, oSheet.Centerlines.Item(i).EndPoint.Y)
Dim oEnd As Point2d
Set oEnd = oView.SheetToDrawingViewSpace(oEndPt)
Dim oLine As SketchLine
Set oLine = oSketch.SketchLines.AddByTwoPoints(oStart, oEnd)
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network
