Chuyển đến nội dung
Diễn đàn CADViet

MANHHUNGXDA

CADViet Team
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    907

  • Đã tham gia

  • Lần ghé thăm cuối

  • Ngày trúng

    16

Bài đăng được đăng bởi MANHHUNGXDA

  3. Đã đăng · Trả lời báo cáo

    Hà nội mùa này phố cũng như sông

    Cái rét đầu đông,chân em thâm thâm trong nước lạnh

    Hoa sữa thôi rơi,em tôi bơi cả chiều trên phố

    Đường cổ ngư xưa,ngập tràn nước sông hồng...

    Hà nội mùa này người đi nơm cá

    Phố vắng nước lên thành con sông

    Quán cóc nước dâng ngập qua mông

    Hồ Tây, tràn ra Mỹ Đình

    Hà Nội mùa này lòng bao đau đớn

    Ta nhớ đêm nao lạnh đôi tay

    Cho đến đêm qua lạnh đôi chân

    Giờ đây, lạnh luôn toàn thân

     

    tick vào để nghe bài này

     

    Em ơi Hà lội phố... ta còn nghe mùi bùn tanh, ta còn nghe mùi nước cống... con đường đó thành con sông nhỏ, ai đó chở ai một cuốc trăm ngàn... ===== Em ơi Hà Nội phố... Ta còn em vì kẹt xe. Ta còn em vì nước lũ. Con đường vắng ào ào cơn mưa đổ Em đứng chờ ai, đến sửa xe dùm… === Hà nội mùa này chiều ko buông nắng. Phố vắng nghiêng nghiêng vài phao bơi. Quán cóc liêu xiêu một ca nô. Hồ Tây, hồ Tây mất bờ...

  4. Đã đăng · Trả lời báo cáo

    em muốn insert môt block theo khoảng cách bằng nhau cho trước và nằm giữa 2 điểm (chọn block=> điểm đầu điểm cuối rồi nhập khoảng cách)

    hiện giờ em chỉ biết dùng các lệnh hơi thủ công (insert + array + move... )

    các bác coi hình :

    http://www.cadviet.com/upfiles/P01B.dwg

    thanks các bác

    Cái này là cầu đwưọc uớc thấy đấy nhé

    http://tailieukythuat.com/index.php?showto...entry1515

    • Vote tăng 1

  5. Đã đăng · Trả lời báo cáo

    Tôi có file bản vẽ *.dwg. Nhưng khi mở, xuất hiện thông báo: Drawing file is not valid. Các bạn trên diễn đàn hãy hướng dẫn, giúp đỡ tôi với. Xin chân thành cảm ơn!

    Lỗi đó là do File đó đưọc tạo từ loại cad đời cao hơn phiên bản bạn đang dùng

    Bạn hãy up lên để các anh em mở, save vào cad 2000 cho bạn

    khi đó bạn có thể mở

  9. Đã đăng · Trả lời báo cáo

    1. Cửa nhận nước(CNN) với nhiệm vụ lấy nước với lưu lượng thiết kế để phát điện, có thể chỉa theo 1 số dạng (xem gt thuỷ công)

    2. Tuỳ thuộc vào ct sau cnn mà bố trí cao trình ngưỡng cửa nhận nước (gt công trình trạm-đại học thuỷ lợi)

    3. Ít nhất phải hiểu cơ bản thỉ mới trao đổi được, bạn nên đọc kỹ lại gt, có gì trao đổi sau.

     

    Sau khi đọc kỹ nhưng bài trong đây rồi bạn sẽ hiểu ít nhiều

    http://www.vncold.vn/Web/Zone.aspx?zoneid=36&page=2

    Tôi không biết bạn ntn!

    Để thiết kế một công trình, bạn phải hiểu rõ về nó

    Nếu bạn có kiến thức đầy đủ, tôi xin không bàn thêm

    Còn nếu bạn chưa biết, bạn hãy đọc kỹ cuốn sách:

    1-"TRẠM THỦY ĐIỆN, CÁC CÔNG TRÌNH TRÊN TUYẾN NĂNG LƯỢNG,"(Tg: GS.Hoàng Đình DŨng, Phạm Hồng Nhật, Nguyễn Thượng Bằng)

    2-"Sổ tay tính toán thuỷ lực.

     

    Nói thật nhé, trong 2 cuốn sách mà tôi cho là kinh điển ở trên, bạn đọc, biết đâu bạn gặp ngay truờng hợp trong đó luôn!

    Chúc thành công,

     

    CÒn bản vẽ, bạn sẽ có ngay sau khi bạn hiểu. Tôi sẽ giúp bạn!

  18. Đã đăng · Trả lời báo cáo

    Mình tặng các bạn chương trình tắt máy tự động, thời gian tính bằng giây

    Tối muốn nghe nhạc nhưng sợ ngủ quên, bạn mở chương trình lên đánh số giây vào xong nghe nhạc ngủ luôn khỏi sợ hao điện, khi hết thời gian ấn định máy tính tự tắt.

    Dung lượng chỉ có 23 K thôi.

    Lưu ý: di chuyển chuột vào khung chỉnh thời gian từ trên xuống

     

    http://www.cadviet.com/upfiles/Auto_Shutdown.exe

     

    Nếu thích thì cám ơn mình nha!

    Xin cám ơn đã quan tâm!

    dùng con này cũng đựoc

    http://www.cadviet.com/forum/index.php?sho...amp;#entry11013

  24. Đã đăng · Trả lời báo cáo

    Như thế nào nhỉ ???

    Em còn phải nuôi em ăn học nữa ???

    hu hu hu

    đóng thuế có nhiều bất cấp

    cái ông 5 triêu, đóng thuế 10% là còn cầm về là 4,5 triệu

    Cái ông 4,8 triệu, không phải đóng thuê, cầm về 4,8 triệu

    => lương nào lợi hơn????????

     

    Tất cả mọi mặt hàng, sản xuất , tiêu dùng.... người dân đã phải chịu thuế GTGT (khoản chi)

    Nay lại đánh thuế cả trên khoản thu nữa

    lợi đâu, hại đâu hở các bác

  25. Đã đăng · Trả lời báo cáo

    Em muốn hỏi là có cái lisp đường hàn nào mà khi vẽ nhầm (hoặc sai) ấn ctrl + z nó về luôn trạng thái ban đầu, cái lisp em đang dùng thì khi em ấn ctrl + z nó mất từng nét trong đường hàn 1 (rất lâu nếu cái đh nó dài) Diễn tả hơi lủng củng 1 tí, thank các bác

    của bạn đây, không cảm ơn là giận đó!

    ;;==============================================================================

