distance from polyline points to a reference line!!???

Hello to everyone! Can you please help me with a lsp program that automaticaly generate linear dimensions from the points of a polyline to a reference line, because with the classic comand (dimlinear) i can draw the dimension line each point at a time. I attached an dwg for you to understand better. Excuse my english please!

Thanks!

distance from polyline points to a reference line.dwg

Try this:

(defun c:DimTwo(/ aDoc Space pl ReFL pt pt2 ss)
 (vl-load-com)
 (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq Space
 (if (= 1 (getvar "CVPORT"))
   (vla-get-PaperSpace aDoc)
   (vla-get-ModelSpace aDoc)
 )
 )
 (prompt "\nSelect Polyline:")
 (if (and
(setq Pl (ssget ":E:S:L" '((0 . "LWPOLYLINE"))))
(progn (prompt "\nSelect Reference Line:")
       (setq RefL (ssget ":E:S:L" '((0 . "*LINE"))))
)
     )
   (progn
     (setq RefL (vlax-ename->vla-object (ssname RefL 0)))
     (foreach pt (mapcar
     'cdr
     (vl-remove-if-not
       '(lambda (x) (= (car x) 10))
       (entget (ssname pl 0))
     )
   )
(vla-addDimRotated
  space
  (vlax-3d-point (append pt '(0.0)))
  (vlax-3d-point
    (setq pt2 (vlax-curve-getclosestpointto RefL pt))
  )
  (vlax-3d-point
    (mapcar (function (lambda (a b) (/ (+ a b) 2.))) pt pt2)
  )
  1.57079633
)
     )
   )
 )(princ)
)

Hope this helps

It work well! Thank you very much!

It work well! Thank you very much!

You're welcome jhonnying

Glad it worked for you.

Cheers

Try this:

(defun c:DimTwo(/ aDoc Space pl ReFL pt pt2 ss)
 (vl-load-com)
 (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq Space
 (if (= 1 (getvar "CVPORT"))
   (vla-get-PaperSpace aDoc)
   (vla-get-ModelSpace aDoc)
 )
 )
 (prompt "\nSelect Polyline:")
 (if (and
(setq Pl (ssget ":E:S:L" '((0 . "LWPOLYLINE"))))
(progn (prompt "\nSelect Reference Line:")
       (setq RefL (ssget ":E:S:L" '((0 . "*LINE"))))
)
     )
   (progn
     (setq RefL (vlax-ename->vla-object (ssname RefL 0)))
     (foreach pt (mapcar
     'cdr
     (vl-remove-if-not
       '(lambda (x) (= (car x) 10))
       (entget (ssname pl 0))
     )
   )
(vla-addDimRotated
  space
  (vlax-3d-point (append pt '(0.0)))
  (vlax-3d-point
    (setq pt2 (vlax-curve-getclosestpointto RefL pt))
  )
  (vlax-3d-point
    (mapcar (function (lambda (a b) (/ (+ a b) 2.))) pt pt2)
  )
  1.57079633
)
     )
   )
 )(princ)
)

 

Hope this helps

Hello!

Can someone help me?

In Lisp, this brings me the following error message:

"Incorrect string ssget mode"

Thank you for your help!

Martin

(ssget "_:E:S:L" '((0 . "LWPOLYLINE"))));

Not sure though

(ssget "_:E:S:L" '((0 . "LWPOLYLINE"))));

 

Not sure though

That would be my guess, since the OP's location is Austria.

Unfortunately, no. The error persists.

Error message: Select Reference Line: with error: Incorrect string ssget mode

Best regards Martin

I'd be interested to read the available SSGET modes for the Austrian acad*dev.chm

Could this be modified to also work with horizontal distances? Ie the reference line is vertical.

Cheers

Could this be modified to also work with horizontal distances? Ie the reference line is vertical.

Cheers

Replace 0 to 1.57079633

.............................
.............................
.............................
  (vlax-3d-point
    (mapcar (function (lambda (a b) (/ (+ a b) 2.))) pt pt2)
  )
  [b]0[/b]
)
     )
   )
 )(princ)
)

nice and easy. Thanks

Unfortunately, no. The error persists.

Error message: Select Reference Line: with error: Incorrect string ssget mode

 

Best regards Martin

You "think" you may have to do the same for

(setq RefL (ssget "_:E:S:L" '((0 . "*LINE"))));

Since the error this time comes after the Polyline is selected

Could this be modified to also work with horizontal distances? Ie the reference line is vertical.

Cheers

uhhmmm Yes?

|

|

|

\/

Replace 0 to 1.57079633

nice and easy. Thanks

thanks pBe

That would be my guess, since the OP's location is Austria.

It works!

Thank you!

Best regards Martin