Đến nội dung


Hình ảnh

Đố vui


  • Please log in to reply
1743 replies to this topic

#741 Truong_AAn

Truong_AAn

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 314 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 05 April 2012 - 09:54 AM

Nhưng bài toán của Haanh là xác định vị trí tương đối giữa ĐT và MP => có 3 case: ĐT trùng MP, ĐT // MP, ĐT giao MP.

vậy la topic trc mới chỉ giải quyết được một trường hợp rồi. phải ko pác
  • 0
Hình đã gửi
----------------------------------------------------------------------------------//-------------------------------------------------------------------------------------

#742 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 05 April 2012 - 10:20 AM

@ Bác Truong_AAn:
- Muốn xác định đường vuông góc chung của hai đường thẳng dựng bằng CAD không khó, nhưng chắc không nhanh bằng lisp.
@Bác Doan Van Ha:
Hai câu đố vui của em sử dụng lệnh CAD, nếu bác viết lisp càng vui và càng nhanh hi hi!
Cho em mượn ý tưởng của bác để ra thêm 2 câu đố:
1). Xác định nhanh vị trí tương đối của đường thẳng và đường thẳng
5). Xác định nhanh vị trí tương đối của điểm và mặt phẳng

Xin mời các bác tiếp tục thư giãn với hai câu sau: Cho 5 điểm : A, B, C, D và E có vị trí bất kỳ trong không gian.
1- Hãy xác định vị trí tương đối của đường thẳng đi qua DE so với mặt phẳng đi qua 3 điểm A, B, C??? (Câu này hơi khó)
2- Giả thiết là đường thẳng đi qua DE không // với mặt phẳng đi qua A, B, C, hãy xác định giao điểm của của nó trên mặt phẳng đi qua 3 điểm ABC ???(Câu này dễ hơn cách dựng tương đối nhanh)

Hề hề hề,
Bài toán của bác haanh nếu giải bằng lisp thì có thể là không khó nhưng cũng khá loằng ngoằng vì phải sử dụng các công thức tính toán trong hình giải tích mà thú thực là mình cũng quên mất hơn 100% rùi.
Còn nếu giải bằng CAD thì nếu bác nào còn nhớ chút chút về mông hình học họa hình sẽ thấy nó không quá khó đâu. Tuy nhiên việc giải sao cho nhanh thì lại phụ thuộc vào cái kỹ năng thuần thục về CAD mới được vì sẽ phải chuyển hệ trục tọa độ nhiều lần.
Mình không dám tranh giải vì kiến thức rơi vãi nhiều rùi. Chỉ là gợi ý vậy để mong các bác sớm giành khôi nguyên thui....
Hề hề hề, chúc các bác luôn vui.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#743 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 05 April 2012 - 10:25 AM

@ Bác Truong_AAn:
- Muốn xác định đường vuông góc chung của hai đường thẳng dựng bằng CAD không khó, nhưng chắc không nhanh bằng lisp.
@Bác Doan Van Ha:
Hai câu đố vui của em sử dụng lệnh CAD, nếu bác viết lisp càng vui và càng nhanh hi hi!
Cho em mượn ý tưởng của bác để ra thêm 2 câu đố:
1). Xác định nhanh vị trí tương đối của đường thẳng và đường thẳng
5). Xác định nhanh vị trí tương đối của điểm và mặt phẳng
Xin mời các bác tiếp tục thư giãn với hai câu sau: Cho 5 điểm : A, B, C, D và E có vị trí bất kỳ trong không gian.
1- Hãy xác định vị trí tương đối của đường thẳng đi qua DE so với mặt phẳng đi qua 3 điểm A, B, C??? (Câu này hơi khó)
2- Giả thiết là đường thẳng đi qua DE không // với mặt phẳng đi qua A, B, C, hãy xác định giao điểm của của nó trên mặt phẳng đi qua 3 điểm ABC ???(Câu này dễ hơn cách dựng tương đối nhanh)

Đáp án bằng lisp giữa đường thẳngmặt phẳng xem ở đây:
http://www.cadviet.c...=0
Đáp án bằng lisp giữa điểmmặt phẳng xem ở đây:
http://www.cadviet.c...showtopic=63084
Đáp án bằng lisp giữa mặt phẳngmặt phẳng xem ở đây:
http://www.cadviet.c...showtopic=63088
Đáp án bằng lisp giữa đường thẳngđường thẳng xem ở đây:
http://www.cadviet.c...=0
  • 2

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#744 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2882 Bài viết
Điểm đánh giá: 1556 (rất tốt)

Đã gửi 06 April 2012 - 09:49 AM

-Em xin cảm ơn bác Doan Van Ha nhiều nhé! Em đã sử dụng lisp xác định giao tuyến của 2 mặt phẳng, rất tuyệt tác và loãng moạng bác ạ! Xác định bằng lệnh AutoCAD hơi bị loằng ngoằng dây điện và tốn nhiều thời gian hơn, em đang nghĩ cách để rút ngắn thời gian mà chưa được.
-Lisp xác định giao tuyến của đường thẳng và mặt phẳng cũng hay nhưng em sẽ không dùng lisp này vì lý do: Hai lisp của bác cùng sử dụng lệnh chung 1 lệnh là HA nên có nhược điểm: Mỗi lần sử dụng lệnh phải: gõ AP > chọn tên lisp > Load >...tốn thời gian.
Em có thắc mắc: sao bác phải đưa ra 3 kiểu chọn Plane: "[1=/2=1point+1line/3=2lines] <1>:" ??? Em nghĩ là chỉ cần chọn kiểu 1:3points là đủ

