drawing slots ACAD2000
drawing slots ACAD2000
(OP)
is there a command that will draw slots in acad2000
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
|
RE: drawing slots ACAD2000
Another thing you can do is, draw a line, offset it the width and then fillet the ends.
One last suggestion would be to make a unit block and then insert it in at the appropriate scales.
- Tracy
RE: drawing slots ACAD2000
(defun C:SLOT (/ A B B1 B2 C D PW)
(setq PW (getvar"PLINEWID"))
(initget 1)
(setq B1 (getdist "\nLength of slot: "))
(setq B2 (/ B1 2.0))
(setq B (list B2 0.0))
(initget 1)
(setq C (list 0.0 (getdist "\nWidth of slot: ")))
(initget 1)
(while
(setq A (getpoint "\nInsertion point: "))
(setq D (list (- (car A) (/ (car B) 2)) (- (cadr A) (/ (cadr C) 2))))
(setvar "PLINEWID" 0)
(command "_.pline"
D
(mapcar '+ D B)
"_a"
(mapcar '+ D B C)
"_l"
(mapcar '+ D C)
"_a"
"_cl")
);while
(setvar "PLINEWID" PW)
(princ)
)
Add it to your Acad.lsp file, or type (load"slot") on the command line, or lcick Tools / Load Application and go tet it, or or or or ....
RE: drawing slots ACAD2000