Hi Kerry: I've been struggling w/ this same issue all morning and still getting nowhere.
I don't belive that VB requires parameters be typed; however, I tried placing in the type as well and it didn't make any difference:
from this:
Public Shared Sub OffsetMyPoly_2Row(ByVal pEstimatePolyId, ByVal dDouble)
to this:
Public Shared Sub OffsetMyPoly_2Row(ByVal pEstimatePolyId As DatabaseServices.ObjectId, ByVal dDouble As Double)
Here's the import statements I'm using for this page:
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD
Imports Microsoft.VisualBasic
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime.Interop
Imports System.Drawing
Imports Autodesk.AutoCAD.Colors
Imports System.Math
Imports System.Object
Imports System.Runtime.InteropServices.Marshal
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
When I rem out the line below:
' btr.AppendEntity(newPl)
It won't let me run this line - and it's the line I get the einvalid input. :
Dim pt As Point3d = newPl.GetPointAtDist((12 / num) * z)
When i look at it using the local variables window you showed me I see the the new poly has no objectid.
Why is it that I can get the length of the new poly...but i can get point at distance?
It seems that I have to append it to the database in order to use this method....
However, if i do that...but not this line:
'trans.AddNewlyCreatedDBObject(newPl1, True)
it won't let me open the layout tab.
I sure appreciate all the help you've been giving me. I'm really stuck...I appreciate any ideas you can spare.
Thanks again,
Proctor