Jump to content
gS7

Convert to autolisp code

Recommended Posts

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

Share this post


Link to post
Share on other sites
Tharwat

Like this ... :)

 

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

Share this post


Link to post
Share on other sites
gS7

Thank u for the Quick response Tharwat ..

 

another doubt how to convert Variant to safe array

Share this post


Link to post
Share on other sites
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)
)

Share this post


Link to post
Share on other sites
gS7

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

Share this post


Link to post
Share on other sites
Tharwat
Man !! you are Awesome Thank you Again ..

 

You're welcome . :D

 

today i am Learning Safe array Function

 

Good Luck .

Share this post


Link to post
Share on other sites
gS7

Any other easiest way to learn Safe Array function ?

Share this post


Link to post
Share on other sites
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 ;)

Share this post


Link to post
Share on other sites
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 .. :P

Share this post


Link to post
Share on other sites
Tharwat
While learning I Get so much confusions so Feels Like That ...Think Its a Starting Trouble .. :P

 

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

Share this post


Link to post
Share on other sites
gS7
Keep on working on your goal and you would become very familiar with functions if you had the willing to . :roll:

 

Off course Tharwat

 

and Thank for your Support

Share this post


Link to post
Share on other sites
Tharwat
Of course Tharwat

 

and Thank for your Support

 

Best of luck .

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×