CreateLabel method

[rbeemer]

No matter which way I approach using the CreateLabel method to place a free standing label I receive errors.

I have been using the CreateLink method for some time, and it works fine.

Any insights to this would be much appreciated.

(setq link-result (vlax-invoke-method objLinktemplate "CreateLabel" objKeyvalues objLabeltemplate nil))

; error: ActiveX Server returned an error: Type mismatch

      
(setq link-result (vlax-invoke-method objLinktemplate "CreateLabel" objKeyvalues labeltemplate-name nil))

; error: lisp value has no coercion to VARIANT with this type:  "POLE-NO"

(setq link-result

  (vlax-invoke-method objLinktemplate "CreateLabel" objKeyvalues (vlax-make-variant linktemplate-name

vlax-vbString) nil)
)

; error: lisp value has no coercion to VARIANT with this type:  #<variant 8 POLE>

(setq link-result (vl-catch-all-apply

  'caom-CreateLabel (list objLinktemplate obj-id objKeyvalues labeltemplate-name nil)

))

; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on unknown exception

(setq link-result (vl-catch-all-apply
  'caom-CreateLink (list objLinktemplate obj-id objKeyvalues)
))

;works fine