TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: cadplayer on May 21, 2012, 08:24:39 AM
-
Hi!
I find this thread to can extend polylines dynamically
http://autocadtips.wordpress.com/2011/10/19/lengthen-polyline-endpoint-vertex/
For me itīs pretty to much number of mouseclicks, so maybe it is here a function already to use ?!
-
I'm a little confused.
If you select the pline, grips appear. Pick the grip, it turns red and you are in stretch mode.
What more do you need?
-
Yes I think itīs little complicate. Normally you can use Autocad to extend a polyline:
1) marks grips run stretch mode
2) press B for Base point
3) marks grips 1times again
4) type in EXT and than you can dynamically change length
Iīm asking if itīs possible to can collect 4 steps in 1.
1) type command
2) select grips and than extend
You can take a look with command (command "lengthen" "dy") but it works only with lines. I look for same for polylines
-
http://www.theswamp.org/index.php?topic=38086.msg430970#msg430970
-
Also CAB's LengthenDe.lsp
http://www.theswamp.org/index.php?topic=23674.msg286702#msg286702 (http://www.theswamp.org/index.php?topic=23674.msg286702#msg286702)
-
Thanks very good. Exactly what I want have.
-
You can take a look with command (command "lengthen" "dy") but it works only with lines. I look for same for polylines
Which version ACad are you using? My Vanilla 2012 works fine with the Lengthen command on polylines.
-
You can take a look with command (command "lengthen" "dy") but it works only with lines. I look for same for polylines
Which version ACad are you using? My Vanilla 2012 works fine with the Lengthen command on polylines.
Must have been introduced in 2012 - not in 2011.
-
I use Autocad C3D 2012 but can somebody explain me what is Vanilla 2012. I didnīt find explanation in Internet.
-
When someone uses "Vanilla" as a description in this context, they are describing the original "Plain," or "Basic" AutoCAD. This is common among many users of "Verticals" like Map, Civil 3D, etc. this is very common in English. Pun intended.
-
Yep, I always see it as "Vanilla ... like in ice-cream". I.e. the plain without frills.
-
Yep, I always see it as "Vanilla ... like in ice-cream". I.e. the plain without frills.
Except that, with ice-cream, Vanilla is not plain, it's vanilla flavored. :-P
-
Think I right vanilla-cream is baseAutocad without any extensions as for example civil...? Why didnīt work lengthen also with polylines in civil?
-
Sorry, just reread the OP and the link. You're referring to Lengthen's Dynamic adjust - i.e. select then click new distance point. The other options seem to work on PL's, not the dynamic one.
-
Thanks. Amazing your animation it discribe fast what you want to say. I know itīs not a question in this thread but how have done it?
-
Camtasia
-
Actually I used CamStudio & VirtualDub, but Camtasia is also a good proggie.
-
Good tips.
Another idea I have is to simplyfy draw a arc tagential between 2 lines and one known arc point. Have anybody a idea to can do it via Autolisp.
I think so here:
1) calculate angle a1 from line1 = 142grad
calculate angle a2 from lin2 = 146grad
so I get angle a3 = 360grad - a1 - a2 = 72grad
and circle angle a4 = 180 - a3 = 108grad
The problem now is how can I get radius or centerpoint from arc?
(defun sel (/
;;; l1
;;; l2
;;; p1
;;; p2
;;; p3
;;; p4
;;; p5
)
(if (not c:cal)(arxload "geomcal"))
(while
(not
(and
(setq l1 (car (entsel "\nSelect line 1! "))
l2 (car (entsel "\nSelect line 2! "))
p1 (cdr (assoc 10 (entget l1)))
p2 (cdr (assoc 11 (entget l1)))
p3 (getpoint "\nSelect arc point! ")
p4 (cdr (assoc 10 (entget l2)))
p5 (cdr (assoc 11 (entget l2)))
)
)
)
)
)
(defun c:calc (/
;;; a1
;;; a2
;;; a3
;;; a4
)
(sel)
(setq a1 (cal "ang (p1,p2)")
a2 (cal "ang (p4,p5)")
a3 (- 360 a1 a2)
a4 (- 180 a3)
)
)
-
You sure you want a lisp for that?
-
You may want to look to this lisp...
http://www.theswamp.org/index.php?topic=39567.msg449135#msg449135
Among other cases included also LLP witch is your case...
M.R.
Irneb, you're absolutely wright - easiest is circle => 3 point (osnap : tan, tan, node) and finished...
-
You īre right !
(defun c:test () (vl-cmdf "_circle" "_3p" "_tan" pause "_tan" pause pause)) is great but I donīt want a circle I need a arc between the lines. Marco I couldnīt find my case in your link.
I have to create many arc and trim lines. I look for a solution which automatically create circle and trim lines and circles. In the end I would join line-arc-line to a polyline.
-
test
-
You īre right !
(defun c:test () (vl-cmdf "_circle" "_3p" "_tan" pause "_tan" pause pause)) is great but I donīt want a circle I need a arc between the lines. Marco I couldnīt find my case in your link.
What about trimming entlast at the point opposite of the line. Or after creating the circle, use entlast and obtain the tangent points from that. Then erase the temporary circle and create an arc using 3 points:(defun perp (pt1 pt2 pt3 /)
(inters pt1 pt2 pt3 (polar pt3 (+ (angle pt1 pt2) (/ pi 2.)) 1000.) nil))
(defun c:ArcTTP (/ l1 l2 pt l1a l1b l2a l2b ptC en ed)
(if (and (setq l1 (entsel "\nPick first line: "))
(setq l2 (entsel "\nPick second line: "))
(setq pt (getpoint "\nPick point passing through circle: ")))
(progn
(command "._circle" "_3P" "_tan" (cadr l1) "_tan" (cadr l2) "_non" pt)
(setq ed (entget (setq en (entlast))))
(entdel en)
(setq ptC (cdr (assoc 10 ed))
l1a (vlax-curve-getClosestPointTo (car l1) (cadr l1))
l1b (vlax-curve-getPointAtParam (car l1) (fix (vlax-curve-getParamAtPoint (car l1) l1a)))
l2a (vlax-curve-getClosestPointTo (car l2) (cadr l2))
l2b (vlax-curve-getPointAtParam (car l2) (fix (vlax-curve-getParamAtPoint (car l2) l2a))))
(command "._ARC" "_Non" (perp l1a l1b ptC) "_Non" pt "_Non" (perp l2a l2b ptC))))
(princ))Or you could use ribarms code to generate the centre point & radius of the circle - that's all you really need (no need to create a temporary circle). Then obtain the angles (start & end) of the arc (perhaps using my perp function onto the lines). And from that you should be able to generate the arc's DXF codes for use in entmake.
-
Yes this were it what I want
I continue little. Sorry my Lisp knowledge is not so good. Maybe you understand faster as I whatīs wrong. I need both lines trimed on arc. But lines entmakes wrong
(defun perp (pt1 pt2 pt3 /)
(inters pt1 pt2 pt3 (polar pt3 (+ (angle pt1 pt2) (/ pi 2.)) 1000.) nil))
(defun c:ArcTTP (/
l1
l2
pt
l1a
l1b
l2a
l2b
ptC
en
ed
)
(if (and (setq l1 (entsel "\nPick first line: "))
(setq l2 (entsel "\nPick second line: "))
(setq pt (getpoint "\nPick point passing through circle: ")))
(progn
(command "._circle" "_3P" "_tan" (cadr l1) "_tan" (cadr l2) "_non" pt)
(setq ed (entget (setq en (entlast))))
(entdel en)
(setq ptC (cdr (assoc 10 ed))
l1a (vlax-curve-getClosestPointTo (car l1) (cadr l1))
l1b (vlax-curve-getPointAtParam (car l1) (fix (vlax-curve-getParamAtPoint (car l1) l1a)))
l2a (vlax-curve-getClosestPointTo (car l2) (cadr l2))
l2b (vlax-curve-getPointAtParam (car l2) (fix (vlax-curve-getParamAtPoint (car l2) l2a))))
(command "._ARC" "_Non" (setq l1a (perp l1a l1b ptC)) "_Non" pt "_Non" (setq l2a (perp l2a l2b ptC)))
(entdel (car l1))
(entmake
(list
(cons 0 "LINE")
(cons 8 (getvar "clayer"))
(cons 10 l1a)
(cons 11 l1b)
)
)
(entdel (car l2))
(entmake
(list
(cons 0 "LINE")
(cons 8 (getvar "clayer"))
(cons 10 l2a)
(cons 11 l2b)
)
)
)
)
(princ)
)
-
You're using the points I've obtained from the 2 lines. Note the l1a and l2a are at the positions where the lines were picked. To get the opposite ends you should do something similar as for the calculations of l1b and l2b (just add 1 to the parameter number).
Though for what you're after is even simpler. Instead of the arc command, use fillet instead - the radius is code 40 of the circle's DXF data.
Edit something like this:(defun c:FilletPoint
(/ l1 l2 pt ed
) (setq pt
(getpoint "\nPick point passing through circle: ")))
-
Thank you so much for quickly help :-)