HOW TO DRAW LINE FROM BLOCK TO LINE BY LISP

[Mountain_XD]

Please Help me. Thanks alot

HOW TO DRAW LINE FROM BLOCK TO LINE BY LISP.dwg

[Emmanuel Delay]

Command DLBL (for Draw Line from Blocks to Line)

 

(defun drawLine (p1 p2)
 (entmakex (list (cons 0 "LINE")
                 (cons 10 p1)
                 (cons 11 p2))))
				 

;; DLBL for Draw Line from Blocks to Line
(defun c:DLBL ( / ln blks i p1 p2)
	
	(setq ln (car (entsel "\nSelect line: " )))
	
    (princ "\nSelect blocks: ")
	(setq blks (ssget (list (cons 0 "INSERT"))))
	(setq i 0)
	
	(repeat (sslength blks)
		;; p1: insertpoint of the block
		(setq p1 (cdr (assoc 10 (entget (ssname blks i)))))
		
		;; p2: closest point, perpendicular to the line.
		(setq p2 (vlax-curve-getClosestPointTo ln p1))
		(drawLine p1 p2)

		(setq i (+ i 1))
	)
)

 

Edited October 8, 2024 by Emmanuel Delay

[ronjonp]

There is THIS too.

[Mountain_XD]

Thank you Emmanuel Delay