Auto dimension of polylines/lines

[rk25134]

Need a lisp for dimensioning of points/segments from a select object(need both dimensions). Please find the attached snapshot .

Edited January 15, 2014 by rk25134

[MSasu]

Have you cheked the QDIM built-in command?

[rk25134]

Need vertical distance also

[Tharwat]

Duplicate Thread

[rk25134]

It is not duplicate thread prvs it is auto polyline and now it is auto dimensions line

[Tharwat]

The time that I spent for you in that thread was a matter of wasting time .

[Luís Augusto]

Allow intromission.

I have a routine that might help. I should point out that I am not able to modify it.

 

pdim.lsp

[rk25134]

See Tharwat I am a beginner. You people has to encourage to learn more. Instead of encouraging your are saying wasting time.

[rk25134]

Thank you for providing the routine. Please find the attached image.

[rk25134]

Thank you for the suggestion. I have checked QDIM command, but the dimensions are not coming as we want.

[Luís Augusto]

See Tharwat I am a beginner. You people has to encourage to learn more. Instead of encouraging your are saying wasting time.

 

rk25134, I am also newbie like you.

In my observations, the member Tharwat has been quite helpful to you. I must emphasize that Tharwat is one of the most active forum guys here and he always encouraged me.

That way he will not feel encouraged to help him again.

[Tharwat]

See Tharwat I am a beginner. You people has to encourage to learn more. Instead of encouraging your are saying wasting time.

 

I did work quite hard and followed your previous thread to become with a very fruitful result but you did ignore my last two replies besides that you've been singing on another far tree which would not be helpful either to you and for user whom willing to understand the idea of your goal to help you with it .

 

if you did find that I am not encouraging you , that is because you are not following your thread very well and do not have a clear goal of any code .

 

rk25134, I am also newbie like you.

In my observations, the member Tharwat has been quite helpful to you. I must emphasize that Tharwat is one of the most active forum guys here and he always encouraged me.

That way he will not feel encouraged to help him again.

 

Thank you Luis for the nice description and for the nice words , Greatly appreciated .

[Tharwat]

Thank you for providing the routine. Please find the attached image.

 

Is this what you are after ?

 

(defun c:DoDim (/ *error* c s ss)
 ;;     Tharwat 17. Jan. 2014        ;;
 (defun *error* (u)
   (if c
     (setvar 'CMDECHO)
   )
   (princ "\n*Cancel*")
 )
 (if (and (progn
            (princ "\n Select a single LINE only ...")
            (setq c (getvar 'CMDECHO)
                  s (ssget "_+.:S:E:L" '((0 . "LINE")))
            )
          )
          (progn
            (princ "\n Select a single LWPOLYLINE only ...")
            (setq ss (ssget "_+.:S:E:L" '((0 . "LWPOLYLINE"))))
          )
     )
   (progn
     (setvar 'CMDECHO 0)
     (foreach x (mapcar 'cdr
                        (vl-remove-if-not
                          (function (lambda (p) (eq (car p) 10)))
                          (entget (ssname ss 0))
                        )
                )
       (command "_._dimaligned"
                "_none"
                x
                "_none"
                (vlax-curve-getclosestpointto (ssname s 0) x)
                "_none"
                x
       )
     )
     (setvar 'CMDECHO c)
   )
 )
 (princ)
)
(vl-load-com)

[Bhull1985]

It's posts and threads like the ones in this particular page that are quite upsetting.

Come to the forums, ask for help, refuse to answer questions, completely disregard completed routines posted, and create duplicate posts in other forums where the OP does the same, ignoring anything not a full routine.

What an ungrateful noncoder, hate seeing guru's time wasted.

Not to say yours was, Tharwat, but it is quite frustrating when people like you try to help people like OP.

I echo Luis' sentiments regarding your ability and just wish people didn't come here with their hand held out expecting to have routine dropped into it without even reading other person's posts or questions they need answer in order to help.

How downright selfish

[Tharwat]

Yes , you are correct bhull1985 and that's why I sometimes remove my codes that I post to OPs that do not pay attention to what have been received to them without even a simple reply .

 

I mostly like the active threads between any OP with the many lisp gurus here which usually threads like that would force all users to give their best and being very fruitful posts indeed at last .

 

Thank you .

[rk25134]

It's working fine Thank you

[Tharwat]

It's working fine Thank you

Happy to hear , You're welcome anytime .

[ketxu]

Sorry OP, but i don't like the way you're posting, like a boss..

[danielk]

Is this what you are after ?

 

(defun c:DoDim (/ *error* c s ss)
 ;;     Tharwat 17. Jan. 2014        ;;
 (defun *error* (u)
   (if c
     (setvar 'CMDECHO)
   )
   (princ "\n*Cancel*")
 )
 (if (and (progn
            (princ "\n Select a single LINE only ...")
            (setq c (getvar 'CMDECHO)
                  s (ssget "_+.:S:E:L" '((0 . "LINE")))
            )
          )
          (progn
            (princ "\n Select a single LWPOLYLINE only ...")
            (setq ss (ssget "_+.:S:E:L" '((0 . "LWPOLYLINE"))))
          )
     )
   (progn
     (setvar 'CMDECHO 0)
     (foreach x (mapcar 'cdr
                        (vl-remove-if-not
                          (function (lambda (p) (eq (car p) 10)))
                          (entget (ssname ss 0))
                        )
                )
       (command "_._dimaligned"
                "_none"
                x
                "_none"
                (vlax-curve-getclosestpointto (ssname s 0) x)
                "_none"
                x
       )
     )
     (setvar 'CMDECHO c)
   )
 )
 (princ)
)
(vl-load-com)

looked at this lisp , and thought maybe its possible to modify the routine so it works on polylines also ? i have many independent entities all of them are simple polylines (staright ,-start and end ) some of them are aligned , i have to dimension each one .

thanks !

[BIGAL]

An alternative is to use the pline vertices rather than closestptto this way does not matter how many sections in a pline. Using intersectwith would allow for the base line to be skewed, say compare two plines or line/pline one being straight Base line for measurements a basic chainage and offset routine. Following on from the mood of posts no code.

 

Danielk big hint chainage & offset