I request for help to create an electrical lisp to connect multiple/selected lines (POLYLINE, LINE, ARC, LWPOLYLINE, SPLINE, ELLIPSE, 3DPOLYLINE, MULTILINE, RAY, CIRCLE) in 2 options (below):
Extend/Trim selected lines
PD: here sample
;;; Touch.LSP *
;;; Small routine to align endpoints of lines to an edge. *
;;; The edge have to be a line. *
;;; The routine works by calculating the point of inter- *
;;; section and change the nearest endpoint to that point *
;;; 2001 Stig Madsen, no rights reserved *
;;; modified by qjchen, the edge line can be line or polyline *
(defun C:Ttt (/ cmd ent entl spt ept sset a lent lentl lspt lept lint)
(vl-load-com)
(setq cmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "UNDO" "Begin")
(while (not ent)
(setq ent (car (entsel "Select edge line: ")))
(if ent
(progn
(setq entl (entget ent))
)
)
)
(if ent
(progn
(redraw ent 3)
(prompt "\nSelect lines to touch edge: ")
(setq sset (ssget '((0 . "LINE")))
a 0
)
(if sset
(repeat (sslength sset)
(setq lentl (entget (setq lent (ssname sset a)))
lspt (cdr (assoc 10 lentl))
lept (cdr (assoc 11 lentl))
)
(setq entttt (ssname sset a))
(setq lint (nth 0 (x_intlst ent entttt acExtendOtherEntity)))
(if lint
(progn
(if (< (distance lint lspt) (distance lint lept))
(entmod (subst
(cons 10 lint)
(assoc 10 lentl)
lentl
)
)
(entmod (subst
(cons 11 lint)
(assoc 11 lentl)
lentl
)
)
)
)
)
(setq a (1+ a))
)
(princ "\nNo objects found")
)
(redraw ent 4)
)
(princ "\nNo edge selected")
)
(setvar "CMDECHO" cmd)
(command "UNDO" "End")
(princ)
)
;;; by kuangdao at xdcad
(defun x_intlst (obj1 obj2 param / intlst1 intlst2 ptlst)
(if (= 'ENAME (type obj1))
(setq obj1 (vlax-ename->vla-object obj1))
)
(if (= 'ENAME (type obj2))
(setq obj2 (vlax-ename->vla-object obj2))
)
(setq intlst1 (vlax-variant-value (vla-intersectwith obj1 obj2 param)))
(if (< 0 (vlax-safearray-get-u-bound intlst1 1))
(progn
(setq intlst2 (vlax-safearray->list intlst1))
(while (> (length intlst2) 0)
(setq ptlst (cons (list (car intlst2) (cadr intlst2) (caddr intlst2))
ptlst
)
intlst2 (cdddr intlst2)
)
)
)
)
ptlst
)
source:
https://www.theswamp.org/index.php?topic=3517.0
hotel:
trivago
I was redoing this method for another post. Will finish now and do in or out. Just need a bit of time.
Like the image just pick P1 P2 P3 in that order, maybe remove last line (c:mfillet) but you will need to type mfillet.
Start test with simple example and get more complex.
I do not know what I did bad. that does not work for me.
Command: MFILLET Pick outsidePick insidePick outsideline Specify first point: Specify next point or [Undo]: Specify next point or [eXit/Undo]: Command: Line Specify first point: Specify next point or [Undo]: Specify next point or [eXit/Undo]: Command: Press Enter for In any key for out fillet Unknown command "FILLET". Press F1 for help. Command: Command: Command: fillet Unknown command "FILLET". Press F1 for help. Command: Command: Command: fillet Unknown command "FILLET". Press F1 for help. Command: Command: Command: fillet Unknown command "FILLET". Press F1 for help. Command: Command: Command: fillet Unknown command "FILLET". Press F1 for help. Command: Command: Command:
PD: attached drawing
here my test.
snap on:
works partially.
selecting multiple lines do not work.
snap off:
works awesome
just one last request more (if possible), can you add the "undo multiple" command and let user create 2 different no consecutive lines (4 points)? for example:
IF we have the option to do 2 separates lines to determinate the order the result should be this.
IMO should work. that do not form a square. Another suggestion might be: add an option to let 2 polylines to choice the sort order.
just a question here:
why this does not works for AutoCAD MEP 2020 student version with snap "off" and "on"?
@Sea-Haven wrote:Like the image just pick P1 P2 P3 in that order, maybe remove last line (c:mfillet) but you will need to type mfillet.
Start test with simple example and get more complex.
In the image, I can see 1 initial polyline and 2 types of connection, with your lisp I can create the first type of connection (middle) but I tried the second type of connection (right) can not be done with your instruction. you mentioned that I need to disable Object Snap, I tried, but I still can not do it. please, teach us to do the second one (right).
