Community
I've been looking for a way to do this as well. I remember the old RCUT and after reading this I just made my first lsp file (Thanks to the instructions on how to make an lsp code). It worked perfect. I couldn't believe it was so easy!
An old thread, but if people are still finding it looking for that sort of thing....
>Another one<, with some additional options. And there are surely others out there for the Searching.
Here's another for fun 🙂
(defun c:pcont (/ e l mp p1 p2) ;; RJP » 2018-12-17 ;; Draws a pipe continuation based off of 2 picked points (cond ((and (setq p1 (getpoint "\nSelect first point: ")) (setq p2 (getpoint p1 "\nSelect second point: ")) ) (setq p1 (trans p1 1 0)) (setq p2 (trans p2 1 0)) (setq mp (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.))) (and (setq l (vl-some '(lambda (x) (nentselp x)) (list p1 p2))) (setq l (cdr (assoc 8 (entget (car l))))) ) (setq e (entmakex (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") (cons 8 (if l l (getvar 'clayer) ) ) '(100 . "AcDbPolyline") '(90 . 4) '(70 . 0) (cons 10 p1) '(42 . -0.5) (cons 10 mp) '(42 . 0.5) (cons 10 p2) '(42 . 0.5) (cons 10 mp) ) ) ) (while (getpoint "\nPick a point to flip pipe end or enter to accept: ") (entmod (mapcar '(lambda (x) (cond ((and (= 42 (car x)) (/= 0 (cdr x))) (cons 42 (- (cdr x)))) (x) ) ) (entget e) ) ) ) ) ) (princ) )
Can't find what you're looking for? Ask the community or share your knowledge.