Hi nongtruong,
Test this code again, and for dcl file I'm not repairing it's ok.
[code]
;gan toa do X,Y
(defun GAN_GT_XY ()
;X
(if (/= ddx nil)
(set_tile "ddx" (rtos ddx 2 4))
)
;Y
(if (/= ddy nil)
(set_tile "ddy" (rtos ddy 2 4))
)
)
;
;lay ra gia tri cac tile
(defun GT_tile ()
(mode_tile "g1" 2)
(action_tile "g1" "(setq g1 (atoi(get_tile \"g1\")))")
(mode_tile "g2" 2)
(action_tile "g2" "(setq g2 (atoi (get_tile \"g2\")))")
(mode_tile "g3" 2)
(action_tile "g3" "(setq g3 (atoi (get_tile \"g3\")))")
(mode_tile "g4" 2)
(action_tile "g4" "(setq g4 (atoi (get_tile \"g4\")))")
(mode_tile "g5" 2)
(action_tile "g5" "(setq g5 (atoi (get_tile \"g5\")))")
(mode_tile "g6" 2)
(action_tile "g6" "(setq g6 (atoi (get_tile \"g6\")))")
(mode_tile "g7" 2)
(action_tile "g7" "(setq g7 (atoi (get_tile \"g7\")))")
(mode_tile "g8" 2)
(action_tile "g8" "(setq g8 (atoi (get_tile \"g8\")))")
(mode_tile "g9" 2)
(action_tile "g9" "(setq g9 (atoi (get_tile \"g9\")))")
(mode_tile "g10" 2)
(action_tile "g10" "(setq g10 (atoi (get_tile \"g10\")))")
(mode_tile "g11" 2)
(action_tile "g11" "(setq g11 (atoi (get_tile \"g11\")))")
(mode_tile "g12" 2)
(action_tile "g12" "(setq g12 (atoi (get_tile \"g12\")))")
(mode_tile "g13" 2)
(action_tile "g13" "(setq g13 (atoi(get_tile \"g13\")))")
(mode_tile "g14" 2)
(action_tile "g14" "(setq g14 (atoi (get_tile \"g14\")))")
(mode_tile "g15" 2)
(action_tile "g15" "(setq g15 (atoi (get_tile \"g15\")))")
(mode_tile "g16" 2)
(action_tile "g16" "(setq g16 (atoi (get_tile \"g16\")))")
(mode_tile "g17" 2)
(action_tile "g17" "(setq g17 (atoi (get_tile \"g17\")))")
(mode_tile "g18" 2)
(action_tile "g18" "(setq g18 (atoi (get_tile \"g18\")))")
(mode_tile "g19" 2)
(action_tile "g19" "(setq g19 (atoi (get_tile \"g19\")))")
(mode_tile "g20" 2)
(action_tile "g20" "(setq g20 (atoi (get_tile \"g20\")))")
(mode_tile "g21" 2)
(action_tile "g21" "(setq g21 (atoi (get_tile \"g21\")))")
(mode_tile "g22" 2)
(action_tile "g22" "(setq g22 (atoi (get_tile \"g22\")))")
(mode_tile "g23" 2)
(action_tile "g23" "(setq g23 (atoi (get_tile \"g23\")))")
(mode_tile "g24" 2)
(action_tile "g24" "(setq g24 (atoi (get_tile \"g24\")))")
)
;chuong trinh ve bieu do
(defun V_BD ()
;ve cac o luoi
;ve mui ten ngang
(setq dd_n (polar dd 0 120))
(setq mt_n (polar dd_n 0 12));toa do diem tai mui ten ngang
(setq mt_n1 (polar mt_n 0 -2.5))
(setq mt_n2 (polar mt_n1 (/ pi 2) 0.5));cuoi mui ten
;ve mui ten dung
(setq dd_d (polar dd (/ pi 2) 84))
(setq mt_d (polar dd_d (/ pi 2) 12));toa do tai mui ten dung
(setq mt_d1 (polar mt_d (/ pi 2) -2.5))
(setq mt_d2 (polar mt_d1 0 0.5))
(command ".Layer" "m" "line" "c" "113" "line" "")
(command ".line" dd dd_n "")
(command "select" "l" "")
(command ".array" "l" "" "r" 8 1 12)
(command ".line" dd dd_d "")
(command "select" "l" "")
(command ".array" "l" "" "r" 1 25 5)
(command ".line" dd_n mt_n "");ve duong ngang
(command ".line" dd_d mt_d "");ve duong dung
(command ".line" mt_n mt_n2 "");ve mui ten ngang
(command "select" "l" "")
(command ".mirror" "l" "" mt_n mt_n1 "" "")
(command ".line" mt_d mt_d2 "");ve mui ten dung
(command "select" "l" "")
(command ".mirror" "l" "" mt_d mt_d1 "" "")
(command "zoom" "all")
;ve chu
(setq htext 1.25)
(setq pt1 (polar dd (/ pi 2) -1))
(setq nn 0)
(command ".style" "text" "vni-helve-condense" "" "" "" "" "" "")
(command ".Layer" "m" "text" "c" "70" "text" "")
;chu theo phuong ngang
(command "text" "j" "tc" pt1 htext 0 (rtos nn 2 0)
(repeat 12
(setq pt1 (polar pt1 0 10))
(command "text" "tc" pt1 htext 0 (rtos (setq nn (+ nn 2)) 2 0))
)
)
;ve theo phuong dung
(setq pt2 (polar dd 0 -1))
(setq nd 1)
(setq pt3 (polar pt2 (/ pi 2) 12))
(command "text" "j" "mr" pt3 htext "" (rtos nd 2 0)
(repeat 6
(setq pt3 (polar pt3 (/ pi 2) 12))
(command "text" "mr" pt3 htext "" (rtos (setq nd (+ nd 1)) 2 0))
)
)
;ching trinh ve pline, do thi
(command ".Layer" "m" "pline" "c" "1" "pline" "")
(setq p1 (polar dd (/ pi 2) (* g1 12.00)))
(setq p2 (polar p1 0 5))
(setq p3 (polar p2 (/ pi 2) (* (- g2 g1) 12.00)))
(setq p4 (polar p3 0 5))
(setq p5 (polar p4 (/ pi 2) (* (- g3 g2) 12.00)))
(setq p6 (polar p5 0 5))
(setq p7 (polar p6 (/ pi 2) (* (- g4 g3) 12.00)))
(setq p8 (polar p7 0 5))
(setq p9 (polar p8 (/ pi 2) (* (- g5 g4) 12.00)))
(setq p10 (polar p9 0 5))
(setq p11 (polar p10 (/ pi 2) (* (- g6 g5) 12.00)))
(setq p12 (polar p11 0 5))
(setq p13 (polar p12 (/ pi 2) (* (- g7 g6) 12.00)))
(setq p14 (polar p13 0 5))
(setq p15 (polar p14 (/ pi 2) (* (- g8 g7) 12.00)))
(setq p16 (polar p15 0 5))
(setq p17 (polar p16 (/ pi 2) (* (- g9 g8) 12.00)))
(setq p18 (polar p17 0 5))
(setq p19 (polar p18 (/ pi 2) (* (- g10 g9) 12.00)))
(setq p20 (polar p19 0 5))
(setq p21 (polar p20 (/ pi 2) (* (- g11 g10) 12.00)))
(setq p22 (polar p21 0 5))
(setq p23 (polar p22 (/ pi 2) (* (- g12 g11) 12.00)))
(setq p24 (polar p23 0 5))
(setq p25 (polar p24 (/ pi 2) (* (- g13 g12) 12.00)))
(setq p26 (polar p25 0 5))
(setq p27 (polar p26 (/ pi 2) (* (- g14 g13) 12.00)))
(setq p28 (polar p27 0 5))
(setq p29 (polar p28 (/ pi 2) (* (- g15 g14) 12.00)))
(setq p30 (polar p29 0 5))
(setq p31 (polar p30 (/ pi 2) (* (- g16 g15) 12.00)))
(setq p32 (polar p31 0 5))
(setq p33 (polar p32 (/ pi 2) (* (- g17 g16) 12.00)))
(setq p34 (polar p33 0 5))
(setq p35 (polar p34 (/ pi 2) (* (- g18 g17) 12.00)))
(setq p36 (polar p35 0 5))
(setq p37 (polar p36 (/ pi 2) (* (- g19 g18) 12.00)))
(setq p38 (polar p37 0 5))
(setq p39 (polar p38 (/ pi 2) (* (- g20 g19) 12.00)))
(setq p40 (polar p39 0 5))
(setq p41 (polar p40 (/ pi 2) (* (- g21 g20) 12.00)))
(setq p42 (polar p41 0 5))
(setq p43 (polar p42 (/ pi 2) (* (- g22 g21) 12.00)))
(setq p44 (polar p43 0 5))
(setq p45 (polar p44 (/ pi 2) (* (- g23 g22) 12.00)))
(setq p46 (polar p45 0 5))
(setq p47 (polar p46 (/ pi 2) (* (- g24 g23) 12.00)))
(setq p48 (polar p47 0 5))
(command ".pline" p1 "w" 0.3 "" p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13
p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32
p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 p46 p47 p48 "")
;ghi text len bieu do
(command ".Layer" "s" "text" "c" "70" "text" "")
(command ".text" "j" "bc" (polar p2 0 -2.5) htext 0 (rtos g1 2 2)
".text" "j" "bc" (polar p4 0 -2.5) htext 0 (rtos g2 2 2)
".text" "j" "bc" (polar p6 0 -2.5) htext 0 (rtos g3 2 2)
".text" "j" "bc" (polar p8 0 -2.5) htext 0 (rtos g4 2 2)
".text" "j" "bc" (polar p10 0 -2.5) htext 0 (rtos g5 2 2)
".text" "j" "bc" (polar p12 0 -2.5) htext 0 (rtos g6 2 2)
".text" "j" "bc" (polar p14 0 -2.5) htext 0 (rtos g7 2 2)
".text" "j" "bc" (polar p16 0 -2.5) htext 0 (rtos g8 2 2)
".text" "j" "bc" (polar p18 0 -2.5) htext 0 (rtos g9 2 2)
".text" "j" "bc" (polar p20 0 -2.5) htext 0 (rtos g10 2 2)
".text" "j" "bc" (polar p22 0 -2.5) htext 0 (rtos g11 2 2)
".text" "j" "bc" (polar p24 0 -2.5) htext 0 (rtos g12 2 2)
".text" "j" "bc" (polar p26 0 -2.5) htext 0 (rtos g13 2 2)
".text" "j" "bc" (polar p28 0 -2.5) htext 0 (rtos g14 2 2)
".text" "j" "bc" (polar p30 0 -2.5) htext 0 (rtos g15 2 2)
".text" "j" "bc" (polar p32 0 -2.5) htext 0 (rtos g16 2 2)
".text" "j" "bc" (polar p34 0 -2.5) htext 0 (rtos g17 2 2)
".text" "j" "bc" (polar p36 0 -2.5) htext 0 (rtos g18 2 2)
".text" "j" "bc" (polar p38 0 -2.5) htext 0 (rtos g19 2 2)
".text" "j" "bc" (polar p40 0 -2.5) htext 0 (rtos g20 2 2)
".text" "j" "bc" (polar p42 0 -2.5) htext 0 (rtos g21 2 2)
".text" "j" "bc" (polar p44 0 -2.5) htext 0 (rtos g22 2 2)
".text" "j" "bc" (polar p46 0 -2.5) htext 0 (rtos g23 2 2)
".text" "j" "bc" (polar p48 0 -2.5) htext 0 (rtos g24 2 2)
)
; in ghi chu ban ve
(command ".text" "j" "bc" mt_d htext 0 "%Qngñ"
".text" "j" "tr" (polar mt_n1 (/ pi 2) -1) htext 0 "t (giôø)"
)
(setq d_text1 (polar mt_d (/ pi 2) -6)
d_text2 (polar d_text1 0 60)
)
(command ".text" "j" "mc" d_text2 2 0 "Bieåu ñoà nöôùc thaûi theo töøng
giôø trong ngaøy")
)
;chuong trinh chinh
(defun c:vbdtn (/ ddx ddy
g1 g10 g11 g12 g13 g14 g15 g16 g17 g18 g19
g2 g20 g21 g22 g23 g24 g3 g4 g5 g6 g7 g8 g9
dd dd_d dd_n d_text1 d_text2 g1 g10 g11 g12
g13 g14 g15 g16 g17 g18 g19 g2 g20 g21 g22
g23 g24 g3 g4 g5 g6 g7 g8 g9 htext mt_d mt_d1
mt_d2 mt_n mt_n1 mt_n2 nd nn p1 p10 p11 p12 p13
p14 p15 p16 p17 p18 p19 p2 p20 p21 p22 p23 p24
p25 p26 p27 p28 p29 p3 p30 p31 p32 p33 p34 p35
p36 p37 p38 p39 p4 p40 p41 p42 p43 p44 p45 p46
p47 p48 p5 p6 p7 p8 p9 pt1 pt2 pt3
ans ce dcl_id dd ddx ddy gm om os sm)
(setq om (getvar "orthomode"))
(if (> om 0)(setvar "orthomode" 0))
(setq gm (getvar "gridmode"))
(if (> gm 0)(setvar "gridmode" 0))
(setq sm (getvar "snapmode"))
(if (> sm 0)(setvar "snapmode" 0))
(setq os (getvar "osmode"))
(if (> os 0)(setvar "osmode" 0))
(setq ce (getvar "cmdecho"))
(if (> ce 0)(setvar "cmdecho" 0))
(setq dcl_id (load_dialog "bieu do thoat nuoc.DCL"))
(if
(not (new_dialog "bdtn" dcl_id))
(exit)
)
(GT_tile)
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)(exit) ")
(setq ans (start_dialog))
(setq dd (getpoint "\nDiem dat: "))
(setq ddx (car dd))
(setq ddy (cadr dd))
(GAN_GT_XY)
(V_BD)
(command "redraw")
(command "zoom" "e")
(setvar "orthomode" om)
(setvar "gridmode" gm)
(setvar "snapmode" sm)
(setvar "osmode" os)
(setvar "cmdecho" ce)
(princ)
)
[/code]
wrote in message news:5702206@discussion.autodesk.com...
may you help me repair this lisp? thank you very much
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
