Thắc mắc về hệ số của tỉ lệ trong cad

Có anh em nào biết thì chỉ cho mình biết về các hệ số tương ứng so với các tỉ lệ trong cad với.Không biết vì sao mà lại có các hệ số tỉ lệ này.Các hệ số được lấy hay tính ra bằng cách nào?Anh em nào biết giúp mình nhé.
Cac he so tuong ung voi ty le
tl 1/2000) 0.4
tl 1/1000) 0.1
tl 1/500)  0.25
tl 1/250)  0.0625
tl 1/200)  0.04
tl 1/100)  0.01
tl 1/50)   0.0025
tl 1/25)   0.000625
tl 1/10)   0.1

các hệ số này có trong lisp tính diện tích

1. (Defun c:a5()
   
2. (setvar "cmdecho" 0)
   
3. (command "osnap" "none")
   
4. (initget "Heso Do")
   
5. (command "style" "DT1" "vn-abc.shx" "" "0.8" "15" "" "" "")
   
6. ;;;   (ALERT "
   
7. ;;;   Cac he so tuong ung voi ty le
   
8. ;;;  ((= tl 1/2000) 0.4))
   
9. ;;;  ((= tl 1/1000) 0.1))
   
10. ;;;  ((= tl 1/500)  0.25))
    
11. ;;;  ((= tl 1/250)  0.0625))
    
12. ;;;  ((= tl 1/200)  0.04))
    
13. ;;;  ((= tl 1/100)  0.01))
    
14. ;;;  ((= tl 1/50)   0.0025))
    
15. ;;;  ((= tl 1/25)   0.000625))
    
16. ;;;  ((= tl 1/10)   0.1))
    
17. ;;;  ")
    
18. 
    
19. (setq pt (getpoint "\n He so / <Chon diem>:"))
    
20.     (if (= pt "Heso")
    
21.       (progn
    
22.    (setq am (getreal "\n Cho he so : "))
    
23.    (if (and (null am) (/= ac 0))
    
24.     (setq am ac)
    
25.    )
    
26.   (setq pt (getpoint "\n Chon diem: "))
    
27.   )
    
28.   (setq ac am))
    
29.    
    
30. (if (or (= am 0) (null am)) (setq am 1))
    
31. (setq s 0)
    
32. (progn
    
33. ;  (setq pt (getpoint "\n Chon diem: "))
    
34.        (while pt
    
35.    (setq entold (cdr (assoc 5 (entget (entlast)))))
    
36.    (command "boundary" pt "")
    
37.    (setq entnew (cdr (assoc 5 (entget (entlast)))))
    
38.    (if (/= entold entnew)   
    
39.     (progn
    
40.                          (setq entnew (entget (entlast)))
    
41.                          (if (assoc 62 entnew)
    
42.                             (setq entnew (subst (cons 62 (+ 3 (cdr (assoc 62 entnew)))) (assoc 62 entnew) entnew))
    
43.                             (setq entnew (append entnew (list (cons 62 (+ 3 (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 entnew))))))))))
    
44.                            )
    
45.    
    
46.                           
    
47.                          (entmod entnew)
    
48.                          (Command "area" "o" (entlast))
    
49.      (setq s (+ s (getvar "area")))
    
50.         (setq pt (getpoint "\n Chon diem: "))
    
51.      (entdel (entlast))
    
52.            )
    
53.     (progn
    
54.      (princ "chon diem sai")
    
55.      (setq pt (getpoint "\n Chon diem: "))
    
56.     )
    
57.    )
    
58.     )
    
59.             )
    
60. 
    
61. (command "osnap" "intersection")
    
62. (princ (* s am))
    
63.          (princ)
    
64. (command "style" "DT1" "vn-abc.shx" "" "0.85" "15" "" "" "")
    
65. (setq pt1 (getpoint "Chon vi tri ghi dien tich: "))
    
66. (setq dt (* s am ))
    
67. (setq dt (strcat (rtos dt 2 2) " m2"))
    
68. (command "text" pt1 2 0 (strcat "S ®µo ®Ëp cò = " dt))
    
69. )
    

Sao chép mã

M@trixs ko hiểu mấy cái tỉ lệ đó nó nhảy theo kiểu nào nữa:
Mặc nhiên:
1/10 thì phải bằng : 0.1
1/100 thì phải bằng : 0.01
Vậy tại sao :
1/1000 cũng chỉ có : 0.1

Cái này bạn phải hỏi tác giả lisp để biết cách tính thôi..... có thể là một giá trị nào đó gán thêm cho biến

Gợi ý nhé: Khẩn cấp nhờ a KetXu và anh CadPro vào giải thích cho bác !

M@trixs gửi lúc 14/3/2012 14:46

                               
Đăng nhập/Đăng ký mở rộng

M@trixs ko hiểu mấy cái tỉ lệ đó nó nhảy theo kiểu nào nữa:
Mặc nhiên:
1/10 thì phả ...

Cái này còn tùy thuộc vào đơn vị của bản vẽ là : m; mm; cm nữa còn tỉ lệ thì tùy !