Topic: Different chamfer routine

[TJAM51]

I am seeking a way to draw a chamfer with a specified distance with the following situations:

1. I have two lines that form a 90 degree corner or attempting to do so.

2. I have a line with another line perpendicular to the first line but when the chamfer is created the first line remains intact....which means a line is simply drawn to form a chamfer.


Thanks
[/img]

[David Hall]

1. use a chamfer distance of 0 for both lines.

2 I think that if EDGEMODE sysvar is off, the lines will not trim, leaving them intact

[TJAM51]

I tried edgemode and nothing happens no matter what I set it to. It has only two setting, 1 and 2.

[SMadsen]

TRIMMODE = 0 -> leaves edges intact.

Is that what you're looking for?

[TJAM51]

That works great.........thanks

[SMadsen]

TJAM51, pick up a copy of sysvardlg.lsp. Just type in "cham", hit the search button and it'll show all sysvars with "CHAM" in their names.
Type in "chamfer", select "Descriptions" and hit the search button. It'll show all sysvars with CHAMFER in the description - e.g. TRIMMODE.

[TJAM51]

Thanks....it is really fantastic....

[David Hall]

As for the 1st routine,

Code: [Select]


(DEFUN C:ch0 ()
  (SETQ CH-A (GETVAR "CHAMFERA")
CH-B (GETVAR "CHAMFERB")
A    (ENTSEL "\nPick First Line: ")
B    (ENTSEL "\nPick Second Line: ")
  )
  (setvar "CHAMFERA" 0)
  (setvar "CHAMFERB" 0)
  (COMMAND "CHAMFER" A B)
  (SETVAR "CHAMFERA" CH-A)
  (SETVAR "CHAMFERB" CH-B)
)



It needs a little work, but it will get you started

[TJAM51]

Here is my version


(DEFUN C:chA ()
  (COMMAND "TRIMMODE" "0")
  (SETQ   CH-A (GETVAR "CHAMFERA")
   CH-B (GETVAR "CHAMFERB")
   A    (ENTSEL "\nPick First Line: ")
   B    (ENTSEL "\nPick Second Line: ")
  )
  (setvar "CHAMFERA" 11.0)
  (setvar "CHAMFERB" 11.0)
  (COMMAND "CHAMFER" A B)
  (SETVAR "CHAMFERA" CH-A)
  (SETVAR "CHAMFERB" CH-B)
  (COMMAND "TRIM" "L" "")
  (command "trimmode" "1")
)

[David Hall]

I dont know if it makes much difference, but you can change the trim mode like

Code: [Select]


(setvar "trimmode" 0)
and (setvar "trimmode" 1)  OR

capture and reset like

Code: [Select]


(setq tmode (getvar "trimmode))
(setvar "trimmode" 0)

;later
(setvar "trimmode" tmode)


[jermjmm]

I'm haveing a problem with the chamfer also.  what I'm trying to do is I have 2 lines that form a cross and I want to put a chamfer on one of them so you end up with a T with a chamfer (PIC INCLUDED). whenever I try to use the chamfer command inside of lisp (command "chamfer" . . . . . it keeps saying unknown command, I had someone tell me to use this instead (command "_chamfer . . . .  but it still says unknown command.  any ideas?

[T.Willey]

I'm haveing a problem with the chamfer also.  what I'm trying to do is I have 2 lines that form a cross and I want to put a chamfer on one of them so you end up with a T with a chamfer (PIC INCLUDED). whenever I try to use the chamfer command inside of lisp (command "chamfer" . . . . . it keeps saying unknown command, I had someone tell me to use this instead (command "_chamfer . . . .  but it still says unknown command.  any ideas?

Do (command "_.chamfer" .. ) the period is what lets you use the default Acad command (incase it has be redefined), and the underscore lets it work on other Acad's beside the english version.

[CAB]

jermjmm
Did you see this thread?
http://www.theswamp.org/index.php?topic=17392.msg210438#msg210438