Jump to content

Search the Community

Showing results for tags 'vba offset 2dpolyline'.

  • Search By Tags

    Type tags separated by commas.

  • Search By Author

Content Type


Forums

  • CADTutor
    • News, Announcements & FAQ
    • Feedback
  • AutoCAD
    • AutoCAD Beginners' Area
    • AutoCAD 2D Drafting, Object Properties & Interface
    • AutoCAD Drawing Management & Output
    • AutoCAD 3D Modelling & Rendering
    • AutoCAD Vertical Products
    • AutoCAD LT
    • CAD Management
    • AutoCAD Bugs, Error Messages & Quirks
    • AutoCAD General
    • AutoCAD Blogs
  • AutoCAD Customization
    • The CUI, Hatches, Linetypes, Scripts & Macros
    • AutoLISP, Visual LISP & DCL
    • .NET, ObjectARX & VBA
    • Application Beta Testing
    • Application Archive
  • Other Autodesk Products
    • Autodesk 3ds Max
    • Autodesk Revit
    • Autodesk Inventor
    • Autodesk Software General
  • Other CAD Products
    • BricsCAD
    • SketchUp
    • Rhino
    • SolidWorks
    • MicroStation
    • Design Software
    • Catch All
  • Resources
    • Tutorials & Tips'n'Tricks
    • AutoCAD Museum
    • Blocks, Images, Models & Materials
    • Useful Links
  • Community
    • Introduce Yourself
    • Showcase
    • Work In Progress
    • Jobs & Training
    • Chat
    • Competitions

Categories

  • Programs and Scripts
  • 2D AutoCAD Blocks
  • 3D AutoCAD Blocks
  • Images
    • Backgrounds

Find results in...

Find results that contain...


Date Created

  • Start

    End

Last Updated

  • Start

    End

Filter by number of...

Found 1 result

  1. AstroNout

    Offset VBA

    AstroNout posted a topic in .NET, ObjectARX & VBA

    Hi guys I've got a bit of a problem with the offset-method in autoCAD VBA. It works a charm with LWpoly's but 2Dpolylines or other polylines with X,Y and Z-coords don't seem to go through the method, creating the variant array varObjArr. Any help is appreciated! Dim varObjArr As Variant Dim aEnt As AcadEntity Dim aLine2 As AcadPolyline Dim Coords2 As Variant [... part that works with acadlwpolylines...] ElseIf TypeOf aEnt Is AcadPolyline Then Set aLine2 = aEnt varObjArr = aLine2.Offset(-0.001) Set aLine2 = varObjArr(0) Coords2 = aLine2.Coordinates aLine2.Delete End If
×
×
  • Create New...