Newby scripting problem... probably obvious

@wynott wrote:

I am getting a type mismatch on the strPt line.

Sub Main()

Dim ObjectforCG: ObjectforCG = Rhino.GetObject("Pick", 8 + 16, True, True)

Dim areaCentroid: areaCentroid = Rhino.SurfaceAreaCentroid(ObjectforCG)

Dim date: date = Rhino.DocumentInfo

Dim strPt: strPt = areaCentroid(0) & vbTab & areaCentroid(1) & vbTab & areaCentroid(2) & vbTab & date(6)

Rhino.ClipboardText(strPt)

End Sub

Posts: 5

Participants: 2

Read full topic