gS7 Posted February 5, 2013 Share Posted February 5, 2013 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 Quote Link to comment Share on other sites More sharing options...
Tharwat Posted February 5, 2013 Share Posted February 5, 2013 Like this ... (princ (vlax-safearray->list (vlax-variant-value thepoint))) Quote Link to comment Share on other sites More sharing options...
gS7 Posted February 5, 2013 Author Share Posted February 5, 2013 Thank u for the Quick response Tharwat .. another doubt how to convert Variant to safe array Quote Link to comment Share on other sites More sharing options...
Tharwat Posted February 5, 2013 Share Posted February 5, 2013 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) ) Quote Link to comment Share on other sites More sharing options...
gS7 Posted February 5, 2013 Author Share Posted February 5, 2013 Man !! you are Awesome Thank you Again ..today i am Learning Safe array Function Quote Link to comment Share on other sites More sharing options...
Tharwat Posted February 5, 2013 Share Posted February 5, 2013 Man !! you are Awesome Thank you Again .. You're welcome . today i am Learning Safe array Function Good Luck . Quote Link to comment Share on other sites More sharing options...
gS7 Posted February 5, 2013 Author Share Posted February 5, 2013 Any other easiest way to learn Safe Array function ? Quote Link to comment Share on other sites More sharing options...
Tharwat Posted February 5, 2013 Share Posted February 5, 2013 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 Quote Link to comment Share on other sites More sharing options...
gS7 Posted February 5, 2013 Author Share Posted February 5, 2013 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 .. Quote Link to comment Share on other sites More sharing options...
Tharwat Posted February 5, 2013 Share Posted February 5, 2013 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 . Quote Link to comment Share on other sites More sharing options...
gS7 Posted February 5, 2013 Author Share Posted February 5, 2013 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 Quote Link to comment Share on other sites More sharing options...
Tharwat Posted February 5, 2013 Share Posted February 5, 2013 Of course Tharwat and Thank for your Support Best of luck . Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.