-Cách xác giao tuyến giữa đường thẳng và mặt phẳng của em bằng AutoCAD cũng nhanh lắm thời gian tương đương với sử dụng lisp của bác.
  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#745 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 06 April 2012 - 10:55 AM

-Em xin cảm ơn bác Doan Van Ha nhiều nhé! Em đã sử dụng lisp xác định giao tuyến của 2 mặt phẳng, rất tuyệt tác và loãng moạng bác ạ! Xác định bằng lệnh AutoCAD hơi bị loằng ngoằng dây điện và tốn nhiều thời gian hơn, em đang nghĩ cách để rút ngắn thời gian mà chưa được.
-Lisp xác định giao tuyến của đường thẳng và mặt phẳng cũng hay nhưng em sẽ không dùng lisp này vì lý do: Hai lisp của bác cùng sử dụng lệnh chung 1 lệnh là HA nên có nhược điểm: Mỗi lần sử dụng lệnh phải: gõ AP > chọn tên lisp > Load >...tốn thời gian.
Em có thắc mắc: sao bác phải đưa ra 3 kiểu chọn Plane: "[1=/2=1point+1line/3=2lines] <1>:" ??? Em nghĩ là chỉ cần chọn kiểu 1:3points là đủ
-Cách xác giao tuyến giữa đường thẳng và mặt phẳng của em bằng AutoCAD cũng nhanh lắm thời gian tương đương với sử dụng lisp của bác.
(@ bác Bình: Phím Like This trong bài viết của bác bị lỗi em nhấn không được)

1). Đỏ: lisp lãng mạn là sao hè?
2). Xanh: tôi có thói quen tất cả lệnh lisp do mình viết đều được đặt tên là HA. Việc đổi tên để cho người dùng tự ý thích của mình, và đơn giản thôi mà.
3). Tím: Về lý thuyết của hình học không gian thì 1 MP được xác định bởi 1 trong 3 điều kiện: 3 điểm phân biệt; 2 đường thẳng đồng phẳng và không trùng nhau; 1 đường thẳng và 1 điểm phân biệt. Do đó đưa ra 3 kiểu chọn lựa để tuỳ nghi sử dụng. Nếu chỉ đưa ra 1 cách chọn 3point thì đôi lúc thao tác chậm hơn là chọn 2lines hoặc 1line+1point. Tôi có ý tưởng đưa thêm điều kiện chọn thứ 4 là chọn MP bằng 1 curve thì thao tác càng nhanh hơn, nhưng xử lý để lấy 3 điểm phân biệt trên curve hơi rắc rối nên thôi.
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#746 Truong_AAn

Truong_AAn

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 314 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 06 April 2012 - 11:08 AM

Vậy là câu đố kì này pác Hà ẵm giải rồi. Pác nào có câu đố pót lên cho anh em thư giãn tiếp đi :lol:
  • 1
Hình đã gửi
----------------------------------------------------------------------------------//-------------------------------------------------------------------------------------

#747 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 06 April 2012 - 11:12 AM

Vậy là câu đố kì này pác Hà ẵm giải rồi. Pác nào có câu đố pót lên cho anh em thư giãn tiếp đi :lol:

Có câu đố này của bạn Haanh nè nữa bạn
Thủng thẳng mà thư giãn nhé!

Câu đố trên em cho thừa kích thước H2 nên lời giải trở thành dễ!
( Câu hỏi phải là cho hình 1 có diện tích S1= 4908738.5212 vẽ vẽ hình 2 sao cho diện tích S2= 2000000.0001).
gợi ý xem bài viết :
(yêu cầu) lisp vẽ cung tròn với diện tích biết trước
http://www.cadviet.c...l=&fromsearch=1
.......

Câu đố trên mình đã giải bằng Lisp (tính diện tích chính xác 4 số 0 sau dấu phẩy)
Còn giải bằng CAD thì chưa ra!
  • 1

#748 archnguyen

archnguyen

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 06 April 2012 - 04:38 PM

hic! Không sao download được câu hỏi - chỉ download được câu trả lời của bác bemove nên chẳng biết cụ thể ra làm sao???
  • 0

#749 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2882 Bài viết
Điểm đánh giá: 1556 (rất tốt)

Đã gửi 06 April 2012 - 05:21 PM

1). Đỏ: lisp lãng mạn là sao hè?
2). Xanh: tôi có thói quen tất cả lệnh lisp do mình viết đều được đặt tên là HA. Việc đổi tên để cho người dùng tự ý thích của mình, và đơn giản thôi mà.
3). Tím: Về lý thuyết của hình học không gian thì 1 MP được xác định bởi 1 trong 3 điều kiện: 3 điểm phân biệt; 2 đường thẳng đồng phẳng và không trùng nhau; 1 đường thẳng và 1 điểm phân biệt. Do đó đưa ra 3 kiểu chọn lựa để tuỳ nghi sử dụng. Nếu chỉ đưa ra 1 cách chọn 3point thì đôi lúc thao tác chậm hơn là chọn 2lines hoặc 1line+1point. Tôi có ý tưởng đưa thêm điều kiện chọn thứ 4 là chọn MP bằng 1 curve thì thao tác càng nhanh hơn, nhưng xử lý để lấy 3 điểm phân biệt trên curve hơi rắc rối nên thôi.

