(inters
<spline 1 end point>
(mapcar '+ <spline 1 end point> (vlax-curve-getfirstderiv <spline 1> (vlax-curve-getparamatpoint <spline 1> <spline 1 end point>)))
<spline 2 end point>
(mapcar '+ <spline 2 end point> (vlax-curve-getfirstderiv <spline 2> (vlax-curve-getparamatpoint <spline 2> <spline 2 end point>)))
nil
)
Nice!Code: [Select]
Thanks! :)
Nice!
OrCan you explain this in more detail. What are PC, PI and PT?
1. line endp osnap PC
2. int osnap each tangent for PI
3. endp osnap PT
When using fillet to add an arc I use [No trim] when those lines might come in handy later on.
Thanks so much all of you.Glad to help out :)
My problem solved with " ronjonp" post and special thanks to " ronjonp"
I really appreciate for solving my problem.
Turned out it was!Thanks! :)
Nice!
Although it may not be what the OP wanted :|
Glad you could make use of it :)Turned out it was!Thanks! :)
Nice!
Although it may not be what the OP wanted :|
I modified it to work with preselected objects as well including arcs & lwpolylines. I use right-click menus for modifying so I needed the preselected option.Code - Auto/Visual Lisp: [Select]Thanks again!
; by ronjonp ; modified it to work with preselected objects as well including arcs & lwpolylines - by Tom Beauford ; (load "AddArcTangents.lsp") AddArcTangents ; ^P(or C:AddArcTangents (load "AddArcTangents.lsp"));AddArcTangents ; http://www.theswamp.org/index.php?topic=49865.msg550417#msg550417 ) ang ) ) '(100 . "AcDbEntity") ) ) ) (if tmp ) ) ; (if (and (setq e (car (entsel))) (setq tmp (vlax-invoke (vlax-ename->vla-object e) 'explode))) (foreach o tmp (_line sp p "Intersection") (_line ep p "Intersection") ) ) ) ) ) )