0 Members and 1 Guest are viewing this topic.
If there is a polyline involved, you can reverse the direction of the polyline that misbehaves. Right-click on the misbehaving polyline and select Polyline > Reverse (or type Reverse). Then fillet again.
(setq oldsnap (getvar 'osmode))(setvar 'osmode 0)(setvar 'filletrad (getreal "\nEnter radius"))(setq ent1 (entsel "\npick square off line near start end"))(setq pt1 (cadr ent1))(setq ent2 (entsel "\npick main line"))(setq obj1 (vlax-ename->vla-object (car ent1)))(setq obj2 (vlax-ename->vla-object (car ent2)))(setq pt2 (vlax-invoke obj1 'intersectwith obj2 acExtendBoth)); need a check here line pline(setq start (vlax-get Obj2 'StartPoint))(setq end (vlax-get Obj2 'EndPoint))(setq pt3 (polar pt2 (angle start end) 0.05))(setq pt4 (polar pt2 (- (angle start end) pi) 0.05))(command "break" pt3 pt2)(setq ent3 (entlast))(command "fillet" pt1 ent2)(command "fillet" pt1 ent3)(setvar 'osmode oldsnap)