Convert to autolisp code

[gS7]

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

[Tharwat]

Like this ...

 

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

[gS7]

Thank u for the Quick response Tharwat ..

 

another doubt how to convert Variant to safe array

[Tharwat]

 

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)
)

[gS7]

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

[Tharwat]

Man !! you are Awesome Thank you Again ..

 

You're welcome .

 

today i am Learning Safe array Function

 

Good Luck .

[gS7]

Any other easiest way to learn Safe Array function ?

[Tharwat]

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

[gS7]

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 ..

[Tharwat]

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 .

[gS7]

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

[Tharwat]

Of course Tharwat

 

and Thank for your Support

 

Best of luck .