TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: rude dog on November 07, 2003, 02:36:19 PM
-
i have two lines (in 3d space) that fillet together with a radius of "0"and im trying to extract out the intersecting point without having to use the (inters) command (trying to setq that magical point without having to pick on the lines 2 different times.) that (setq lp (getvar "lastpoint")) was pretty slick maybe a twist on this will get me where i need to be?
cya
-
Are you creating the two lines? Or selecting them as part of your program? Or..............someting else.
-
Are you going to select each line? If you actually touch each line why not get the (10 8.32499 6.36463 0.0) (11 20.0262 10.8276 0.0) out of the list of each line and compare the two X & Y's, this can get you your intersection. I hope I'm understanding you correctly
-
Try this it's "real" old. Wrote it long before APPINT was a possible osnap. It can be streamlined considerably, but you can read this and see how the points are extracted from the lines.
(defun ip (/ line1 line2 list1 list2 pt1 pt2 pt3 pt4)
(setq line1 (entsel "\nSelect first line: ")
line2 (entsel "\nSelect second line: ")
list1 (entget (car line1))
list2 (entget (car line2))
pt1 (cdr (assoc 10 list1))
pt2 (cdr (assoc 11 list1))
pt3 (cdr (assoc 10 list2))
pt4 (cdr (assoc 11 list2))
)
(inters pt1 pt2 pt3 pt4 nil)
)
-
Sorry took me so long to get back to you all...caddaver (pretty original name) came up with a helpful solution, i believe (havent got to try it yet wanted to write back first)my routine prompts the user to pick two (points) on existing lines (that dont necessarily have to be tanget with each other...but are perpendicular) fillets the two lines together with a radius of "0" and i was trying to get that intersecting point with the two previous points picked, without having to write alot of extra code (that im not that good @ yet!)just basically trying to run lean and mean....no what i mean?