@ bác Doan Văn Ha:
1)- Đỏ : Lisp lãng mạn là vì có hiện ra dòng chữ: “2 mat nay giao nhau. Giao tuyen sẽ duoc ve!” … rất gần gũi và thân thương bác ạ! Cứ như là em đang nói chuyện với lisp vậy. Dùng AutoCAD thì chỉ có hình vẽ suông thôi bác ơi!
2)- Xanh : Em giơ cả hai tay đồng ý với bác!
3)- Tím: Em không đồng ý cách đặt vấn đề của bác . Chỉ cần chọn kiểu 1:3points là đủ. Thêm 2lines hoặc 1line+1point là thừa, làm cho đoạn mã lisp thêm dài ra . Muốn bắt điểm line, bác cứ việc chọn hai điểm bất kỳ trên line là được mà!
Hình đã gửi
Bác xem lại lisp xác định giao tuyến giữa hai mặt phẳng, có trường hợp lisp cho ra thông số sai. Hình ảnh trên em vẽ hai mặt phẳng P1 đi qua 3 điểm bất kỳ trong không gian và mặt phẳng P2 đi qua 3 điểm bất kỳ trong không gian cắt nhau, em chủ động vẽ trường hợp P1 cắt P2 để thử lisp, kết quả như sau:
Sau khi thực hiện lệnh HA bắt điểm P1 theo thứ tự 1, 2, 3 :
- Nếu bắt điểm P2 theo thứ tự 1,2, 3: Lisp thông báo : 2 mat nay giao nhau. Giao tuyen sẽ duoc ve! (đúng) :rolleyes:
- Nếu bắt điểm P2 theo thứ tự 1, 2, 3 : Lisp thông báo: Hai mat nay song song nhau! (sai)- B)
File hình vẽ đây bác kiểm tra lại nhé: http://www.cadviet.c...37_haanh64.dwg
  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#750 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 06 April 2012 - 11:23 PM

@ bác Doan Văn Ha:
1)- Đỏ : Lisp lãng mạn là vì có hiện ra dòng chữ: “2 mat nay giao nhau. Giao tuyen sẽ duoc ve!” … rất gần gũi và thân thương bác ạ! Cứ như là em đang nói chuyện với lisp vậy. Dùng AutoCAD thì chỉ có hình vẽ suông thôi bác ơi!
2)- Xanh : Em giơ cả hai tay đồng ý với bác!
3)- Tím: Em không đồng ý cách đặt vấn đề của bác . Chỉ cần chọn kiểu 1:3points là đủ. Thêm 2lines hoặc 1line+1point là thừa, làm cho đoạn mã lisp thêm dài ra . Muốn bắt điểm line, bác cứ việc chọn hai điểm bất kỳ trên line là được mà!
Bác xem lại lisp xác định giao tuyến giữa hai mặt phẳng, có trường hợp lisp cho ra thông số sai. Hình ảnh trên em vẽ hai mặt phẳng P1 đi qua 3 điểm bất kỳ trong không gian và mặt phẳng P2 đi qua 3 điểm bất kỳ trong không gian cắt nhau, em chủ động vẽ trường hợp P1 cắt P2 để thử lisp, kết quả như sau:
Sau khi thực hiện lệnh HA bắt điểm P1 theo thứ tự 1, 2, 3 :
- Nếu bắt điểm P2 theo thứ tự 1,2, 3: Lisp thông báo : 2 mat nay giao nhau. Giao tuyen sẽ duoc ve! (đúng) :rolleyes:
- Nếu bắt điểm P2 theo thứ tự 1, 2, 3 : Lisp thông báo: Hai mat nay song song nhau! (sai)- B)
File hình vẽ đây bác kiểm tra lại nhé: http://www.cadviet.c...837_haanh64.dwg

2). Đã OK nên không có gì để bàn.
3a). Tôi cũng không đồng ý với Haanh! Hơi bất đồng quan điểm tí nhỉ? Và cho phép tôi được spam nhé:
Cad hay Lsp thì mục đích tối thượng là để người dùng sướng nhất. Có 1 điều luôn >< nhau là người dùng càng khoẻ bao nhiêu thì người viết lsp càng khổ bấy nhiêu, và ngược lại. Lsp dài hay ngắn không quan trọng (mặc dầu thấy code ngắn có vẽ hàn lâm hơn, còn code dài có vẽ lúa hơn), mà quan trọng là người dùng thấy tiện lợi nhất.
Hỏi Haanh nhé: nhập 1 MP bằng cách chỉ 1 lần pick vào 1 curve (ý tưởng thứ 4 của tôi, đã nói mà chưa làm) có sướng hơn 3 lần nhập điểm không?
Giả dụ: chúng ta có 1 Circle nằm trong MP, tại sao chúng ta không chọn MP bằng cách chỉ 1 lần pick vào Circle mà phải tới 3 lần chọn 3 point trên nó (chưa kể phải osnap nữa)?
Viết lsp cho CV hay cho các forum khác thường là free nên người viết thường không dồn hết công sức, chỉ miễn sao người dùng sử dụng được là tốt rồi. Một vấn đề đơn giản và dễ thấy là bắt lỗi bằng hàm (initget) nhưng hỏi có mấy ai dùng nó, bởi họ thường mặc nhiên người sử dụng phải nhập đúng kiểu.
Cad thì uyên bác nên họ coi người dùng là thượng đế. Vẽ circle thì nhập R đủ rồi, nhưng họ vẫn có tuỳ chọn nhập D đấy thôi! Vậy thì tại sao lại bắt người dùng nhập MP chỉ bằng 1 cách duy nhất là 3 points? Họ thích kiểu nhập gì thì phải cho họ chọn kiểu nhập đó chứ hè!
3b). Tôi bị nhầm lẫn 1 chút trong việc xác định 2 MP // nhau nên sinh ra lỗi trên, đã sửa ở link cũ, srr.
1). Haanh thích loãng moạng thì tặng bạn cái này, còn loãng moạng hơn! Coi như thư giản cuối tuần nhé!
http://www.cadviet.c..._plane_ha_1.lsp
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#751 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2882 Bài viết
Điểm đánh giá: 1556 (rất tốt)

