Help with Lisp doing Multiple Fillets

[careca]

Hi all,

this might be one of my first lisp scripts....and I am kind of stuck.

What I want to create is an app that automatizes the process of creating a boundary, making an internal offset, fillet the created offset, and finally delete the original boundary. All should work while picking points.

As I found out that I have to explode the offset element first, to make all segments into polylines for proper filleting (otherwise arcs etc don't work), that's where I got stuck.

If somebody had any helpful hints for me, this would be highly appreciated.

thnx.
careca

Here's the code of how far I got:

 
(defun c:xfillet (/ pt)

    ; while picking point -----------------------------
    (while (setq pt (getpoint "\nPick internal point: "))

    (command "_.-boundary" "_a" "_i" "_n" "" "" "_non" pt "")

        ; store original boundary object
        (setq original_boundary (entlast))

        ; make offset
        (command "_.offset" 10 (entlast) "_non" pt "")
        
        ; explode offset
        (command "_.explode" (entlast))

        ; load selection set
        (setq ss (ssget "_P"))
        
        ;counter
        (setq x 1) 
        
        ;loop for all elements -------------------
        (repeat (sslength ss)
                 
            (setq pa (getvar "peditaccept"))
            
            ; convert all segments into polylines -> so fillet works on all elements
            (setvar "peditaccept" 1)
            (command "pedit" ss nil)
            (setvar "peditaccept" pa)
            
            ; copy element onto layer 0
            (command "_.chprop" (entlast) "" "LA" "0" "")
            
            ; change color of element (included just for texting)
            (command "change" (entlast) "" "prop" "color" x "")

            ; ++++++++++++++++++++++++++++++++
            ; ++++++++++++++++++++++++++++++++
            
            ; what I want to accomplish
            
            ; store first element
            if x = 1 then
            store element in el1
            
            ; loop though elements, make fillets bit by bit
            if x >= 2
            make fillet with el1
            store new element as el1
            

            ; ++++++++++++++++++++++++++++++++
            ; ++++++++++++++++++++++++++++++++
            
            (setvar "peditaccept" pa)
            
            ; counter up
            (setq x (+ x 1))
         
         ; _end repeat
         )
         
         ; delete original boundary
         (command "_.erase" original_boundary "")


    ) ; end while
    
    ;(princ)
) ; end

[Dadgad]

Hello careca, welcome to the forum.

If you set your PEDITACCEPT system variable setting to 1, at your commandline, then
you will be able to fillet the offset entity by using the POLYLINE option in the FILLET commandline prompts.
I hope that helps you.

[careca]

Hello careca, welcome to the forum.

If you set your PEDITACCEPT system variable setting to 1, at your commandline, then
you will be able to fillet the offset entity by using the POLYLINE option in the FILLET commandline prompts.
I hope that helps you.

Hi Dadgad,
thanks for your reply.

I actually tried this, but it seems not to be working.
The arc sections will be spared out when trying to do all at once via polyline.

That's why I thought I loop though the selection set of elements...

Martin

[Dadgad]

You could create your arcs using the POLYLINE command.
Specify the starting point, then A> and any arcs created in this way will be POLYLINES.

[careca]

You could create your arcs using the POLYLINE command.
Specify the starting point, then A> and any arcs created in this way will be POLYLINES.

ok, in a nutshell, here is what I want to achieve:

xfillet.jpg

basically a continuous one-click operation that takes me from step 1 to 6.
but as it happens, between step 5 and 6, the offset polyline needs to be exploded to handle all fillets, otherwise the edges where (original) arc elements touch do not work.

careca

[Dadgad]

I see what you mean, I was quite surprised that when the BOUNDARY command creates a CLOSED POLYLINE,
which having been OFFSET with the POLYLINE option, and despite having been a closed polyline, still yields the following message ..... another message that keeps coming up about one line having been divergent (polyline arc).

[Lee Mac]

Give this a try:

(defun c:xf ( / *error* cm e0 e1 e2 e3 el p1 pe )

    (defun *error* ( msg )
        (if (= 'int (type cm))
            (setvar 'cmdecho cm)
        )
        (if (= 'int (type pe))
            (setvar 'peditaccept pe)
        )
        (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )
    
    (setq cm (getvar 'cmdecho)
          pe (getvar 'peditaccept)
    )
    (setvar 'cmdecho 0)
    (setvar 'peditaccept 1)
    (while (setq p1 (getpoint "\nPick Internal Point <Exit>: "))
        (setq e0 (entlast)
              el nil
        )
        (command "_.-boundary" "_A" "_I" "_N" "" "_O" "_P" "" "_non" p1 "")
        (setq e1 (entlast))
        (if (not (eq e0 e1))
            (progn
                (command "_.offset" 10.0 e1 "_non" p1 "")
                (setq e2 (entlast))
                (if (not (eq e1 e2))
                    (progn
                        (command "_.chprop" e2 "" "_LA" "0" "_C" 1 "")
                        (command "_.explode" e2)
                        (setq e3 e2)
                        (while (setq e3 (entnext e3))
                            (setq el (cons e3 el))
                        )
                        (mapcar
                           '(lambda ( a b ) (setvar 'filletrad 10.0) (command "_.fillet" a b))
                            (cons (last el) el)
                            el
                        )
                        (command "_.pedit" "_M")
                        (while (setq e2 (entnext e2))
                            (command e2)
                        )
                        (command "" "_J" "" "")
                    )
                    (alert "Unable to perform offset.")
                )
                (entdel e1)
            )
            (alert "Unable to detect boundary.")
        )
    )
    (setvar 'peditaccept pe)
    (setvar 'cmdecho cm)
    (princ)
)

[marko_ribar]

Excellent Lee... Only slight modification to your code (highlighted) :

(defun c:xf ( / *error* cm e0 e1 e2 e3 el p1 pe ) (vl-load-com)

    (defun *error* ( msg )
        (if (= 'int (type cm))
            (setvar 'cmdecho cm)
        )
        (if (= 'int (type pe))
            (setvar 'peditaccept pe)
        )
        (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )
    
    (setq cm (getvar 'cmdecho)
          pe (getvar 'peditaccept)
    )
    (setvar 'cmdecho 0)
    (setvar 'peditaccept 1)
    (while (setq p1 (getpoint "\nPick Internal Point <Exit>: "))
        (setq e0 (entlast)
              el nil
        )
        (command "_.-boundary" "_A" "_I" "_N" "" "_O" "_P" "" "_non" p1 "")
        (setq e1 (entlast))
        (if (not (eq e0 e1))
            (progn
                (command "_.offset" 10.0 e1 "_non" p1 "")
                (setq e2 (entlast))
                (if (not (eq e1 e2))
                    (progn
                        (command "_.chprop" e2 "" "_LA" "0" "_C" 1 "")
                        (command "_.explode" e2)
                        (setq e3 e2)
                        (while (setq e3 (entnext e3))
                            (setq el (cons (vlax-curve-getpointatparam e3 (+ (vlax-curve-getstartparam e3) (/ (- (vlax-curve-getendparam e3) (vlax-curve-getstartparam e3)) 2.0))) el))
                        )
                        (mapcar
                           '(lambda ( a b ) (setvar 'filletrad 10.0) (command "_.fillet" a b))
                            (cons (last el) el)
                            el
                        )
                        (command "_.pedit" "_M")
                        (while (setq e2 (entnext e2))
                            (command e2)
                        )
                        (command "" "_J" "" "")
                    )
                    (alert "Unable to perform offset.")
                )
                (entdel e1)
            )
            (alert "Unable to detect boundary.")
        )
    )
    (setvar 'peditaccept pe)
    (setvar 'cmdecho cm)
    (princ)
)

M.R.

[Lee Mac]

Excellent Lee... Only slight modification to your code (highlighted) :

Did the original not work for you?

[marko_ribar]

I tried to replicate case OP posted in jpg, and with your original it wrongly filleted last line with arc but only on left portion - one pick boundary; right one it did correctly... I suppose it has something with fillet - it don't know how to connect entities (line filleted with arc extending it to make almost whole circle) when they are supplied rather then mid points like in my modification...