door lisp

CADForums.net
Discussion of AutoCAD and other CAD software.

FAQ

Memberlist

Profile

door lisp

CADForums.net Forum Index -> Customization

Author

Message

MattKing

Joined: 28 Jun 2006
Posts: 1

Posted: Wed Jun 28, 2006 2:22 pm Post subject: door lisp

Does anyone have or know where I can get a lisp to draw a simple single line door (line and arc).

Adesu

Joined: 20 Jul 2005
Posts: 31

Posted: Fri Jun 30, 2006 12:39 am Post subject: Re: door lisp

MattKing wrote:

Does anyone have or know where I can get a lisp to draw a simple single line door (line and arc).

Hi MattKing,
I just create a door with dimension 80x700,I hope this code help you

Code:

; door is stand for DOOR
; Design by : Adesu <Ade Suharna>
; Email : mteybid@yuasabattery.co.id
; Homepage : http://www.yuasa-battery.co.id
; Create : 30 June 2006
; Program no.: 0374/06/2006
; Edit by
(defun c:door (/ om oce p1 p2 p3 p4 p5 p6 el1 p7 p8 p9 p10
p11 p12 p13)
(setq *error* myer)
(setq om (getvar "osmode")) ; get osmode setting
(setvar "osmode" 0) ; osmode set to 0
(setq oce (getvar "cmdecho")) ; get cmdecho setting
(setvar "cmdecho" 0) ; cmdecho set to 0
(setq p1 '(0 0 0))
(setq p2 (polar p1 0 50))
(setq p3 (polar p2 (* pi 1.5) 55))
(setq p4 (polar p3 pi 25))
(setq p5 (polar p4 (* pi 1.5) 25))
(setq p6 (polar p5 pi 25))
(command "_pline" p1 p2 p3 p4 p5 p6 "c" "")
(setq el1 (entlast))
(setq p7 (polar p1 0 400))
(setq p8 (polar p7 (* pi 1.5) 100))
(command "_mirror" el1 "" p7 p8 "")
(setq p9 (polar p5 0 25))
(setq p10 (polar p9 (* pi 1.5) 750))
(setq p11 (polar p10 pi 25))
(command "_pline" p5 p9 p10 p11 "c" "")
(setq p12 (polar p5 0 750))
(setq p13 (polar p5 (* pi 1.5) 750))
(command "_arc" "c" p5 p13 p12 "")
(setvar "osmode" om) ; return setting
(setvar "cmdecho" oce) ; return setting
(setq *error* nil)
(princ)
)

(defun myer (msg)
(setvar "osmode" om)
(setvar "cmdecho" oce)
(setq att "***Resetting system variable was done***")
(princ att)
)

HofCAD

Joined: 01 Jul 2005
Posts: 8

Posted: Tue Sep 12, 2006 6:10 pm Post subject: Re: door lisp

Dear Adesu,

Try

Code:

;door is stand for DOOR
; Design by : Adesu <Ade Suharna>
; Email : mteybid@yuasabattery.co.id
; Homepage : http://www.yuasa-battery.co.id
; Create : 30 June 2006
; Program no.: 0374/06/2006
; Edit by
(defun c:door ( / om oce p1 p2 p3 p4 p5 p6 el1 p7 p8 p9 p10
p11 p12 p13)
(setq olderr *error* *error* myer)
(setq om (getvar "osmode")) ; get osmode setting
(setvar "osmode" 0) ; osmode set to 0
(setq oce (getvar "cmdecho")) ; get cmdecho setting
(setvar "cmdecho" 0) ; cmdecho set to 0
(setq p1 '(0 0 0))
(setq p2 (polar p1 0 50))
(setq p3 (polar p2 (* pi 1.5) 55))
(setq p4 (polar p3 pi 25))
(setq p5 (polar p4 (* pi 1.5) 25))
(setq p6 (polar p5 pi 25))
(command "_pline" p1 p2 p3 p4 p5 p6 "c")
(setq el1 (entlast))
(setq p7 (polar p1 0 400))
(setq p8 (polar p7 (* pi 1.5) 100))
(command "_mirror" el1 "" p7 p8 "")
(setq p9 (polar p5 0 25))
(setq p10 (polar p9 (* pi 1.5) 750))
(setq p11 (polar p10 pi 25))
(command "_pline" p5 p9 p10 p11 "c")
(setq p12 (polar p5 0 750))
(setq p13 (polar p5 (* pi 1.5) 750))
(command "_arc" "c" p5 p13 p12)
(setvar "osmode" om) ; return setting
(setvar "cmdecho" oce) ; return setting
(setq *error* olderr)
(princ)
)

(defun myer (msg)
(setvar "osmode" om)
(setvar "cmdecho" oce)
(setq att "***Resetting system variable was done***")
(princ att)
(setq *error* olderr)
)

Regards, HofCAD CSI

	CADForums.net Forum Index -> Customization	All times are GMT
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Windows Server DSP VoIP Electronics New Topics
Powered by phpBB