Đã gửi 07 April 2012 - 02:02 PM

-So sánh của bác hơi bị khấp khểnh! Tùy chọn khi vẽ Circle của “ ông tây két” cực chuẩn luôn. Nhập MP bằng 3 points ứng dụng được cho 2 lines hoặc 1 line+1 point, thêm 2 dạng tùy chọn này chẳng khác nào nhà nuôi chó, mèo phải đục thủng 2 lỗ tường: một lỗ to dành riêng cho chó chui ra chui vào, một lỗ nhỏ cho mèo chui vào chui ra.
Phải chăng vì mất công đục thêm một lỗ cho mèo mà bác đã: “Tôi bị nhầm lẫn 1 chút trong việc xác định 2 MP // nhau nên sinh ra lỗi trên”.??? Chỉ nhầm 1 chút thôi mà hai cái mặt phẳng cắt nhau, bỗng dưng trở thành song song với nhau cũng đủ để mất vui rồi bác ạ!
- Cảm ơn bác đã không những chỉnh sửa lại lisp mà còn tặng em cái giao diện thật loãng moạng bác ạ!
Hình đã gửi
-Em đã kiểm tra lisp của bác bằng cách dựng giao tuyến bằng AutoCAD, rất may là giao tuyến của bác và của em trùng nhau, thật là vui !
- Ở bài viết trước bác đã thổ lộ: “4). Xác định vị trí tương đối của điểm và mặt phẳng: đang làm.” Theo em thì bác không cần phải viết lisp này cho mất thời gian, AutoCAD làm được ngon lành. Em xin được mượn ý tưởng này của bác để ra câu đố:
1)- Làm thế nào để xác định nhanh vị trí tương đối của điểm và mặt phẳng?
2)- Làm thế nào để xác định nhanh vị trí tương đối giữa hai đường thẳng trong không gian?
Xin mời các bác tiếp tục thư giãn cho vui!
  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#752 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 07 April 2012 - 03:30 PM

-So sánh của bác hơi bị khấp khểnh! Tùy chọn khi vẽ Circle của “ ông tây két” cực chuẩn luôn. Nhập MP bằng 3 points ứng dụng được cho 2 lines hoặc 1 line+1 point, thêm 2 dạng tùy chọn này chẳng khác nào nhà nuôi chó, mèo phải đục thủng 2 lỗ tường: một lỗ to dành riêng cho chó chui ra chui vào, một lỗ nhỏ cho mèo chui vào chui ra.
Phải chăng vì mất công đục thêm một lỗ cho mèo mà bác đã: “Tôi bị nhầm lẫn 1 chút trong việc xác định 2 MP // nhau nên sinh ra lỗi trên”.??? Chỉ nhầm 1 chút thôi mà hai cái mặt phẳng cắt nhau, bỗng dưng trở thành song song với nhau cũng đủ để mất vui rồi bác ạ!
- Cảm ơn bác đã không những chỉnh sửa lại lisp mà còn tặng em cái giao diện thật loãng moạng bác ạ!
Hình đã gửi
-Em đã kiểm tra lisp của bác bằng cách dựng giao tuyến bằng AutoCAD, rất may là giao tuyến của bác và của em trùng nhau, thật là vui !
- Ở bài viết trước bác đã thổ lộ: “4). Xác định vị trí tương đối của điểm và mặt phẳng: đang làm.” Theo em thì bác không cần phải viết lisp này cho mất thời gian, AutoCAD làm được ngon lành. Em xin được mượn ý tưởng này của bác để ra câu đố:
1)- Làm thế nào để xác định nhanh vị trí tương đối của điểm và mặt phẳng?
2)- Làm thế nào để xác định nhanh vị trí tương đối giữa hai đường thẳng trong không gian?
Xin mời các bác tiếp tục thư giãn cho vui!

