hamidciv Posted September 27, 2014 Share Posted September 27, 2014 hi dear friends For example, I wrote code the area in order to give me, My goal is to be inserted this the area on object like tools dimension in autocad toolbar, how do this? thanks Quote Link to comment Share on other sites More sharing options...
asos2000 Posted September 27, 2014 Share Posted September 27, 2014 LEE giving you an ideal example of what you want http://www.lee-mac.com/areastofield.html Quote Link to comment Share on other sites More sharing options...
mostafa badran Posted September 27, 2014 Share Posted September 27, 2014 Do you mean showing up area of object like a text? Quote Link to comment Share on other sites More sharing options...
hamidciv Posted September 27, 2014 Author Share Posted September 27, 2014 dear mostafa, my mean is for example putting area or perimeter on the object which is shown beloow.(i want know which command do this in autolisp???) thanks Quote Link to comment Share on other sites More sharing options...
hamidciv Posted September 27, 2014 Author Share Posted September 27, 2014 dear asos codes that you putted, written in visual lisp and also complicated, i want know What's the command in autolisp do that? thanks Quote Link to comment Share on other sites More sharing options...
asos2000 Posted September 27, 2014 Share Posted September 27, 2014 hamidciv post what you coded, Quote Link to comment Share on other sites More sharing options...
hanhphuc Posted September 27, 2014 Share Posted September 27, 2014 (edited) dear asoscodes that you putted, written in visual lisp and also complicated, i want know What's the command in autolisp do that? thanks command: _dimradius Edited September 28, 2014 by hanhphuc _dimradius, command: a2f was LM's area to field Quote Link to comment Share on other sites More sharing options...
hamidciv Posted September 27, 2014 Author Share Posted September 27, 2014 dear asos for example written code for drawing circle that radius with leader dispalyed that shown follow, now i want text "area" put previous of radous in my circle on screen. i want exactly text "area" putted previous 12.35 in figure attached, with command do this in autolisp? Quote Link to comment Share on other sites More sharing options...
mostafa badran Posted September 27, 2014 Share Posted September 27, 2014 (edited) try with this. (defun c:test (/ AREA AREAST ARST NP1 NP2 P1 ) ;mostafa badran (vl-load-com) (setq p1 (getpoint "\n Specify first leader point,")) (setq np1 (getpoint p1 "\n Specify next point:")) (setq np2 (getpoint np1 "\n Specify next point:")) (setq rad (vla-get-Radius (vlax-ename->vla-object (car (entsel))))) (setq radst (rtos rad)) (setq rast (strcat "Radius=" radst)) (command "qleader" p1 np1 np2 "" rast "") (princ) ) but you need to Identify size of text and size of arrows. HTH Edited September 27, 2014 by mostafa badran improve code Quote Link to comment Share on other sites More sharing options...
hamidciv Posted September 27, 2014 Author Share Posted September 27, 2014 dear mostafa my mean this was exactly. thanks a lottttttttttttttttt for help me. regards Quote Link to comment Share on other sites More sharing options...
mostafa badran Posted September 27, 2014 Share Posted September 27, 2014 dear mostafa my mean this was exactly. thanks a lottttttttttttttttt for help me. regards your welcome glad to hear that. 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.