dimensioning help

[casualmasters]

hi i need help please is thier any way that make autocad automate every dimension and level

i mean i want to but dimension for each point can any lisp or any way to make my life easier

Drawing1.dwg

[casualmasters]

i want autocad to automate the level of each point is thier any way to do this

[Lee Mac]

How about this?

 

(defun c:lazy_dim (/ doc spc bpt ss ept)
 (vl-load-com)
 (setq doc (vla-get-ActiveDocument
             (vlax-get-Acad-Object))
       spc (if (zerop (vla-get-activespace doc))
             (if (= (vla-get-mspace doc) :vlax-true)
               (vla-get-modelspace doc)
               (vla-get-paperspace doc))
             (vla-get-modelspace doc)))
 (if (and (setq bpt (getpoint "\nSelect Base Point: "))
          (princ "\nSelect Points...")
          (setq ss (ssget '((0 . "POINT")))))
   (foreach pt (mapcar 'vlax-3D-point
                 (vl-sort
                   (mapcar
                     (function
                       (lambda (x)
                         (cdr (assoc 10 (entget x)))))
                     (vl-remove-if 'listp
                       (mapcar 'cadr (ssnamex ss))))
                   (function
                     (lambda (x1 x2)
                       (> (cadr x1) (cadr x2))))))
     (if (setq ept
           (getpoint bPt "\nSelect Point to Dimension: "))
       (progn
         (vla-addDimRotated spc
           (vlax-3D-point bPt)
             (vlax-3D-point ePt) pt 0))))
   (princ "\n<< Incorrect Selection >>"))
 (princ))
             

 

Select your Base-Point, and then select all your points (red), then you just have to click at each point to dimension.

[casualmasters]

thank u mr lee but it doesn`t work for me

 

i will tell u what do i need

i want to but the levels automatically i will enter a level assume it ia -8.91m and it buts all the other levels thank u very very muck mr leee mac for help

[Lee Mac]

It should work. I tried it on your posted drawing and it works.

[casualmasters]

i will try again

[casualmasters]

i don`t know what to say mr lee but i will ask u for one more help

all i want is to make a datum and give it a level asume it will be -1.00m after that any horizontal line i choose, a lisp automatically write its level above datum

[Lee Mac]

i don`t know what to say mr lee but i will ask u for one more help

all i want is to make a datum and give it a level asume it will be -1.00m after that any horizontal line i choose, a lisp automatically write its level above datum

 

Did my other LISP work for you?

[casualmasters]

it works only for the file i uploaded but i tried in another one but id didn`t work

[Lee Mac]

I'm not sure why, I have tried it on arbitrary drawings and all seems fine - what error occurs?

[casualmasters]

mr lee mac can u tell me how to scale that drawing with scale 1:100 and plot it on A1 paper also how can i make the dimension layer scaled to the overall scale i mean by this if i draw scale 1:100 dimension scale may be .025 and for 1:200 .5 and soo on i know this question is easy but iam a beginner