1). "phải đục thủng 2 lỗ tường: một lỗ to dành riêng cho chó chui ra chui vào, một lỗ nhỏ cho mèo chui vào chui ra." Bình luận đến thế mà Haanh không chịu thì thôi.
2). "Phải chăng vì mất công đục thêm một lỗ cho mèo mà bác đã: “Tôi bị nhầm lẫn 1 chút trong việc xác định 2 MP // nhau nên sinh ra lỗi trên”.???" Haanh võ đoán rồi, nhầm lẫn là bình thường, và nhầm lẫn này không liên quan tới cái lỗ.
3). Hai câu đố của Haanh đã lỡ làm bằng lisp rồi (trang #744).
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#753 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2882 Bài viết
Điểm đánh giá: 1556 (rất tốt)

Đã gửi 08 April 2012 - 11:31 AM

Hề hề hề,
Bài toán của bác haanh nếu giải bằng lisp thì có thể là không khó nhưng cũng khá loằng ngoằng vì phải sử dụng các công thức tính toán trong hình giải tích mà thú thực là mình cũng quên mất hơn 100% rùi.
Còn nếu giải bằng CAD thì nếu bác nào còn nhớ chút chút về mông hình học họa hình sẽ thấy nó không quá khó đâu. Tuy nhiên việc giải sao cho nhanh thì lại phụ thuộc vào cái kỹ năng thuần thục về CAD mới được vì sẽ phải chuyển hệ trục tọa độ nhiều lần.
Mình không dám tranh giải vì kiến thức rơi vãi nhiều rùi. Chỉ là gợi ý vậy để mong các bác sớm giành khôi nguyên thui....
Hề hề hề, chúc các bác luôn vui.

1- Vui nào hơn cái vần inh
Hôm nay được gặp bác Bình …hê hê
Bác vừa đi mót khoai về
Em nghe vẳng tiếng hề hề... từ xa
Hôm nào mời bác lại nhà
Em xin bác gọi em là ...em thôi!
Nhà em luôn có nhiều mồi
Thịt trâu hun khói, gà đồi khỏi lo!
2- Câu đố em ra chỉ đòi hỏi thuộc các lệnh vẽ cơ bản của AutoCAD.
3- Mục đích em ra câu đố là để mọi người cùng khai thác tiềm năng của AutoCAD, tìm ra cách vẽ nhanh nhất thôi bác ạ!

@ Anh Tuệ : Cách giải của em cũng chính xác 0.0001 và chậm hơn lisp của anh. (Có thể vẽ được chính xác hơn nữa, nhưng lệnh Li của AutoCAD chỉ mặc định độ chính xác của diện tích mặt cắt đến 0.0001 : Area 2000000.0001).

@ Bác Ngtthuy9 : "ai đố tiếp đi..."
@ Bác Truong_AAn : "Pác nào có câu đố pót lên cho anh em thư giãn tiếp đi :lol: "
Câu đố thì nhiều lắm, đây là những câu đố dùng lệnh vẽ của AutoCAD để giải:
1)- Làm thế nào để xác định nhanh vị trí tương đối của điểm và mặt phẳng phẳng bất kỳ?
2)- Làm thế nào để xác định nhanh vị trí tương đối giữa hai đường thẳng bất kỳ trong không gian?
3)- Cho 1 mặt phẳng và 1 đoạn thẳng bất kỳ trong không gian, hãy xác định nhanh giao điểm của đoạn thẳng kéo dài với mặt phẳng?
4)- Cho 2 mặt phẳng bất kỳ trong không gian, hãy xác định nhanh giao tuyến của hai mặt phẳng?
5)- Cho 1 mặt phẳng và 1 điểm bất kỳ trong không gian, Hãy xác định nhanh vị trí chân đường vuông góc chân vuông góc hạ từ điểm tới mặt phẳng?
Xin mời các bác tiếp tục thư giãn!
  • 1

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#754 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2882 Bài viết
Điểm đánh giá: 1556 (rất tốt)

Đã gửi 09 April 2012 - 01:18 PM

1/ vị trí tương đối: song song, trùng, cắt
2/ dùng lệnh ex là xong.

Sao lệnh EX lại xác định được vị trí tương đối của đường thẳng với mặt phẳng bất kỳ trong không gian và xác định được cả giao điểm của mặt phẳng và đường thẳng nữa, (chỉ có lệnh HA nếu sử dụng lisp của bác Doan Van Ha mới làm được điều này thôi chứ)???
  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#755 Truong_AAn

Truong_AAn

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 314 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 09 April 2012 - 03:49 PM

1- Vui nào hơn cái vần inh
Hôm nay được gặp bác Bình …hê hê
Bác vừa đi mót khoai về
Em nghe vẳng tiếng hề hề... từ xa
Hôm nào mời bác lại nhà
Em xin bác gọi em là ...em thôi!
Nhà em luôn có nhiều mồi
Thịt trâu hun khói, gà đồi khỏi lo!
2- Câu đố em ra chỉ đòi hỏi thuộc các lệnh vẽ cơ bản của AutoCAD.
3- Mục đích em ra câu đố là để mọi người cùng khai thác tiềm năng của AutoCAD, tìm ra cách vẽ nhanh nhất thôi bác ạ!

@ Anh Tuệ : Cách giải của em cũng chính xác 0.0001 và chậm hơn lisp của anh. (Có thể vẽ được chính xác hơn nữa, nhưng lệnh Li của AutoCAD chỉ mặc định độ chính xác của diện tích mặt cắt đến 0.0001 : Area 2000000.0001).

