Topic: Reverse Fillet

[GDF]

I'm trying to do a reverse fillet... This is where I am now with the routine. I would like to know how replace the pause to make the routine automatic.

Code - Auto/Visual Lisp: [Select]

1. (defun ARCH:FILLET  (RAD / ent1 ent2)
2.   ;;(ARCH:F_S-VAR)
3.   (setq ent1 (entget
4.               (car (entsel "\n* Match Layer of Select Entities to Fillet w/ Radius *"))))
5.   (setq ent2 (entget
6.               (car (entsel "\n* Pick second line *"))))
7.   (setvar "clayer" (cdr (assoc '8 ent1)))
8.   (setvar "Filletrad" RAD)
9.   (command "fillet" (cdar ent1)(cdar ent2))
10.   ;;(while (> (getvar "CMDACTIVE") 0) (command pause))
11.   (princ "\n* Resetting Fillet Radius to \"Zero\" *")  
12.   (setq pnt1 (cdr (assoc 11 ent1)))
13.   (setq pnt2 (cdr (assoc 11 ent2)))
14.   (command "mirror" (entlast) "" pnt1 pnt2 "y")
15.   (command "rotate" (entlast) "" pause)
16.   ;;(ARCH:F_R-VAR)
17.   (princ))
18.  
19.  
20. (ARCH:FILLET 24)

[CAB]

Maybe this will work.

Code: [Select]

(defun ARCH:FILLET  (RAD / ent ent1 ent2)
  ;;(ARCH:F_S-VAR)
  (setq ent1 (entget
              (car (entsel "\n* Match Layer of Select Entities to Fillet w/ Radius *"))))
  (setq ent2 (entget
              (car (entsel "\n* Pick second line *"))))
  (setvar "clayer" (cdr (assoc '8 ent1)))
  (setvar "Filletrad" RAD)
  (command "fillet" (cdar ent1)(cdar ent2))
  ;;(while (> (getvar "CMDACTIVE") 0) (command pause))
  (princ "\n* Resetting Fillet Radius to \"Zero\" *")
  (setq ent (entlast))
    (setq   lst   (entget ent)
          cen   (cdr (assoc 10 lst))        ; center point
          rad   (cdr (assoc 40 lst))        ; radius
          ang1  (cdr (assoc 50 lst))        ; start angle
          ang2  (cdr (assoc 51 lst))        ; end angle
          inc   (- ang1 ang2)               ; included angle
          inc   (if (minusp inc) (- inc) (- (* pi 2.0) inc)) ; included angle correction
          p1    (polar cen ang1 rad)        ; start point
          p2    (polar cen ang2 rad)        ; end point
            )

  (command "rotate" ent "" (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.)) "180")
  ;;(ARCH:F_R-VAR)
  (princ))


(ARCH:FILLET 24)

[GDF]

Perfect Alan

Thanks

[CAB]

Glad to help.

[ScottMC]

Little past closing but still it would help me again to show me how to solve this one. How do I get this ARC to convert to a PLINE, with the direction CCW? Seems one my clocks are definitely going backwards...