Auto dimesioning polyline

[MihaiAnghius]

Thanks fixo

[AHMED18]

This is very useful lisp, but if you can edit it to show just one dim. "total length" for whole polyline

[hanhphuc]

hi, a polyline is singular

(vlax-curve-getdistatparam en (vlax-curve-getendparam en))

 

few examples :

1. by selections

2. by LineTypes

3. by groups

Edited July 25, 2018 by hanhphuc
additional link - by line Types

[pmadhwal7]

hello to all i am also searching for the something like this  lsp but the differences is ur lsp working placing dimension along the object and i want the perpendicular dimension please see my post please help me for this.....

 

 

[Raju Nimbargi]

On 10/2/2008 at 11:57 AM, VaKaDi said:

ASMI said:

 

 

I thank you very much to all. We have saved lots of times due to these LIPS. We are Plumbing consultants and we need to add slope level in external drawings is there any available LIPS FOR SLOPE CALCULATION

[dlanorh]

4 hours ago, Raju Nimbargi said:

 

 

I thank you very much to all. We have saved lots of times due to these LIPS. We are Plumbing consultants and we need to add slope level in external drawings is there any available LIPS FOR SLOPE CALCULATION

 

Slope of each segment of the polyline?

Overall Slope of Polyline (start of polyline, end of polyline)?

 

Display slope as...?

[BIGAL]

Here is a couple of old ones the 1:x needs to have plines added these are like 20 years old. Xfallper needs Multi getvals.lsp.

 

Multi GETVALS.lsp

 

 

XFALLPER.LSP XFALL.LSP

[qasir]

On 3/20/2009 at 5:07 PM, Lee Mac said:

Maybe this?

 

 

(defun c:dimobj     (/ ss vlst ovar obj minpt maxpt crds)
 (if (setq ss (ssget))
   (progn
     (setq vlst '("CMDECHO" "OSMODE" "DIMASSOC")
       ovar (mapcar 'getvar vlst))
     (mapcar 'setvar vlst '(0 0 2))
     (foreach obj  (mapcar 'vlax-ename->vla-object
               (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
   (vla-getboundingbox obj 'minpt 'maxpt)
   (setq crds (mapcar 'vlax-safearray->list (list minpt maxpt)))
   (command "_dimlinear" (car crds)
        (polar (car crds) (/ pi 2) (- (cadadr crds) (cadar crds)))
        (polar (car crds) pi (* 2 (getvar "DIMTXT"))))
   (command "_dimlinear" (car crds)
        (polar (car crds) 0 (- (caadr crds) (caar crds)))
        (polar (car crds) (/ (* 3 pi) 2) (* 2 (getvar "DIMTXT")))))
     (mapcar 'setvar vlst ovar))
   (princ "\n<!> No Object Selected <!>"))
 (princ))

 

 

 

What offset would you like? A prompt for an offset?

Hi Mr. Lee.

can you make a little change to mark dimension on top and left of any rectangle 

 

[BIGAL]

"can you make a little change to mark dimension on top and left of any rectangle "

 

A good task to start learning lisp, some hints, you can get the 4 vertice/points of a rectangle, so its easy to do only 2 Dims as you know points, or can use BoundingBox VL method, but if on an angle this is not the best way to go. 

 

Here is a start for you.

(setq plent (entsel "\nPick rectang"))
(if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent))))))
(princ co-ord)