@ Bác Ngtthuy9 : "ai đố tiếp đi..."
@ Bác Truong_AAn : "Pác nào có câu đố pót lên cho anh em thư giãn tiếp đi :lol: "
Câu đố thì nhiều lắm, đây là những câu đố dùng lệnh vẽ của AutoCAD để giải:
1)- Làm thế nào để xác định nhanh vị trí tương đối của điểm và mặt phẳng phẳng bất kỳ?
2)- Làm thế nào để xác định nhanh vị trí tương đối giữa hai đường thẳng bất kỳ trong không gian?
3)- Cho 1 mặt phẳng và 1 đoạn thẳng bất kỳ trong không gian, hãy xác định nhanh giao điểm của đoạn thẳng kéo dài với mặt phẳng?
4)- Cho 2 mặt phẳng bất kỳ trong không gian, hãy xác định nhanh giao tuyến của hai mặt phẳng?
5)- Cho 1 mặt phẳng và 1 điểm bất kỳ trong không gian, Hãy xác định nhanh vị trí chân đường vuông góc chân vuông góc hạ từ điểm tới mặt phẳng?
Xin mời các bác tiếp tục thư giãn!

Khoái cái bài thơ :D
Pác haanh ơi. mấy cái khoảng dựng hình này nhứt đầu quá. pác có dạng khác bổ sung vào anh em cùng thư giãn đi hehe :rolleyes:
  • 1
Hình đã gửi
----------------------------------------------------------------------------------//-------------------------------------------------------------------------------------

#756 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2882 Bài viết
Điểm đánh giá: 1556 (rất tốt)

Đã gửi 10 April 2012 - 10:00 AM

I- @bác Trường Ân (Em đoán bác tên Ân)! Bác khoái thơ à? Em chỉ viết mấy câu văn vần cho vui thôi mà, chỉ lo bác Bình hiểu lầm, giận em thì buồn lắm!
II- Gõ AAn ra cái chữ Ân
Biết đâu quê bác ở gần quê em?
Bữa nào mời bác đến xem
Thịt trâu hun khói nhà em tươi hồng
S – li - ce miếng thịt mông *
View trên than hồng thơm lắm bác ơi!
Giải câu em đố dễ thôi
Gõ U – C – S… xong rồi gõ Li ….
* (Slice: lệnh cắt hình 3D)

III- Đáp án 2 câu đố (mượn ý tưởng của bác Doan Van Ha):
1)- Làm thế nào để xác định nhanh vị trí tương đối của điểm và mặt phẳng phẳng bất kỳ?
- Gõ UCS > chọn 3 > Gắn hệ tọa trục tọa độ lên mặt phẳng > chọn Point > Gõ lệnh Li > sẽ hiện ra bảng cho biết tọa của Point : Nếu Z = 0 => điểm nằm trong mặt phẳng. Nếu Z≠0 => giá trị tuyệt đối của Z chính là khoảng cách từ điểm tới mặt phẳng.
2)- Làm thế nào để xác định nhanh vị trí tương đối giữa hai đường thẳng bất kỳ trong không gian?
- Dùng lệnh F: (Command: f FILLET
Current settings: Mode = TRIM, Radius = 0.0000) > Chọn 2 đường thẳng: Nếu hai đường thẳng kéo dài cắt nhau tại một điểm => 2 đường giao nhau. Nếu 2 đường thẳng nối nhau bằng cung tròn => hai đường thẳng // với nhau. Nếu dòng command có dòng chữ cuối Lines are non coplanar => hai đường thẳng chéo nhau.

IV- Gợi ý 3 câu đố:
3)- Cho 1 mặt phẳng và 1 đoạn thẳng bất kỳ trong không gian, hãy xác định nhanh giao điểm của đoạn thẳng kéo dài với mặt phẳng?
- Dùng 2 lệnh vẽ + 1 lệnh xóa đối tượng thừa = 3 lệnh
4)- Cho 2 mặt phẳng bất kỳ trong không gian, hãy xác định nhanh giao tuyến của hai mặt phẳng?
- Dùng 3 lệnh vẽ + 1 lệnh xóa đối tượng thừa = 4 lệnh. (Trong đó có 2 lệnh phải sử dụng 2 lần)
5)- Cho 1 mặt phẳng và 1 điểm (point) bất kỳ trong không gian, hãy vẽ đường vuông góc hạ từ điểm tới mặt phẳng?
- Dùng 2 lệnh vẽ + 1 lệnh bấm chuột phụ trợ + 1 lệnh xóa đối tượng thừa = 4 lệnh.
(Nếu dùng lisp của bác Doan Văn Ha, nó sẽ cho biết trước vị trí tương đối của đường, điểm và mặt. Vẽ bằng AutoCAD ngược lại là cứ thực hiện các lệnh vẽ giao tuyến, nhận biết vị trí sau...)
Xin mời các bác tiếp tục thư giản để cùng nhau tìm ra cách giải nhanh nhất!
(Không cần lời giải cụ thể, chỉ cần kể tên lệnh và mô tả cách dựng cũng được)
Đây là File hình minh họa cho 3 câu đố: http://www.cadviet.c...37_haanh104.dwg
  • 1

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#757 Truong_AAn

Truong_AAn

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 314 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 10 April 2012 - 10:31 AM

I- @bác Trường Ân (gõ AAn = Ân)! Bác khoái thơ à? Em chỉ viết mấy câu văn vần cho vui thôi mà, chỉ lo bác Bình hiểu lầm, giận em thì buồn lắm!
II- Gõ AAn ra cái chữ Ân
Biết đâu quê bác ở gần quê em
Bữa nào mời bác đến xem
Đùi trâu hun khói của em tươi hồng
S – li - ce miếng thịt mông *
View trên than hồng thơm lắm bác ơi!
Giải câu em đố dễ thôi
Gõ U – C – S… xong rồi gõ Li ….
* (Slice: lệnh cắt hình 3D)


