Convert to autolisp code

Hey Guys ..

;Codes Copied from Afralisp website
;Copyright © 1999 by Kenny Ramage
;All rights reserved. 


(defun c:al-getpoint()

(vl-load-com)

(setq util (vla-get-utility 
                  (vla-get-activedocument 
                       (vlax-get-acad-object))))
                       
(setq thepoint (vla-GetPoint util nil "\nFirst Point : "))

(princ thepoint)

(princ)

)

Here I want to Know How to convert # file to Autolisp code

Like this ...

(princ (vlax-safearray->list (vlax-variant-value thepoint)))

Thank u for the Quick response Tharwat ..

another doubt how to convert Variant to safe array

 

another doubt how to convert Variant to safe array

(if (setq pt (getpoint "\n Specify point :"))
 (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 2)) pt)
)

Man !! you are Awesome Thank you Again ..today i am Learning Safe array Function

Man !! you are Awesome Thank you Again ..

You're welcome .

today i am Learning Safe array Function

Good Luck .

Any other easiest way to learn Safe Array function ?

Any other easiest way to learn Safe Array function ?

I am afraid not , but why you feel it is hard to learn ?

Otherwise Lisp function still faster and easier with powerful abilities .

Nothing comes easily

but why you feel it is hard to learn ?

While learning I Get so much confusions so Feels Like That ...Think Its a Starting Trouble ..

While learning I Get so much confusions so Feels Like That ...Think Its a Starting Trouble ..

Keep on working on your goal and you would become very familiar with functions if you had the willing to .

Keep on working on your goal and you would become very familiar with functions if you had the willing to .

Off course Tharwat

and Thank for your Support

Of course Tharwat

 

and Thank for your Support

Best of luck .