=========================
;;CHUONG TRINH HAN THEP
; Duong han cong truong thuong
(defun C:CTT ( / )
   (setq p1 (getpoint "\nStart point : ") )
   (setq p2 (getpoint p1 "OK\nEnd point   : ") )
   (if (null a) (setq a 1.0))
   (setq _a (getdist (strcat "Ok\nDistance <" (rtos a 2 1) ">: ")))
   (if (/= _a nil) (setq a _a))
   (if (null b) (setq b 1.0))
   (setq _b (getdist (strcat "Ok\nLenght <" (rtos b 2 1) ">: ")))
   (if (/= _b nil) (setq b _b))
; Chieu cao duong han lay mac dinh bang 0,75 khoang cach
   (if (= b nil)
   (setq b (* 0.75 a))
   )
   (setq l  (distance p1 p2) )
   (setq n  (fix ( / l a ) ) )
   (setq deltaX ( - (car p2) (car p1) ) )
   (setq deltaY ( - (cadr p2) (cadr p1) ) )
   (setq i 0)
; Luu bien he thong
   (setq osmodeold (getvar "osmode")) 
   (setq blipmodeold (getvar "blipmode")) 
; Undo phai de truoc lenh chinh bien he thong
   (command "_UNDO" "_GROUP")
   (setvar "OSMODE" 0)
   (setvar "BLIPMODE" 0)		
; Them mot vong lap cho i
   (while (<= i n )
	(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )  
						  )
			 ) 
	)
	(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY ) 
						   )
			 ) 
	)
	(setq p3 (list x1 y1) )
	(setq x2 ( + ( + x1 (* -1 (* b (/ deltaY l) ) ) ) (* b (/ deltaX l) )
		)
	) 
	(setq y2 ( + (+ y1 (* b (/ deltaX l) ) ) (* b (/ deltaY l) )
   	 )			 
	)

	(setq p4 (list x2 y2) )

	(setq x5 ( + x1 (* -1 (* b (/ deltaY l) )
					) 
			 ) 
	) 
	(setq y5 ( + y1 (* b (/ deltaX l) 
					)
			 )
	) 
	(setq p5 (list x5 y5) )
	(setq x6 ( + x1  (* b (/ deltaX l) 
					) 
			 ) 
	) 
	(setq y6 ( + y1 (* b (/ deltaY l) 
					)
			 )
	) 
	(setq p6 (list x6 y6) )
	(command "LINE" p3 p4 "")
	(command "LINE" p5 p6 "")
	(setq i (+ i 1) )
   )
   (command "_UNDO" "_END")