Công nhận pác haanh vừa bơ rô (pro) cad, có tài làm thơ lại vừa lãng ... mạng ( ko phải lãng mạng lãng tử được không nhỉ) hehe. Pác vui tính quá "baiphubaiphu" :lol:
  • 1
Hình đã gửi
----------------------------------------------------------------------------------//-------------------------------------------------------------------------------------

#758 haanh

haanh

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2882 Bài viết
Điểm đánh giá: 1556 (rất tốt)

Đã gửi 11 April 2012 - 12:24 AM

Bác Trường Ân thân mến!
Em không phải là prô priếc, cũng không phải là loãng moạng loãng miếc gì đâu nhé! Em chỉ là người vui tính, dễ hòa đồng với mọi người, sống vô tư, thanh thản, bạn bè em vẫn nhận xét về em như thế!
( Bác Trường Ân có thế xóa bớt phần trích dẫn bài viết của em trong các bài viết của bác được không? Vì có chỗ em đã sửa lại)
Quan điểm sống của em là tiết kiệm, cái gì có thể tiết kiệm được thì tiết kiệm, tiết kiệm thời gian, tiền bạc và tiết kiệm cả lệnh vẽ nữa. Có lẽ sự tiết kiệm của em do cuộc sống long đong lật đật tạo nên. Ngay từ hồi sinh viên, em đã phải đi buôn gà để kiếm tiền ăn học. Và bây giờ tất cả đồ ăn thức uống của gia đình em đều do bàn tay em tự trồng rau và nuôi gà lấy trứng … Em thấy buồn là nhiều người lại bán trứng gà đi để mua cái gọi là thuốc bổ, thật lãng phí phải không bác!
Em không phải là dân kỹ thuật, vẽ vời chỉ là nghề tay trái của em. Chồng em dạy em vẽ để phụ việc cho anh ấy. Nhà em là người xui dại em vào CADViet.com để học vẽ và em đã học được rất nhiều kiến thức trên diễn đàn này. Em cũng xin chân thành cảm ơn tất các các bác trên diễn đàn đã viết bài trao đổi và giao lưu chia sẻ với em.
Công việc của em bây giờ không dùng đến vẽ vời nữa, thỉnh thoảng nhớ CADViet, em lại vào diễn đàn viết bài cho vui thôi. Em sắp sinh cháu thứ 2 rồi, chắc còn lâu mới có thời gian vào diễn đàn để thư giãn.

Bác thích đọc thơ à ? Em xin chép cho bác xem mấy câu thơ em đã viết:
Một cái ô tô ngã ra đường
Hàng hoá bò lổm ngổm
Kẻ vô tình đi qua
Kẻ tò mò đứng lại
Kẻ gom hộ chủ xe những đồ rơi vãi
Kẻ nhặt nhạnh bỏ vào túi của mình rồi đi thẳng không nói lời cảm ơn!
Và đây là những câu thơ hay trên diễn đàn:

Có lẽ em nên kết thúc bài "diễn văn" kỷ niệm này bằng mấy câu thơ:
Em tìm anh mong được sẻ chia những “Chuyện đời thường”
Anh lại mải mê “Nhìn hình tóm chữ”
Em “Đến với bài thơ hay” mong được sẻ chia niềm tâm sự.
Gặp anh Tue_NV “Viết lisp theo yêu cầu”
Và chị Hà Anh “bể phốt” đang ở đâu?
Sao không về đây “Đố vui” cùng Autocad.
“Khi ta gửi đi hai nụ cười” ta sẽ gặp Happyfeet.…

Đáp án 2 câu đố kỳ trước:
3)- Cho 1 mặt phẳng và 1 đoạn thẳng bất kỳ trong không gian, hãy xác định nhanh giao điểm của đoạn thẳng kéo dài với mặt phẳng?
Gõ lệnh : - mirror3d > Chọn đường thẳng > Chọn 3 point bất kỳ trên mặt phẳng > được1 đường thẳng đối xứng qua mặt phẳng với đường thẳng đã cho.
-Gõ lệnh F với R=0 > Chọn 2 đường thẳng > Giao điểm của 2 đường thẳng chính là giao điểm của đường thẳng đã cho với mặt phẳng > Gõ E để xóa bớt 1 đường thẳng > Xong!
5)- Cho 1 mặt phẳng và 1 điểm (point) bất kỳ trong không gian, hãy vẽ đường vuông góc vuông góc hạ từ điểm tới mặt phẳng?
-Cách làm cũng tương tự : Gõ lệnh mirror3d….
Hình đã gửi
Câu đố tiếp theo là :
Hình ảnh vui trên là khối 3D, sau khi vẽ xong em đã Rotate 3D, không thể xuất ra các hình chiếu 2D được. Bây giờ muốn nó xoay khối 3D về vị trí vẽ ban đầu để xuất ra các hình chiếu 2D thì phải làm thế nào???
Câu đố trên là gợi ý để giải câu đố sau:
4)- Cho 2 mặt phẳng bất kỳ trong không gian, hãy xác định nhanh giao tuyến của hai mặt phẳng?
Đây là file bản vẽ: http://www.cadviet.c...nh11apr12_2.dwg
Xin mời các bác cùng thư giãn bằng hình thức giải đố cho vui!
  • 0

