LISP THAT WILL DRAW A POLYINE WITH A SET RADIUS ON THE FLY

[stephen.coff]

Guys,
Does anyone have a routine that will allow the user to set a radius and then start drawing polylines and all angles will be filletted to that radius ?

Stephen

[fixo]

Hi Stephen,
Take a look at FILLETRAD system variable
in the Help file

[stephen.coff]

Thank you Fixo for tour reply.
It isn't correct though something like this ?

(defun c:Fpline (/ pl)
  (command "-layer"	    "m"		     "-M-DUCT"
	   "C"		    "4"	             "-M-DUCT"
	   "Lt"		    "CONTINUOUS"     "-M-DUCT"
	   ""
	  )
  (princ "Use ESC to exit loop")
  (setvar "plinewid" 100)
  (setvar "filletrad" 600)
  (while (not
	   (vl-catch-all-error-p
	     (vl-catch-all-apply
	       (function
		 (lambda ()
		   (progn
		     (command "_pline")
                     (setq pl (entlast))
                     (command "_.fillet" "p" pl)
		     (while (= (getvar "cmdactive") 1) (command pause))
		   )
		 )
	       )
	     )
	   )
	 )
  )
  (setvar "plinewid" 0)
  (setvar "filletrad" 0)
  (if (= (getvar "errno") 2)
    (princ "Interrupted by user")
  )
  (princ)
)

[fixo]

Thank you Fixo for tour reply.
It isn't correct though something like this ?

Try this instead, seems to working
with my version (A2007)

(defun c:Fpline (/ pl)
(command "-layer" "m" "-M-DUCT"
"C" "4" "-M-DUCT"
"Lt" "CONTINUOUS" "-M-DUCT"
""
)
(princ "Use ESC to exit loop")
(setvar "plinewid" 100)
(setvar "filletrad" 600)
(while (not
(vl-catch-all-error-p
(vl-catch-all-apply
(function
(lambda ()
(progn
(command "_pline")
;(setq pl (entlast))
;(command "_.fillet" "p" pl)
(while (= (getvar "cmdactive") 1) (command pause))
)
)
)
)
)
)
(command "fillet" "P" "L")
)
;;;)
(setvar "plinewid" 0)
(setvar "filletrad" 0)
(if (= (getvar "errno") 2)
(princ "Interrupted by user")
)
(princ)
)

[stephen.coff]

Kennet,
Thank you, I will look further at the thread and see what's on offer.

Fixo,
Thank you also, that is perfect.

Stephen

[fixo]

You are welcome, Stephen
Happy coding

[kennet.sjoberg]

You can play with this LINK to make a polyline with radius and more.

: ) Happy Computing !

kennet