; Khoi phuc lai cac bien he thong da thay doi
   (setvar "BLIPMODE" blipmodeold)		
   (setvar "OSMODE" osmodeold)
   (princ)
)
;;==============================================================================

=========================
; Duong han cong truong net khuat
(defun C:CTK ( / )
   (setq p1 (getpoint "\nStart point : ") )
   (setq p2 (getpoint p1 "OK\nEnd point   : ") )
   (if (null a) (setq a 1.0))
   (setq _a (getdist (strcat "Ok\nDistance <" (rtos a 2 1) ">: ")))
   (if (/= _a nil) (setq a _a))
   (if (null b) (setq b 1.0))
   (setq _b (getdist (strcat "Ok\nLenght <" (rtos b 2 1) ">: ")))
   (if (/= _b nil) (setq b _b))
; Chieu cao duong han lay mac dinh bang 0,75 khoang cach
   (if (= b nil)
   (setq b (* 0.75 a))
   )
   (setq l  (distance p1 p2) )
   (setq n  (fix ( / l a ) ) )
   (setq deltaX ( - (car p2) (car p1) ) )
   (setq deltaY ( - (cadr p2) (cadr p1) ) )
   (setq i 0)
; Luu bien he thong
   (setq osmodeold (getvar "osmode")) 
   (setq blipmodeold (getvar "blipmode")) 
; Undo phai de truoc lenh chinh bien he thong
   (command "_UNDO" "_GROUP")
   (setvar "OSMODE" 0)
   (setvar "BLIPMODE" 0)		
; Them mot vong lap cho i
   (while (<= i n )
	(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )  
						  )
			 ) 
	)
	(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY ) 
						   )
			 ) 
	)
	(setq p3 (list x1 y1) )
	(setq x2 ( + ( + x1 (* -1 (* b (/ deltaY l) ) ) ) (* b (/ deltaX l) )
		)
	) 
	(setq y2 ( + (+ y1 (* b (/ deltaX l) ) ) (* b (/ deltaY l) )
   	 )			 
	)

	(setq p4 (list x2 y2) )

	(setq x5 ( + x1 (* -1 (* b (/ deltaY l) )
					) 
			 ) 
	) 
	(setq y5 ( + y1 (* b (/ deltaX l) 
					)
			 )
	) 
	(setq p5 (list x5 y5) )
	(setq x6 ( + x1  (* b (/ deltaX l) 
					) 
			 ) 
	) 
	(setq y6 ( + y1 (* b (/ deltaY l) 
					)
			 )
	) 
	(setq p6 (list x6 y6) )
(if (< (rem i 6) 4)		
   	(progn
	 (command "LINE" p3 p4 "")
	   	 (command "LINE" p5 p6 "")
	)
	) 
(setq i (+ i 1) )
   )
   (command "_UNDO" "_END")
; Khoi phuc lai cac bien he thong da thay doi
   (setvar "BLIPMODE" blipmodeold)		
   (setvar "OSMODE" osmodeold)
   (princ)
)
;;==============================================================================

=========================
(defun C:DH()
  (setq P1 (getpoint "\nDiem dau : "))
  (setq P2 (getpoint "\nDiem cuoi : "))
  (setq P3 (getpoint "\nPhia co duong han : "))
  (setq  l (getreal  "\nChieu cao duong han : "))
  (setq goc (angle p1 p2))

  (setq xA (car P1))
  (setq yA (cadr P1))
  (setq xB (car P2))
  (setq yB (cadr P2))
  (setq xC (car P3))
  (setq yC (cadr P3))

  (setq dau (- (* (- xC xA) (- yB yA))
			(* (- xB xA) (- yC yA))
		 )
  )

  (setq n (distance P1 P2))

  (setq x1 (- xA (* l (cos goc))))
  (setq y1 (- yA (* l (sin goc))))

  (While (> n 0)
  (setq x1 (+ x1 (* l (cos goc))))
  (setq y1 (+ y1 (* l (sin goc))))

  (setq x2 (- x1 (* l (sin goc))))
  (setq y2 (+ y1 (* l (cos goc))))

  (setq x3 (+ x1 (* l (sin goc))))
  (setq y3 (- y1 (* l (cos goc))))

  (setq dau2 (- (* (- x2 xA) (- yB yA))
				(* (- xB xA) (- y2 yA))
			 )
  )

  (if (> (* dau2 dau) 0)	   
	(command "line" (list x1 y1) (list x2 y2) "")
	(command "line" (list x1 y1) (list x3 y3) "")
  )
  (setq n (- n l))
  );of while
); of defun
;;==============================================================================

