Topic: vla-put-Coordinate

[Lee Mac]

Hi Guys,

Just wondering how to use the above method?

I have been trying the follow, but to no avail:

Code: [Select]

(vla-put-Coordinate <vla-object>  (vlax-3D-point (list (car pt) (cadr pt))) <Int>)

Where <vla-object> is an LWPOLYLINE, and pt is a point, and <Int> is an Integer representing a vertex parameter.

But I keep getting the error:

"Lisp has no Coercion to VARIANT with this type: <variant8197>..."

Any help or advice is appreciated

Cheers

Lee

[CAB]

You need to use vla-put-Coordinates
Note the s

[Lee Mac]

Is there no way to use

vla-put-Coordinate?

[CAB]

Oh, you want to update a single coordinate?

You need to use the coordinate number.

Code: [Select]

(vla-put-coordinate obj param# coord)

try this:

Code: [Select]

(vla-put-Coordinate <vla-object> <Int>  (vlax-3D-point (list (car pt) (cadr pt))))

[Lee Mac]

Sorry CAB, I don't quite follow you -

Is Coord a "variant" or just a list?

Also, is param# an integer?

[CAB]

just like you had it but the integer was in the wrong place.

Code: [Select]

(vla-put-Coordinate <vla-object> <Int>  (vlax-3D-point (list (car pt) (cadr pt))))

[Lee Mac]

Many thanks CAB 

I needed to make a safearray and variant, as I realised it was a 2D point, not 3D - hence vlax-3D-point would not work.

But I did get it working   


Thanks   

Lee

[CAB]

Great, I just got this to work.

Code: [Select]

(defun c:test(/ ent obj vlapt)
  (setq obj (vlax-ename->vla-object (car(entsel))))
  (setq vlapt (vlax-make-safearray vlax-vbdouble '(0 . 1)))
  (vlax-safearray-fill vlapt '(2 2))
  (vla-put-Coordinate obj 1  vlapt)
  )
As you say it's not a 3-d point.

[ronjonp]

I think if you use the (vlax-get\vlax-put obj 'Coordinate\s) you don't have to supply a variant.

[Lee Mac]

Thanks for the tip Ron 

[CAB]

This works:

Code: [Select]

(vlax-get obj 'Coordinates) ; returns a point list
This does not:

Code: [Select]

(vlax-get obj 'Coordinate 1)

[Jeff_M]

Yeah, the get/put shortcut does not work with this property. Another one of those cases you must use the "long way" to do something.