Polar help (I think)

(setq brk (getreal "\nEnter Break Distance:"))
(while
(setq Ln (entsel "\nSelect line to break:"))
(setq pt1(getpoint "\nSelect Intersection:"))
(setq brkpt1(+ pt1 brk))
(setq brkpt2(- pt1 brk))
(command "_break" Ln "f" brkpt1 brkpt2)

You get the idea. I need to determine if Ln is in X or Y. How do I do this? TIA

 

If Ln is always a Line (not a polyline segment or something), you can get
the direction it goes from its endpoints, group codes 10 & 11:

(setq LnList (entget (car Ln)))
(setq LnDirection (getangle (cdr (assoc 10 LnList)) (cdr (assoc 11
LnList))))

Then use (polar) to determine points along that direction (both ways) from
pt1, with no need to save them as brkpt's:

(command "_break" Ln "f" (polar pt1 LnDirection brk) (polar pt1 (+
LnDirection pi) brk))

It doesn't matter whether Ln is "X or Y" (I assume you mean whether it's
horizontal or vertical), and it can even be non-orthogonal.

Kent Cooper, AIA

this? TIA

 

Thanks Kent, I appreciate the reply.
(setq brk (getreal "\nEnter Break Distance:"))
(while
(setq Ln (entsel "\nSelect line to break:"))
(setq pt1 (getpoint "\nSelect Intersection:"))
(setq LnList (entget (car Ln)))
(setq LnDirection(getangle (cdr (assoc 10 LnList))(cdr assoc 11 LnList))))
(command "_break" Ln "f" (polar pt1 LnDirection brk)(polar pt1(+ LnDirection pi)brk))))
Is that the way it should be? It bombs out on (cdr assoc 11 LnList))))
; error: bad argument type: stringp: (15.9763 6.03129 0.0)
Any idea why?

 

Are you wanting to break it along the line?
You'll need to get the end points of the line, calculate the angle of the line, then use the polar
function using the angle of the line.

 

(cdr assoc 11 LnList)
should read
(cdr (assoc 11 LnList))

 

Maybe like this. The break command can be a bit tricky. For instance, I think you
can't pass an ename for the object to break. Rather pass a point to select the object
in this case.

Joe Burke

(defun c:test ( / *error* osm brk ln ang pt brkpt1 brkpt2)

(defun *error* (msg)
(setvar "osmode" osm)
(if msg (princ msg))
(princ)
) ;end

(and
(setq osm (getvar "osmode"))
(setq brk (getdist "\nEnter break distance: "))
(setq ln (entsel "\nSelect line to break: "))
(setq vobj (vlax-ename->vla-object (car ln)))
(setq ang (vlax-get vobj 'Angle))
(setvar "osmode" 32)
(setq pt (getpoint "\nSelect intersection point: "))
(setq brkpt1 (polar pt ang brk))
(setq brkpt2 (polar pt (+ ang pi) brk))
(setvar "osmode" 0)
(not (command "_break" (cadr ln) "f" brkpt1 brkpt2))
)
(*error* nil)
) ;end

 

Yes, I am. And thanks for the reply. The break size is the distance back from the selected intersection on either side.

 

Actually, it does read (cdr(assoc 11 LnList)). I just posted it wrong.

 

Joe.........that's perfect! Thank you so much! I was really struggling with this one.

 

You're welcome.

The (and... thing will prevent most potential errors. But it may not be bulletproof.

Joe Burke

one.