Add Dimensions to Rectangles

[Raje]

Helo all....

 

i have 2 objects. one is Rectangles and another one is crossing lines. for large number of rectangles i am suffered with manual dimension.

 

distance between dimension to rectangle corners is based upon "Fixed length extension lines" length. in my example file using length is 1'-1". so distance between dimension to rectangle points is 1'-1". please have a look at my sample file.

 

so please help with any code or macro to minimize this process like select all rectangles, cross lines and add dimensions to all rectangles.

 

Thank you in Advance...

Happy coding..

example (1).dwg

Edited November 28, 2017 by Raje

[ronjonp]

Have you tried QDIM ?

[Raje]

Helo ronjonp,

Thank you for responding my post. i tried QDIM too. getting whole dimension without break. possible auto dim by single click with help of selecting objects?

 

Thank you...

Edited November 28, 2017 by Raje

[BIGAL]

Some ideas pick horizontal line this gets all rectangs as well that cross and do vertical dims. pick vertical line 1 at time and do horizontals. I have something bit will autodim all including the gap.

 

It may be simpler to do a drag line across each 1 and dimension matching drag line angle so only 1 routine needed rather than working out horizontal and vertical. Just a while pick 2 pts.

 

Will have a think.

[Raje]

thank yor responding Bigal...looking for auto lisp.

Thank you..

[Raje]

Hi All Gurus,

here i am hardly getting auto dimension code by searching google.. please implement as required style..

