Autocad Lisp draw line from centre of circle to adjacent line

[Zali001]

Hi.
I'm not too familiar with writing lisp routines and was wondering whether someone could help me.
I have a drawing where i have put in multiple circles (to represent the lowest point of a house connection) and I have polylines to represent proposed pipe lines.
Is there a way that I can automatically generate polylines from the centre of these circles to the adjacent polyline? (It should prompt for me to select the polyline).

Thanks!

[742850517357521]

select circle with your order,then finish select,polyline can draw.
(defun c:test()
(command ".pline" )
(while(setq e(entsel))
(command (cdr(assoc 10 (entget(car e)))))
)
(command "")
)

[Coloradomrg]

Since it sounds like you would be selecting both objects, and you want a simple line, I would suggest simply turning on your center and perpendicular snaps...

[Zali001]

Hi. Yes, that is what I am doing at the moment. But with 3000+ circles in the drawing, it becomes a tedious task.
I thought that maybe there was a lisp available that could enable me to select the circles then the line that I want to connect to, then draw the polyline from the circle to the selected line.

[Zali001]

Hi. I couldnt quite get this to work. Am I doing something wrong?

[Opie]

Hi. Yes, that is what I am doing at the moment. But with 3000+ circles in the drawing, it becomes a tedious task.
I thought that maybe there was a lisp available that could enable me to select the circles then the line that I want to connect to, then draw the polyline from the circle to the selected line.

Do you have a sample of what you are wanting it to look like?

What about the steps and input prompts you think this routine should work through?

[Zali001]

Do you have a sample of what you are wanting it to look like?

What about the steps and input prompts you think this routine should work through?

How can I send you the AutoCad file?

[Opie]

How can I send you the AutoCad file?

Attach it to your post. You can use the Go Advanced button when replying. From there, there is an Additional Options section below the message box which will allow you to Manage Attachments.

[Zali001]

Attach it to your post. You can use the Go Advanced button when replying. From there, there is an Additional Options section below the message box which will allow you to Manage Attachments.

I basically want to produce the yellow lines in the drawing automatically.
I imagine i would have to first select the circle, then the line i would like to join to, and the lisp routine could create a line for me.

[Opie]

You can try this. It was written quick with not much error checking.

To run, type "foo" at the command prompt. Select the circles along the line / polyline you wish to connect to. Then select the line / polyline.

Before running the routine, make sure the correct layer is set as current.

(defun c:foo (/ selection pline sscount objpline inspoint intpoint entity)
  (if (not (setq selection (ssget "_I" '((0 . "CIRCLE")))))
    (progn
      (prompt "\nSelect circles: ")
      (setq selection (ssget '((0 . "CIRCLE"))))
    )
  )
  (setq pline (entsel "\nSelect polyline: "))
  (if (and
	pline
	(setq objpline (vlax-ename->vla-object (car pline)))
      )
    (repeat (setq sscount (sslength selection))
      (setq
	entity	 (entget (ssname selection (setq sscount (1- sscount))))
	inspoint (cdr (assoc 10 entity))
	intpoint (vlax-curve-getclosestpointto objpline inspoint)
      )
      (if intpoint
	(command "_.line" "non" inspoint "non" intpoint "")
      )
    )
  )
)