=========================
;bo sung duong han net khuat
; Duong han
(defun C:DH ( / )
   (setq p1 (getpoint "\nStart point : ") )
   (setq p2 (getpoint p1 "Ok\nEnd point   : ") )
   (if (null a) (setq a 1.0))
   (setq _a (getdist (strcat "Ok\nDistance <" (rtos a 2 1) ">: ")))
   (if (/= _a nil) (setq a _a))
   (if (null b) (setq b 1.0))
   (setq _b (getdist (strcat "Ok\nLenght <" (rtos b 2 1) ">: ")))
   (if (/= _b nil) (setq b _b))


   (setq l  (distance p1 p2) )
   (setq n  (fix ( / l a ) ) )
   (setq deltaX ( - (car p2) (car p1) ) )
   (setq deltaY ( - (cadr p2) (cadr p1) ) )
   (setq i 0)
   (setvar "OSMODE" 0)
   (setvar "BLIPMODE" 0)		
   (command "_UNDO" "_GROUP")
   (while (<= i n)
	(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )  
						  )
			 ) 
	)
	(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY ) 
						   )
			 ) 
	)
	(setq p3 (list x1 y1) )
	(setq x2 ( + x1 (* -1 (* b (/ deltaY l) )
					) 
			 ) 
	) 
	(setq y2 ( + y1 (* b (/ deltaX l) 
					)
			 )
	) 
	(setq p4 (list x2 y2) )
	(command "LINE" p3 p4 "")
	(setq i (+ i 1) )
   )
   (command "_UNDO" "_END")
   (setvar "BLIPMODE" 0)		
   (setvar "OSMODE" 179)
   (princ)
)
;;==============================================================================

=========================
; Duong han net khuat
(defun C:HK ( / )
   (setq p1 (getpoint "\nStart point : ") )
   (setq p2 (getpoint p1 "Ok\nEnd point   : ") )
   (if (null a) (setq a 1.0))
   (setq _a (getdist (strcat "Ok\nDistance <" (rtos a 2 1) ">: ")))
   (if (/= _a nil) (setq a _a))
   (if (null b) (setq b 1.0))
   (setq _b (getdist (strcat "Ok\nLenght <" (rtos b 2 1) ">: ")))
   (if (/= _b nil) (setq b _b))

   (setq l  (distance p1 p2) )
   (setq n  (fix ( / l a ) ) )
   (setq deltaX ( - (car p2) (car p1) ) )
   (setq deltaY ( - (cadr p2) (cadr p1) ) )
   (setq i 0)
   (setvar "OSMODE" 0)
   (setvar "BLIPMODE" 0)		
   (command "_UNDO" "_GROUP")
   (while (<= i n)
	(setq x1 ( + (car p1) (* i (* (/ a l) deltaX )  
						  )
			 ) 
	)
	(setq y1 ( + (cadr p1) (* i (* ( / a l ) deltaY ) 
						   )
			 ) 
	)
	(setq p3 (list x1 y1) )
	(setq x2 ( + x1 (* -1 (* b (/ deltaY l) )
					) 
			 ) 
	) 
	(setq y2 ( + y1 (* b (/ deltaX l) 
					)
			 )
	) 
	(setq p4 (list x2 y2) )
(if (< (rem i 6) 4)		
		  (command "LINE" p3 p4 "")
	)  
	(setq i (+ i 1) )
   )
   (command "_UNDO" "_END")
   (setvar "BLIPMODE" 0)		
   (setvar "OSMODE" 179)
   (princ)
)
;;==============================================================================

=========================
;;==============================================================================

=========================

    • Vote tăng 1
×