Jump to content

polyline and fillet lisp


KARDOLITO89

Recommended Posts

I found this on the web

 

 

(defun C:PLF ()
(princ "\nSpecify start point: ")
(command "._pline")
(while (= (getvar "cmdactive") 1)
(command pause)
(princ "\nNext point: ")
)
(command
"._fillet" "R" "12.0"
"._fillet" "P" (entlast))
(princ)
)

 

 

when executing it the polyline has a global whidth of 2.6956 and the radius automatically. There will be some way to be able to have the global whidth in 0 and request radio in each vertex. thank you very much for your attention.

Link to comment
Share on other sites

A possible simple way is to take the approach of using pline join, make a pline between 2 pts 1st, draw another line to 3rd point ask fillet radius and do just that fillet then pline join pline, arc, line and keep going. Going fishing now so maybe later but anyone else jump in. Back and just caught bait.

 

; pline with individual radius at each vertice
; By Alan H April 2018

(defun c:prad ( / )
(setq ss (ssadd))
(setq p1(getpoint "Pick 1st point"))
(setq p2 (getpoint p1 "pick second point"))
(command "line" p1 p2 "")
(setq obj1 (entlast))
(setq obj2 obj1)

(while
(setq p3 (getpoint p2 "pick next point"))
(setvar 'filletrad (getreal "Enter radius"))
(command "line" p2 p3 "")
(setq obj3 (entlast))
(command "fillet" obj2 obj3 )
(ssadd (entlast)ss)
(ssadd obj3 ss)
(setq p2 p3)
(setq obj2 obj3)
)

(command "pedit" obj1  "Y" "J" )
(repeat (setq x (sslength ss))
(command (ssname ss (setq x(- x 1))))
)
(command "" "")
(princ)
)
(c:prad)

Edited by BIGAL
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...