![]() Shortcuts Guide One Key Shortcuts Hot Keys and Toggles Workflow, Drawing, and Screen Management Commands A–Z FOR MAC. Cmd-H Hides AutoCAD window. Drawing arcs using 5 different methods. Using AutoCAD Sheet Sets Tutorial| Prepare You Title Block For Sheet Sets - Duration: 19:34. O'Reilly - Video Training 79,830 views.
(- rad (/ rad 10.)))) ) (setq dim2 (vla-adddimradial spc (vlax-3d-point p) (vlax-3d-point (polar p (/ pi 2.) rad)) 10. ) ) (vla-put-textposition dim2 (vlax-3d-point (polar p (/ pi 2.) (- rad (/ rad 10.)))) ) (vla-put-rotation dim2 (* pi 1.5)) (vla-EndUndoMark acdoc) ) (princ) ) (princ) ). (defun c:Test (/ *error* i ss e d o) (vl-load-com) (defun *error* (msg) (and *AcadDoc* (vla-endundomark *AcadDoc*)) (if (and msg (not (wcmatch (strcase msg) '*BREAK*,*CANCEL*,*QUIT*,'))) (princ (strcat ' nError: ' msg)) ) ) (vla-startundomark (cond (*AcadDoc*) ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object)))) ) ) (if (setq i -1 ss (ssget '((0. 'ARC'))) ) (while (setq e (ssname ss (setq i (1+ i)))) (setq d (entget e) o (vla-objectidtoobject *AcadDoc* (vla-get-ownerid (vlax-ename->vla-object e))) ) (foreach point (list (polar (cdr (assoc 10 d)) (cdr (assoc 50 d)) (cdr (assoc 40 d))) (polar (cdr (assoc 10 d)) (cdr (assoc 51 d)) (cdr (assoc 40 d))) ) (vlax-invoke o 'adddimradial (cdr (assoc 10 d)) point -1.) ) ) ) (*error* nil) (princ) ). Here is the modified one. (defun c:TesT (/ ss i sn vl spc acdoc p c l rad p1) (vl-load-com);; Tharwat 23. 2011;; (if (setq ss (ssget '((0. 'ARC')))) (repeat (setq i (sslength ss)) (setq sn (ssname ss (setq i (1- i)))) (setq vl (vlax-ename->vla-object sn)) (setq spc (if (> (vla-get-activespace (setq acdoc (vla-get-activedocument (vlax-get-acad-object) ) ) ) 0 ) (vla-get-modelspace acdoc) (vla-get-paperspace acdoc) ) ) (vla-StartUndoMark acdoC) (vla-adddimradial spc (vlax-3d-point (setq p (vlax-get vl 'Startpoint))) (vlax-3d-point (polar p (angle p (setq c (vlax-get vl 'Center))) (setq l (/ (setq rad (vla-get-radius vl)) 5.)) ) ) 0. Torque driver in oz. ) (vla-adddimradial spc (vlax-3d-point (setq p1 (vlax-get vl 'Endpoint))) (vlax-3d-point (polar p1 (angle p1 c) l)) 0. ) (vla-EndUndoMark acdoc) ) (princ) ) (princ) ). Hi guys Tharwat, thanks for your input but I tested your code and it works fine but it was a little bit complicated. The code that Alanjt programmed is almost exactly what I need only there is one little problem. Autocad For Mac CrackIs it possible that the text always can be placed inside the arc? If you see at the picture, autocad put sometimes (I think depending how the arc is placed) the text (inside the red circle) on the wrong side of the arrowline. [ATTACH=CONFIG]31281[/ATTACH] Anyway, thx al lot for the input! GrzIn your above picture, every dimension is inside it's corresponding arc. I'll repost to alleviate some sloppiness on my part. (defun c:Test (/ *error* i ss e d o p r) (vl-load-com) (defun *error* (msg) (and *AcadDoc* (vla-endundomark *AcadDoc*)) (if (and msg (not (wcmatch (strcase msg) '*BREAK*,*CANCEL*,*QUIT*,'))) (princ (strcat ' nError: ' msg)) ) ) (vla-startundomark (cond (*AcadDoc*) ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object)))) ) ) (if (setq i -1 ss (ssget '((0. 'ARC'))) ) (while (setq e (ssname ss (setq i (1+ i)))) (setq d (entget e) o (vla-objectidtoobject *AcadDoc* (vla-get-ownerid (vlax-ename->vla-object e))) p (cdr (assoc 10 d)) r (cdr (assoc 40 d)) ) (foreach point (list (polar p (cdr (assoc 50 d)) r) (polar p (cdr (assoc 51 d)) r)) (vlax-invoke o 'adddimradial p point -1.) ) ) ) (*error* nil) (princ) ).
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |