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

naruto179 · Đăng lúc 14/3/2012 07:20

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

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

(Defun c:a5()
(setvar "cmdecho" 0)
(command "osnap" "none")
(initget "Heso Do")
(command "style" "DT1" "vn-abc.shx" "" "0.8" "15" "" "" "")
;;; (ALERT "
;;; 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))
;;; ")
(setq pt (getpoint "\n He so / <Chon diem>:"))
(if (= pt "Heso")
(progn
(setq am (getreal "\n Cho he so : "))
(if (and (null am) (/= ac 0))
(setq am ac)
)
(setq pt (getpoint "\n Chon diem: "))
)
(setq ac am))
(if (or (= am 0) (null am)) (setq am 1))
(setq s 0)
(progn
; (setq pt (getpoint "\n Chon diem: "))
(while pt
(setq entold (cdr (assoc 5 (entget (entlast)))))
(command "boundary" pt "")
(setq entnew (cdr (assoc 5 (entget (entlast)))))
(if (/= entold entnew)
(progn
(setq entnew (entget (entlast)))
(if (assoc 62 entnew)
(setq entnew (subst (cons 62 (+ 3 (cdr (assoc 62 entnew)))) (assoc 62 entnew) entnew))
(setq entnew (append entnew (list (cons 62 (+ 3 (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 entnew))))))))))
)
(entmod entnew)
(Command "area" "o" (entlast))
(setq s (+ s (getvar "area")))
(setq pt (getpoint "\n Chon diem: "))
(entdel (entlast))
)
(progn
(princ "chon diem sai")
(setq pt (getpoint "\n Chon diem: "))
)
)
)
)
(command "osnap" "intersection")
(princ (* s am))
(princ)
(command "style" "DT1" "vn-abc.shx" "" "0.85" "15" "" "" "")
(setq pt1 (getpoint "Chon vi tri ghi dien tich: "))
(setq dt (* s am ))
(setq dt (strcat (rtos dt 2 2) " m2"))
(command "text" pt1 2 0 (strcat "S ®µo ®Ëp cò = " dt))
)

Sao chép mã

M@trixs · Đăng lúc 14/3/2012 14:46

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 !

vanngoc.2105 · Đăng lúc 23/3/2012 08:52

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 !

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

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

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá