nasr
یک شنبه 04 مرداد 1383, 15:19 عصر
سلام
اگه با اتوکد کارکرده باشید حتما دیده اید که یک سری دستوراتی را می توان بصورت Aplication اجرا کرد
یعنی برنامه هایی نوشته شده که اونها را Load می کنیم و بعد اون دستورات را اجرا می کنیم که با گرفتن چند تا عدد کار هایی را که حدود 2 ساعت برای یک نفر اتوکد کار حرفه ای وقت می گیره را در عرض 2 ثانیه انجام می ده
به این فایلها Lips می گویند
حالا سوال بنده اول که این کدهایی که می بینید را باچه زبانی نوشته اند
(defun c:lole ()
(setq a 0.0 n 0.0)
(setq r (getreal "External Dia. Of Development Pipe:")
r3 (getreal "External Dia. of Other Pipe:")
p (getreal "Angel of Pipe:")
t (getreal "Thickness Of Development Pipe:")
mn (getint "No. Of Division:")
b (getpoint "BASE POiNT :") x (car b)y (cadr b)r1 (/ (- r t) 2)r2 (/ r3 2)a1 (/ 6.283185307 mn)d5 (* (* r1 2) pi)d (/ d5 mn)p1 (* p 0.017453292)c (expt r2 2)e (* r1 r1)ll (+ d5 100)ll1 (list ll r2)
) (command "zoom" "all")(while (< n mn)(setq b1 (list x y)n (+ n 1)b2 (+ x d)a (+ a a1)f (* (sin a) (sin a))h (* (- 1 (cos a)) (cos p1))m (- 1 (sqrt (- 1 (/ (* e f) c))))l (+ (/ (+ (* h r1) (* m r2)) (sin p1)) (cadr b))b3 (list b2 l))(command "line" b1 b3 "" "") (command "chprop" "last" "" "p" "c" 6 "")(setq l1 (- y 6)b4 (list x l1)l5 (- y 2)b9 (list x l5)) (command "text" "_s" "romanc" b9 2.5 0.0 (strcat "x=" (rtos x 2 0)))(command "chprop" "last" "" "p" "c" 3 "")(command "text" "_s" "romanc" b4 2.5 0.0 (strcat "y=" (rtos y 2 0)))(setq x b2 y l))(setq l1 (- l 4)b4 (list x l1)b5 (list (- (cadr b) 20) (- (cadr b) 200))b6 (list (+ (cadr b3) 20) (+ (cadr b3) 200))) (command "text" "_s" "romanc" b3 2.5 0.0 (strcat "x=" (rtos b2 2 0)))(command "chprop" "last" "" "p" "c" 3 "")(command "text" "_s" "romanc" b4 2.5 0.0 (strcat "y=" (rtos l 2 0)))(command "zoom" "window" b5 b6 "")(command "redraw" "all" "")
)
بعد آیا تا حالا این کارها را انجام داده یانه
ممنون
اگه با اتوکد کارکرده باشید حتما دیده اید که یک سری دستوراتی را می توان بصورت Aplication اجرا کرد
یعنی برنامه هایی نوشته شده که اونها را Load می کنیم و بعد اون دستورات را اجرا می کنیم که با گرفتن چند تا عدد کار هایی را که حدود 2 ساعت برای یک نفر اتوکد کار حرفه ای وقت می گیره را در عرض 2 ثانیه انجام می ده
به این فایلها Lips می گویند
حالا سوال بنده اول که این کدهایی که می بینید را باچه زبانی نوشته اند
(defun c:lole ()
(setq a 0.0 n 0.0)
(setq r (getreal "External Dia. Of Development Pipe:")
r3 (getreal "External Dia. of Other Pipe:")
p (getreal "Angel of Pipe:")
t (getreal "Thickness Of Development Pipe:")
mn (getint "No. Of Division:")
b (getpoint "BASE POiNT :") x (car b)y (cadr b)r1 (/ (- r t) 2)r2 (/ r3 2)a1 (/ 6.283185307 mn)d5 (* (* r1 2) pi)d (/ d5 mn)p1 (* p 0.017453292)c (expt r2 2)e (* r1 r1)ll (+ d5 100)ll1 (list ll r2)
) (command "zoom" "all")(while (< n mn)(setq b1 (list x y)n (+ n 1)b2 (+ x d)a (+ a a1)f (* (sin a) (sin a))h (* (- 1 (cos a)) (cos p1))m (- 1 (sqrt (- 1 (/ (* e f) c))))l (+ (/ (+ (* h r1) (* m r2)) (sin p1)) (cadr b))b3 (list b2 l))(command "line" b1 b3 "" "") (command "chprop" "last" "" "p" "c" 6 "")(setq l1 (- y 6)b4 (list x l1)l5 (- y 2)b9 (list x l5)) (command "text" "_s" "romanc" b9 2.5 0.0 (strcat "x=" (rtos x 2 0)))(command "chprop" "last" "" "p" "c" 3 "")(command "text" "_s" "romanc" b4 2.5 0.0 (strcat "y=" (rtos y 2 0)))(setq x b2 y l))(setq l1 (- l 4)b4 (list x l1)b5 (list (- (cadr b) 20) (- (cadr b) 200))b6 (list (+ (cadr b3) 20) (+ (cadr b3) 200))) (command "text" "_s" "romanc" b3 2.5 0.0 (strcat "x=" (rtos b2 2 0)))(command "chprop" "last" "" "p" "c" 3 "")(command "text" "_s" "romanc" b4 2.5 0.0 (strcat "y=" (rtos l 2 0)))(command "zoom" "window" b5 b6 "")(command "redraw" "all" "")
)
بعد آیا تا حالا این کارها را انجام داده یانه
ممنون