(defun C:AD ( / *error* a acdoc b c d dim e fd ht i o p1 p2 p3 pc pm rad sd space ss u opt isLine)
 (setq acDoc (vla-get-activedocument (vlax-get-acad-object))
       space (vlax-get acDoc (if (= (getvar 'cvport) 1) 'paperspase 'modelspace))
       dim (getvar 'dimstyle)
       ht  (* 1.0 (getvar 'dimtxt) (if (= 0 (getvar 'dimanno)) (getvar 'dimscale) (/ 1.0 (getvar 'cannoscalevalue))))
       )
 (vla-startundomark acDoc)

 (defun *error* (msg)
   (and
     msg
     (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*BREAK*"))
     (princ (strcat "\nADError: " msg))
     )
   (vla-endundomark acdoc)
   (princ)
   )
 
 (setq opt (mapcar
             '(lambda (a b)
                (cond
                  ((getdictvar "AD_otions" a))
                  ((setdictvar "AD_otions" a b))
                  )
                )
             '("Linear" "Arc")
             '("b0" "c0")
             )
       )
 
 (initget "Options")
 (if
   (eq (getkword "\nPress enter to continue or [Options]: ") "Options")
   (setq opt (AD_options opt))
   )
 
 (if
   (setq ss (ssget '((0 . "LWPOLYLINE,LINE,ARC"))))
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i)))
           o (vlax-ename->vla-object e)
           a (vlax-curve-getstartparam e)
           c (vlax-curve-getendparam   e)
           b nil
           isLine (wcmatch (vla-get-Objectname o) "AcDbLine,AcDbArc")
           )
     (while (<= (setq b (if isLine (if b (1+ b) c) (1+ a))) c)
       (setq p1 (vlax-curve-getpointatparam e a)
             p2 (vlax-curve-getpointatparam e b)
             u  (angle p1 p2)
             pm (vlax-curve-getpointatparam e (/ (+ a b) 2.0))
             sd (vlax-curve-getsecondderiv  e (/ (+ a b) 2.0))
             rad (distance '(0 0 0) sd)
             d  (cond (isLine) ((not (minusp (vla-getbulge o a)))))
             pc (mapcar (if d '+ '-) pm sd)
             p3 (if
                  (or (equal rad 0.0 1e- (eq (cadr opt) "c2"))
                  (if
                    (eq (car opt) "b0")
                    (polar pm (+ (atan (/ (sin u) (cos u))) (/ pi 2.0)) ht)
                    (polar pm (- (atan (/ (sin u) (cos u))) (/ pi 2.0)) (* 1.75 ht))
                    )
                  (if
                    (eq (cadr opt) "c0")
                    (polar pm (angle pm pc) (if (<= 1e-4 (angle pc pm) pi) (* 1.75 ht) ht))
                    (polar pm (angle pc pm) (if (<= 1e-4 (angle pc pm) pi) ht (* 1.75 ht)))
                  )
                )
              )
       (if
         (equal rad 0.0 1e-
         (vla-adddimaligned space (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
         (vla-adddimarc space (vlax-3d-point pc) (vlax-3d-point p1) (vlax-3d-point p2) (vlax-3d-point p3))
         )
       (setq a (1+ a))
       )
     )
   )
 (vla-endundomark acdoc)
 (princ)
 )

(defun AD_options (old / a1 a2 b1 b2 dcl dcl_id file r)
 (setq
   a1 (car old)
   a2 (cadr old)
   dcl (open (setq file (vl-filename-mktemp "AD" (getvar 'dwgprefix) ".dcl")) "w")
 )
 (write-line
   "AD: dialog { label = \"Dimension Polyline Options\" ;
   : boxed_radio_column { label = \"Linear dimension position\" ; key = \"a1\";
   : radio_button { label = \"Above line\" ; key = \"b0\";}
   : radio_button { label = \"Below line\" ; key = \"b1\";}}
   : boxed_radio_column { label = \"Arc dimension position\" ; key = \"a2\";
   : radio_button { label = \"Inside arc\" ; key = \"c0\";}
   : radio_button { label = \"Outside arc\" ; key = \"c1\";}
   : radio_button { label = \"As for lines\" ; key = \"c2\";}}
   ok_cancel ;}"
   dcl)
 (close dcl)
 (if
   (< 0 (setq dcl_id (load_dialog file)))
   (if
     (new_dialog "AD" dcl_id)
     (progn
       (action_tile "a1" "(setq b1 $value)")
       (action_tile "a2" "(setq b2 $value)")
       (set_tile "a1" (setq b1 a1))
       (set_tile "a2" (setq b2 a2))
       (setq r (start_dialog))
       (unload_dialog dcl_id)
       )
     )
   )
 (if (findfile file) (vl-file-delete file))
 (if
   (= r 1)
   (mapcar 'setdictvar 
     '("AD_otions" "AD_otions")
     '("Linear" "Arc")
     (list b1 b2)
   )
   (list a1 a2)
 )
)
   
(defun getdictvar (dict var / dict_ename)
 (if
   (setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
   (cdr (assoc 1 (dictsearch dict_ename var)))
 )
)

(defun setdictvar (dict var val / dict_name record)
 (or
   (setq dict_ename (cdr (assoc -1 (dictsearch (namedobjdict) dict))))
   (setq dict_ename (dictadd (namedobjdict) dict (entmakex '((0 . "DICTIONARY") (100 . "AcDbDictionary")))))
   )
 (if
   (setq record (dictsearch dict_ename var))
   (entmod (subst (cons 1 val) (assoc 1 record) record))
   (dictadd
     dict_ename
     var
     (entmakex
       (list
         '(0 . "DICTIONARYVAR")
         '(100 . "DictionaryVariables")
         '(280 . 0)
         (cons 1 val)
       )
     )
   )
 )
 val
)

 

Thankyou All...

[BIGAL]

Try this offset for dim line is set to 10 in code you will need to change

 

; dim a rectang via a vertical or hor line
; by Alan H Dec 2017

(defun c:dimrec ( / lobj pt1 pt2 pt4 pt5 pt6 maxpt minpt maxpoint minpoint ss ent)
(SETQ ANGBASEE (GETVAR 'ANGBASE))
(setvar 'angbase 0.0)
(setq oldsnap (getvar 'osmode))
(setvar 'osmode 0)
(while (/=  (setq ent (entsel "\nPick Line object")) nil)
(setq lobj (vlax-ename->vla-object (car ent)))

(setq pt1 (vlax-safearray->list (vlax-variant-value (vla-get-startpoint lobj))))
(setq pt2 (vlax-safearray->list (vlax-variant-value (vla-get-endpoint lobj))))
(setq ang (angle pt1 pt2))
(cond
((/= ang 0.0)(setq vert "F"))
((= ang 0.0)(setq vert "T"))
((= ang 180.0)(setq vert "T"))
((= ang pi)(setq vert "T"))
)

(setq ss (ssget "F"(list pt1 pt2)))

(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
(if (= (vla-get-ObjectName obj) "AcDbPolyline")
(progn
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
(setq minpt (vlax-safearray->list  minpoint))
(setq maxpt (vlax-safearray->list  maxpoint))
(if (= vert "F")
(progn
(setq pt4 (list (car pt1)(cadr maxpt)))
(setq pt5 (list (car minpt)(cadr maxpt)))
(setq pt6 (list  (car maxpt) (+ 10 (cadr maxpt))))
)
(progn
(setq pt4 (list (car maxpt)(cadr pt1)))
(setq pt5 (list (car maxpt)(cadr minpt)))
(setq pt6 (list (+ 10 (car maxpt)) (cadr maxpt)))
)
)
(command "dimlinear"  maxpt pt4 pt6 )
(command "dimlinear"  pt4 pt5 pt6 )
)
(princ "Line Found")
)
)
)
(setvar 'osmode oldsnap)
(setvar 'angbase angbasee)
)

Edited November 30, 2017 by BIGAL
Osnap fixed added a while

[Raje]

Helo BIGAL sir:),

you almost finished...thank you very much for preparing:)... can i request small tweaks?

for selection method, select all horizontal and vertical Lines ("Cross lines" layer lines) at once to produce dimensions possible?

 

Thank you..

Edited November 30, 2017 by Raje

[BIGAL]

I changed the code adding a while so you can keep picking the lines the dims will keep up also fixed a snap problem.

 

If you have hundreds then a second selection set is needed for the lines and second repeat, starting to get into not free any more.

[Raje]

Dear BIGAL,

thank you for updating..some times after selecting lines some rectangles not producing dimensions, please fix.

can you provide selection method individual to multiple lines selecting..i have many lines..some times i have many lines..if selection method as select many lines at once it could be helpful.

 

Thank you...

[BIGAL]

1 if rectangles are lines will not work as it checks for plines.

 

2 select all and it just happens, as I hinted its maybe your turn now looking at this line

(while (/=  (setq ent (entsel "\nPick Line object")) nil) you would replace with 
(setq ss2 (ssget (list (cons 0 "Line"))))
(repeat (setq y (sslength ss2))
(setq lobj (vlax-ename->vla-object (ssname ss2 (setq y (- y 1)))))
now get the start and end points as per existing code

 

Have a go we will help when you get stuck.

[Raje]

Dear BIGAL sir,

your lisp is perfect and working nice. i have requested for final tweak only.

that is can you instruct to code as move dimensions to opposite vertices when dimensions and poly lines overlapped. as shown in picture, i have marked overlapped dimensions with red color. please add this rule for working more effectively.

 

Thank you sir.

[BIGAL]

Now where getting into the pay for it part, basically the code needs to be doubled.

 

It needs a response from you "flip to bottom" as the easiest way that is draw dim then erase it if wrong and redraw on opposite side. Need to redo the max min stuff for a top/bot left/right answer.

 

To automate a full is it touching something else is a bigger task. I offer my services for free so like many others just have to work out when to stop writing for free. Some one else may have a quick solution.

 

Last thought given time saving already use mirror on incorrect dimension.