Can you modify this LISP to chamfer instead of fillet?

[masumiNYMDW]

I'd like to make this LISP to chamfer @100, 100 distance as I draw a polyline.

I think we can use the LISP below to add the necessary modifications.

Probably we can register the new LISP as PLC?

I'd appreciate it if someone could take a look at it because I'm very new to LISP.

(defun C:PLF ()
(command "_PLINE")
(while (= 1 (getvar "cmdactive"))
(command pause))
(command "._FILLET" "P" "R" 100 "L")
(princ)
)

[LDShaw · Accepted solution]

Works like the one you posted.

(defun C:PLC ()
(command "_PLINE")
(while (= 1 (getvar "cmdactive"))
(command pause)
)

(command "._CHAMFER" "D" "100" "100")
(setq pline (entlast)) ;; Get the last created polyline
(command "._CHAMFER" "P" pline "")
(princ)
)

[Kent1Cooper]

---

@masumiNYMDW wrote:

I'd like to make this LISP to chamfer @100, 100 distance as I draw a polyline.

....

---

Do you mean to Chamfer every corner as you go along?  [The suggestion made already does it after the Polyline is drawn with as-yet-un-Chamfered corners.]

For Filleting, I wrote PlineFilletAlong.lsp, >here<, that does the Filleting of each corner as you go along.  I imagine it could be modified to Chamfer instead, if that's what you're looking for.

[masumiNYMDW]

Love it! Thanks!

[masumiNYMDW]

You are right. "After finishing writing a polyline by pressing enter" was a more accurate request. Thank you!