Topic: fillet and block insert

[jermjmm]

I've been working on a lisp to fillet 2 lines then insert a block on the layer of one of the lines selected.  With some help/pointers from others (thanks Kent Cooper) I've got it working . . . . mostly.  the lisp does not always trim the lines correctly.  for instance if you have 2 lines that form a t and I pick the top of the vertical line and the right side of the horisontal line it should fillet the lines to endup looking like an L, correct? well it doesn't always do that.

My question is not only why is it doing this, but is fillet the best way to do it?  Would it be better to modify the endpoints?  If you modify the endpoints a click could be elimanated by using the new endpoint as the insertion of the block, the problem is I only know about this process I've never seen code to do it let alone know how.

here is the lisp:

Code: [Select]

(DEFUN C:TEMP (/ oldlay line1)
(setq oldlay (getvar 'clayer)
line1 (car (entsel "\nPick first line: "))
); end setq
(setvar 'clayer (cdr (assoc 8 (entget line1))))
(command "_.fillet" line1 pause)
(command "-insert" "elbow" "s" (getvar 'dimscale) "end,int" pause pause)
(setvar 'clayer oldlay)
(princ)
)
edit: changed Subject line

[CAB]

Jermjmm.
Can you post a drawing with the before & after example in it?

[CAB]

When you use the fillet command you should include the picked point like this:

Code: [Select]

(setq line1  (entsel "\nPick first line: "))
(setq line2  (entsel "\nPick second line: "))
(and line1 line2 (command "_.fillet" line1 line2))

[VovKa]

Code: [Select]

(DEFUN C:TEMP (/ oldlay line1)
  (setq oldlay (getvar 'clayer)
line1  (entsel "\nPick first line: ")
  )
  (setvar 'clayer (cdr (assoc 8 (entget (car line1)))))
  (command "_.fillet" (cadr line1) pause)
  (command "-insert"
   "elbow"
   "s"
   (getvar 'dimscale)
   "end,int"
   pause
   pause
  )
  (setvar 'clayer oldlay)
  (princ)
)


[jermjmm]

here is a pic of what it does

[VovKa]

When you use the fillet command you should include the picked point like this:

Code: [Select]

(setq line1  (entsel "\nPick first line: "))
(setq line2  (entsel "\nPick second line: "))
(and line1 line2 (command "_.fillet" line1 line2))

we should pass (cadr line1) and (cadr line2), fillet doesn't like the (entsel)

[jermjmm]

aahhhh, verry interesting.  thanks! works good now. 
One final question, is fillet the best way to do it or would modifing the endpoints be a better way?

[CAB]

When you use the fillet command you should include the picked point like this:

Code: [Select]

(setq line1  (entsel "\nPick first line: "))
(setq line2  (entsel "\nPick second line: "))
(and line1 line2 (command "_.fillet" line1 line2))

we should pass (cadr line1) and (cadr line2), fillet doesn't like the (entsel)

Are you sure about that?

[VovKa]

When you use the fillet command you should include the picked point like this:

Code: [Select]

(setq line1  (entsel "\nPick first line: "))
(setq line2  (entsel "\nPick second line: "))
(and line1 line2 (command "_.fillet" line1 line2))

we should pass (cadr line1) and (cadr line2), fillet doesn't like the (entsel)

Are you sure about that?

the autocad help is on my side sir

[Kerry]

I'll make a deal,
change the avatar and I'll give you the answer.

[Maverick®]

I'll make a deal,
change the avatar and I'll give you the answer.

 

[jermjmm]

is that avatar better? but with the help of everybody here (and a friend in my office) i've rewrote it already and it works great:

Code: [Select]

(DEFUN C:fe (/ oldlay line1)
(setq oldlay (getvar 'clayer)
line1 (entsel "\nPick first line: ")
); end setq
(setvar 'clayer (cdr (assoc 8 (entget (car line1)))))
(command "_.fillet" line1 pause)
(command "-insert" "elbow" "s" (getvar 'dimscale) "end,int" pause)
(setvar 'clayer oldlay)
(princ)
)

[VovKa]

it does not work with your "cross" example on my autocad 2004

[jermjmm]

don't know if acad versions make a dif (I'm using 2008) it works on mine.

anybody want to give lessons on how to extract endpoints from a line and use them for the insertion of a block?  I know assoc 10 and 11 are the starting point and ending point but how would you determine which one is which?

[T.Willey]

don't know if acad versions make a dif (I'm using 2008) it works on mine.

anybody want to give lessons on how to extract endpoints from a line and use them for the insertion of a block?  I know assoc 10 and 11 are the starting point and ending point but how would you determine which one is which?

You can use the 'osnap' function of Lisp, or you could check the distance from the two points to the select point (the one returned by 'entsel').