Auto dimesioning polyline

[Cladding Connexions]

Thanks jt - what that mean creating several dimension styles for different scales of viewport?

[jtiwari91]

Thanks jt - what that mean creating several dimension styles for different scales of viewport?

 

i am afraid so buddy. Acc to me it will be easier and faster for you.

 

But I am not an autocad expert. Maybe someone can suggest you a faster way

[fixo]

Try this one from my code storage

pline dimensioning.txt

[ORgrown]

fixo and/or Lee Mac:

I tried out both your routines and they are great. I very much appreciate the talent you guys have in coding LiSP. I took a class back in '96...hurt my brain, but at least I can follow along a bit on the easier routines.

 

With the routines you posted, I don't need the bearing, just the length of the Pline (closed or unclosed)....but more accurately with NO dimension line. Is there a way to modify either routines for a simple footage text (or footage block) to be placed parallel to a chosen Pline?

 

I'm not fussy where it's located, but ideally it would be center of line and to one side or the other (nice option to pick the side, but again, I'm not fussy at this point! Just thankful!)...Offset ~8' at text center of 8' height text. I have a routine that will convert text to block (I'm pretty sure I do anyway), so I can convert any text to the appropriate footage block (to differentiate between segments that are aerial or underground).

 

Thank you.

[sergiu_ciuhnenco]

a request to Mircea :

after using your lisp , I do not why but is always repeating "_ select " comand :

"Command: _select

 

Select objects: !previousSelection

" it give me this mesage after each comand !

could you fix this please ( te rog )

[marko_ribar]

sergiu, could it be that you recently installed Andreas DiLeader tool and forgot to deactivate reactors?

I had the same issue and I solved it like what I've explained in this topic...

http://www.theswamp.org/index.php?topic=29245.405#msg553275

 

Maybe I am wrong, but maybe not, just trying to help...

M.R.

[sergiu_ciuhnenco]

marko_ribar Thanks; Finaly found the problem .

[Zac Davis]

fixo and/or Lee Mac:

I tried out both your routines and they are great. I very much appreciate the talent you guys have in coding LiSP. I took a class back in '96...hurt my brain, but at least I can follow along a bit on the easier routines.

 

With the routines you posted, I don't need the bearing, just the length of the Pline (closed or unclosed)....but more accurately with NO dimension line. Is there a way to modify either routines for a simple footage text (or footage block) to be placed parallel to a chosen Pline?

 

 

I'm not fussy where it's located, but ideally it would be center of line and to one side or the other (nice option to pick the side, but again, I'm not fussy at this point! Just thankful!)...Offset ~8' at text center of 8' height text. I have a routine that will convert text to block (I'm pretty sure I do anyway), so I can convert any text to the appropriate footage block (to differentiate between segments that are aerial or underground).

 

Thank you.

Try here written by Stefan M. for KIM

[gamulj]

Try this one from my code storage

Please, if some of you experts is willing to edit code posted by fixo in a way to add ability to change side and offset distance by picking it in cad instead of manually changing it in lisp it would be perfect.

Thanks!

[gamulj]

Please, if some of you experts is willing to edit code posted by fixo in a way to add ability to change side and offset distance by picking it in model space, instead of manually changing it in lisp every time?! It would be perfect.

Thanks!

 

Anyone, please?!

[BIGAL]

Good time to learn lisp this line is not very hard to change to a ask question.

 

(setq gap (* (getvar "dimtxt") 2.5));

 

Hint getdist

[gamulj]

Thank you BIGAL I realized how to change offset with getdist/getreal!

Can You help me make it work with more polylines?

Edited May 18, 2016 by gamulj

[mousho]

Thank you ASMI!

i have a request if it's not a problem

i have a pline with short segments that i dont want to dim

there is a way that the code will show dim only greater then 5 cm?

[Lee Mac]

Please indicate which post contains the code you are using.

[mousho]

POST #10

THERE IS THE LINK

http://www.cadtutor.net/forum/showthread.php?27634-Auto-dimesioning-polyline&p=178413&viewfull=1#post178413

 

THANKS U

[Lee Mac]

Try the following code:

(defun c:polydim ( / cmd enx idx lbd lst off sel )

   (setq off 1.2 ;; Dimension offset factor
         lbd 5.0 ;; Dimension segments greater than this length (set to 0 to dimension all segments)
   )
   (if (setq sel (ssget '((0 . "LWPOLYLINE") (-4 . "<NOT") (-4 . "<>") (42 . 0.0) (-4 . "NOT>"))))
       (progn
           (setq cmd (getvar 'cmdecho)
                 off (* off (getvar 'dimtxt))
           )
           (setvar 'cmdecho 0)
           (repeat (setq idx (sslength sel))
               (setq enx (entget (ssname sel (setq idx (1- idx))))
                     lst (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) enx))
               )
               (mapcar
                  '(lambda ( a b / d )
                       (if (< lbd (setq d (distance a b)))
                           (vl-cmdf "_.dimaligned" "_non" a "_non" b "_non"
                               (polar (polar a (angle a b) (/ d 2)) (+ (angle a b) (/ pi (if (< (car a) (car b)) 2.0 -2.0))) off)
                           )
                       )
                   )
                   lst
                   (if (= 1 (logand 1 (cdr (assoc 70 enx))))
                       (reverse (cons (car lst) (reverse (cdr lst))))
                       (cdr lst)
                   )
               )
           )
           (setvar 'cmdecho cmd)
       )
   )
   (princ)
)

[mousho]

Lee Mac thanks alot its work

can i ask another request?

i want to combine it in a larger lisp, i try to upload it and set it to chose the last pline that draw

" (load "D:\\PATH...\\POLYDIM.lsp")

(command "_.select" "_last" "")

(C: POLYDIM)"

but its not work, what i need to do?

[westj]

Hi ! any way to get all dimension inside of the polyline?

[MihaiAnghius]

Thank you this thread wal a lot of help .

ASMI yout lisp is amazing and i've learned a lot

[JGMARGARITO]

I was wondering if any one can edit the code and add and offset of 1.25 inside the line or the polylines. love the coded and works great.