Problem with fillet

Hi all,

The attachment contains a drawing in which I want to fillet 2 polylines with a filletrad value of 0.10. I am trying lisp to do the job. Following is a history of the command line when I run fillet from inside lisp code.

Current settings: Mode = TRIM, Radius = 0.1000

Select first object or [undo/Polyline/Radius/Trim/Multiple]: (list o1 p1)

( (41.4559 31.3489 0.0))

Select second object or shift-select to apply corner: (list o2 p2)

( (41.6218 31.7141 0.0))

I first select an entity as o1 and pick a point p1 on it. Then I select the 2nd entity as o2 and pick a point p2 on it. When I run the fillet command I use lists for fillet input as indicated above. But still the command is not working.

When I run the same command manually with the same filletrad value it works successfully. Can anyone point out what is the possible reason for failure of the fillet command when used through lisp.

Thanks.

Mail.dwg

Hi

I had assumed that fillet requires a input as per retval of entsel

However, after testing a 3d point seems sufficent to call on fillet. Maybe AutoCAD selects the curve object via a method similar to nentselp

(if

 (and
   (setq p1 (getpoint "\nSelect point on first curve :"))
   (setq p2 (getpoint "\nSelect point on next curve ")))

 (command "Fillet" p1 p2)

 )