“Sống trong đời sống cần có một tấm lòng / Để làm gì em biết không ? / Để gió cuốn đi, để gió cuốn đi...”


#759 nvduong

nvduong

    biết vẽ line

  • Members
  • PipPip
  • 26 Bài viết
Điểm đánh giá: 6 (bình thường)

Đã gửi 11 April 2012 - 08:50 AM

Em không phải là dân kỹ thuật, vẽ vời chỉ là nghề tay trái của em. Chồng em dạy em vẽ để phụ việc cho anh ấy. Nhà em là người xui dại em vào CADViet.com để học vẽ và em đã học được rất nhiều kiến thức trên diễn đàn này. Em cũng xin chân thành cảm ơn tất các các bác trên diễn đàn đã viết bài trao đổi và giao lưu chia sẻ với em.
Công việc của em bây giờ không dùng đến vẽ vời nữa, thỉnh thoảng nhớ CADViet, em lại vào diễn đàn viết bài cho vui thôi. Em sắp sinh cháu thứ 2 rồi, chắc còn lâu mới có thời gian vào diễn đàn để thư giãn.

Có thật không vậy (?). Sao trông bạn như là nữ tu (?!)
  • 1
Happiness, like anything else in life, needs to be nurtured by all your endeavours

#760 Truong_AAn

Truong_AAn

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 314 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 11 April 2012 - 09:43 AM

Bác Trường Ân thân mến!
Em không phải là prô priếc, cũng không phải là loãng moạng loãng miếc gì đâu nhé! Em chỉ là người vui tính, dễ hòa đồng với mọi người, sống vô tư, thanh thản, bạn bè em vẫn nhận xét về em như thế!
Quan điểm sống của em là tiết kiệm, cái gì có thể tiết kiệm được thì tiết kiệm, tiết kiệm thời gian, tiền bạc và tiết kiệm cả lệnh vẽ nữa. Có lẽ sự tiết kiệm của em do cuộc sống long đong lật đật tạo nên. Ngay từ hồi sinh viên, em đã phải đi buôn gà để kiếm tiền ăn học. Và bây giờ tất cả đồ ăn thức uống của gia đình em đều do bàn tay em tự trồng rau và nuôi gà lấy trứng … Em thấy buồn là nhiều người lại bán trứng gà đi để mua cái gọi là thuốc bổ, thật lãng phí phải không bác!
Em không phải là dân kỹ thuật, vẽ vời chỉ là nghề tay trái của em. Chồng em dạy em vẽ để phụ việc cho anh ấy. Nhà em là người xui dại em vào CADViet.com để học vẽ và em đã học được rất nhiều kiến thức trên diễn đàn này. Em cũng xin chân thành cảm ơn tất các các bác trên diễn đàn đã viết bài trao đổi và giao lưu chia sẻ với em.
Công việc của em bây giờ không dùng đến vẽ vời nữa, thỉnh thoảng nhớ CADViet, em lại vào diễn đàn viết bài cho vui thôi. Em sắp sinh cháu thứ 2 rồi, chắc còn lâu mới có thời gian vào diễn đàn để thư giãn.

Đáp án 2 câu đố kỳ trước:
3)- Cho 1 mặt phẳng và 1 đoạn thẳng bất kỳ trong không gian, hãy xác định nhanh giao điểm của đoạn thẳng kéo dài với mặt phẳng?
Gõ lệnh : - mirror3d > Chọn đường thẳng > Chọn 3 point bất kỳ trên mặt phẳng > được1 đường thẳng đối xứng qua mặt phẳng với đường thẳng đã cho.
-Gõ lệnh F với R=0 > Chọn 2 đường thẳng > Giao điểm của 2 đường thẳng chính là giao điểm của đường thẳng đã cho với mặt phẳng > Gõ E để xóa bớt 1 đường thẳng > Xong!
5)- Cho 1 mặt phẳng và 1 điểm (point) bất kỳ trong không gian, hãy vẽ đường vuông góc vuông góc hạ từ điểm tới mặt phẳng?
-Cách làm cũng tương tự : Gõ lệnh mirror3d….
Hình đã gửi
Câu đố tiếp theo là :
Hình ảnh vui trên là khối 3D, sau khi vẽ xong em đã Rotate 3D, không thể xuất ra các hình chiếu 2D được. Bây giờ muốn nó xoay khối 3D về vị trí vẽ ban đầu để xuất ra các hình chiếu 2D thì phải làm thế nào???
Câu đố trên là gợi ý để giải câu đố sau:
4)- Cho 2 mặt phẳng bất kỳ trong không gian, hãy xác định nhanh giao tuyến của hai mặt phẳng?
Đây là file bản vẽ: http://www.cadviet.c...nh11apr12_2.dwg
Xin mời các bác cùng thư giãn bằng hình thức giải đố cho vui!


Nghe bác nói bác không phải rân kĩ thuật em càng phục bác hehe. Nói thật bác em rân kĩ thuật khô khan chả biết thơ thẩn gì sấc nhưng hôm nay xin được mạng phép " múa keyboar qua mắt thợ:

Được tin pác haanh sắp nghỉ sinh
Em ngồi gõ phiếm viết linh tinh
Chúc pác sinh được chàng quí tử
Năm rồng quí hóa quá pác ơi.

Thơ "cóc con" mong pác đừng cười em hehe
  • 1
Hình đã gửi
----------------------------------------------------------------------------------//-------------------------------------------------------------------------------------