Topic: 3rd party command definition

[ronjonp]

How would I get lisp to recognize this command that is defined through 3rd party software?

Code: [Select]

(if (or (= (getvar 'lunits) 3) (= (getvar 'lunits) 4))
  (command "WID_SetDesignArcRadius" "5'")
  (command "WID_SetDesignArcRadius" "5")
)
If I paste "WID_SetDesignArcRadius" into the command line it is recognized....but in the lisp it is not?

Thanks,

Ron

[Serge J. Gianolla]

(WID_SetDesignArcRadius "5'")

[ronjonp]

Nice try but....

; error: no function definition: WID_SETDESIGNARCRADIUS

[Jeff_M]

You will probably be able to run it by:
 (C:WID_SETDESIGNARCRADIUS)
but you won't be able to pass the "5" to it......that's one limitation of lisp commands. If you can find if & where this value gets stored then you may have better luck modifying yourself.

[Serge J. Gianolla]

Nice try but....

; error: no function definition: WID_SETDESIGNARCRADIUS

This error means your function was not loaded.
And as Jeff started mentioning about argument passed to routine, check if you have similar:
(defun c:WID_SETDESIGNARCRADIUS (sVal / ....)

[ronjonp]

Thanks for the ideas guys....I figured it out. I guess the progem is written in visualbasic so....

(command "-vbarun" "WID_Dispatch.SetDesignArcRadius" "5'")

works from lisp

[FengK]

How would I get lisp to recognize this command that is defined

Ron

How about

(command "VBASTMT" "ThisDrawing.SendCommand \"WID_SetDesignArcRadius\"")

[Andrea]

Maybe not a good help...but..

Code: [Select]

(if (or (= (getvar 'lunits) 3) (= (getvar 'lunits) 4))
  (setq val1 "5'")
  (setq val1 "5")
)
(vl-cmdf "WID_SetDesignArcRadius" val1)

;;also you can try this...
(setq val1 (strcat "5" (chr 39)))

;;or this...
(vl-cmdf "WID_SetDesignArcRadius" "!val1")