Đến nội dung


Hình ảnh

Đố vui


  • Please log in to reply
1743 replies to this topic

#841 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 19 August 2012 - 08:08 PM

Đúng ra là zoom to ra thì Line và Spline nó càng hở ra chứ không phải cắt nhau. Điều này chỉ phụ thuộc chế độ "nhìn" chứ kết quả vẫn đúng, vì tại đó chỉ có 1 điểm giao, đồng thời trim vẫn được. Nếu đặt viewres càng lớn thì nhìn tốt hơn chút đỉnh.
  • 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.


#842 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 20 August 2012 - 09:46 AM

Hình đã gửi
Hình ảnh trên là em giải câu đố của chị Hà em ở trang 42
(Hai chị em em rất hợp tính nhau, riêng phần trình bầy khung tên thì lại không cùng sở thích. Em thích kiểu chữ đậm đà vững chắc. chị Hà em lại thích kiểu chữ mảnh mai như hạt ...mưa sa, luôn chấp nhận mọi rủi ro của cuộc đời có thể ập đến bất cứ lúc nào).

Cảm ơn anh Tuệ đã "bắt giò" hai chị em em:
"Zoom to lên cái Line ở dưới thấy nó cắt Spline
Zoom to lên cái Line ở trên thấy nó cắt Spline"
Đúng ra thì chẳng cần phải zoom to lên cũng thấy: "cái file dovuiha.dwg giải trật rồi đó em!" .Vì cái đường thẳng mầu xanh nó tiếp xúc tại 1 điểm và cắt spline tại 1 điểm.
Em xin được đính chính lại lần nữa là :
Cho đường spline và đoạn line có tọa độ như hình ảnh. Hãy vẽ 2 đường thẳng mầu xanh song song với đoạn thẳng line đã cho, sao cho mỗi đường thẳng đi qua 1 tiếp điểm với spline và cắt đường spline tại một điểm (như hình lời giải thử của em).
Xin mời các bác tiếp tục thư giãn!
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#843 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 20 August 2012 - 09:55 AM

Đúng ra thì chẳng cần phải zoom to lên cũng thấy "cái file dovuiha.dwg giải trật rồi đó em!" .Vì cái đường thẳng mầu xanh nó tiếp xúc với đường thẳng tại 1 điểm và cắt spline tại 1 điểm.
Em xin được đính chính lại lần chót là :
Cho đường spline và đoạn line có tọa độ như hình ảnh. Hãy vẽ 2 đường thẳng mầu xanh song song với đoạn thẳng line , sao cho mỗi đường thẳng tiếp đi qua 1 tiếp điểm và cắt đường spline tại một điểm (như hình lời giải thử của em).
Xin mời các bác tiếp tục thư giãn!

Theo tôi, chẳng cần đính chính đâu. Khái niệm tiếp xúc tại 1 điểm trong toán học luôn được hiểu là: tại điểm đó đường cong có tiếp tuyến. Còn chuyện nó cắt đường cong tại 1 hoặc nhiều điểm khác thì không quan tâm.
  • 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.


#844 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 20 August 2012 - 10:12 AM

Có điều em thắc mắc là bấm chọn vào đối tượng spline do chị Hà em vẽ , nó hiện ra 6 chấm vuông mầu xanh. Nhưng khi gõ lệnh Li để xem tọa độ điểm nó lại thông báo có 8 tọa độ điểm: Number of control points: 8
Em thử vẽ đường spline khác có hình dáng tương tự chỉ bấm lần lượt 6 điểm từ điểm đầu đến điểm cuối. chọn đối tượng spline nó cũng ra 6 chấm vuông xanh đúng như các điểm đã vẽ. Nhưng gõ LI nó cũng thông báo có 8 tọa độ điểm.
Các bác có thể giải thích cho em vì sao khi vẽ spline đi qua đếm đủ và đúng vẻn vẹn có 6 điểm, khi xem trong LI nó lại có 8 tọa độ điểm???
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#845 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 20 August 2012 - 10:49 AM

Số điểm trong lệnh LI phải căn cứ trên Number of fit points: 6, chứ không phải căn cứ trên Number of control points: 8
  • 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.


#846 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 21 August 2012 - 10:08 AM

Đá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

Bác Doan Van Ha ơi, em vừa xem đáp án bằng lisp! Em đặc biệt quan tâm đến lisp tìm giao điển giữa đường thẳngmặt phẳng. Em có một vòi vĩnh rất nho nhỏ là bác nâng cấp lisp này của bác lên một tí được không?
Lisp vẫn có chức năng chính là tìm giao điểm giữa đường thẳng và mặt phẳng nhưng đính kèm thêm chức năng bắt điểm giao của đường thẳng với các đối tượng 3D là các mặt face bất kỳ và khối solid cũng có bề mặt bất kỳ (trụ, côn, spline). Em muốn lisp có thao tác như sau: Chọn mặt face hoặc chọn khối solid > Chọn đoạn thẳng > Đoạn thẳng sẽ tự động nối dài tới giao điểm >( giống như lện Extend)
Xin bác đừng trách em là "Thanh ... Lam" (Tham lam) nhé! Với các đối tượng là 3D, xác đinh trên AutoTay hơi bị mỏi ...tay vì phải erace dọn dẹp các đối tượng thừa! Nếu bác giúp được em vụ này thì đảm bảo chắc chắn là không có gì quý hơn độc lập tự do, bác ạ!
Em chào bác, cảm ơn bác nhiều!
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#847 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 22 August 2012 - 09:33 AM

Bạn Hoan2182 ơi!
Vòi vĩnh rất nho nhỏ của bạn là nhiệm vụ bất khả thi đối với tôi rồi!
Đây là một yêu cầu mang tính thực tế cao. Dù biết vậy nhưng tôi cũng không tìm được hướng nào để giải quyết bạn ạ. Bác nào có hướng giải quyết thì chỉ giùm với.
P/S: nếu nó là 1 mặt có phương trình xác định thì may ra, chứ mặt bất kỳ thì khó quá. VD nó là mặt cầu thì có thể giải hệ phương trình dưới đây để tìm ra giao điểm:
ax+by+cz=d
x^2+y^2+z^2=R^2
  • 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.


#848 Tiendugcg

Tiendugcg

    Chưa sử dụng CAD

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

Đã gửi 22 August 2012 - 12:18 PM

Em chào bác Hoành , Em là lính mới gặp việc khó muốn nhờ bác góp í !
chả là Em không biết đã thao tác gì sai mà tự nhiên bản vẽ lại bị lỗi ... Những điểm hiển thị trên đường thẳng đang hình vuông biến thành hình chữ nhật như trong hình ảnh đính kèm !
Từ đó các đường thằng sau đó vẽ ra cũng bị tương tự , Em không dùng được các lệnh đối với những đường thẳng đó !
Em cám ơn bác đã dành thời gian đọc lời Em , rất mong sớm nhận được ý kiến của bác ...

Hình đã gửi
Untitled của Tiendugcg, trên Flickr
  • 0

#849 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 23 August 2012 - 01:04 PM

@Tiendugcg ; Nhìn cái UCS của bác đã thấy nó xiêu vẹo ba cái lăng nhăng OX-OY-OZ rồi! Bác thử gõ lệnh SPAM xem có được không? Nếu không được thử gõ PLAN xem sao???
  • 1

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#850 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 26 August 2012 - 08:30 PM

Cho đoạn thẳng AB dài 3000 Km. Hãy vẽ đường đường tròn bán kính 18mm có tâm E nằm trên đoạn thẳng AB sao cho AE= 200 mm. (Xác định điểm E cách điểm A một khoảng là 200 mm).
Một câu đố rất đơn giản nhưng để giải được cần phải có mẹo vặt, ko cần phải kẻ vẽ thêm thắt gì.
Xin mời các bác tiếp tục khởi động câu đố !
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#851 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 26 August 2012 - 09:30 PM

Cho đoạn thẳng AB dài 3000 Km. Hãy vẽ đường đường tròn bán kính 18mm có tâm E nằm trên đoạn thẳng AB sao cho AE 200 mm. (Xác định điểm E cách điểm A 200 mm).
Một câu đố rất đơn giản nhưng để giải được cần phải có mẹo vặt, ko cần phải kẻ vẽ thêm thắt gì.
Xin mời các bác tiếp tục khởi động câu đố !

Hề hề hề,
Chả biết làm thế này có trúng ý bác , à quên em, Hoan2182 không, Nhưng có nhẽ cũng dùng được.
1/- Gõ lệnh circle với option center and Radiant
2/- Chọn truy bắt điểm là extension rồi di chuột tới đầu A tới khi hiện dấu mark tại A, tiếp tục di chuột về hướng cần đặt tâm vòng tròn và gõ 200 (với điều kiện bản vẽ đang đặt ở tỷ lệ 1:1 và đơn vị sử dụng là mm) rồi enter sẽ có tâm vòng tròn.
3/- nhập bán kính vòng tròn 18 rồi enter. Nó ra cái gì thì đó là cái phải dựng.
Không tin các bác cứ thử khắc biết.
Hề hề hề,...
  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#852 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 26 August 2012 - 10:29 PM

Hình đã gửi
Hi hi hi...Cảm ơn bác Bình đã bất ngờ mang đến cho em một niềm vui khó tả :D !
Bác đã tóm trúng hồn vía của em, à quên, hồn vía của câu đố :rolleyes: :rolleyes:! Không những thế, bác còn đính kèm thêm cả: "điều kiện đơn vị sử dụng là mm" làm em không thể cãi lại bác được.
Cách làm của em là:
Gõ C > Di chuột nhanh đến điểm A > Khi nó xuất hiện ô vuông bắt điểm mầu xanh thì từ từ di chuột về điểm B với vận tốc 0,01 mm/s, mẹo di chuột của em là vừa di chuột vừa đánh võng trên đoạn thẳng AB > Khi nó xuất hiện extension thì nhập giá trị khoảng cách là một gang tay tương đương với 200 mm ...............> Xong!

Lời giải của bác chính là câu trả lời cho bài viết:

nếu vẻ 1 đường tròn chẳng hạn cách 1 điểmcho trước 1 khoảng đã biết thì có cách nào ngoài vẻ thêm 1 line để bắt end point không??? (đã biết trục của đường tròn)
thank

Và em cũng mượn hồn vía của bác Canhvn88 để ra câu đố.
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#853 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 26 August 2012 - 11:07 PM

Ketxu thì hay thế này : Circle tại A r move last đi cho nhanh. Rất ít khi thay đổi Osnap mode hoặc bắt điểm tạm ^^
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#854 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 26 August 2012 - 11:52 PM

Thói quen vẽ của em là luôn bật tất cả các chế độ bắt điểm Select All trong Object Snap On (F3) và Polar Tracking On (F10). Họa hoằn lắm em mới sử dụng Shift + Chuột phải để truy lã Mid Between 2 Points.
Ngày trước em cũng hay phải thay đổi Select All trong Object Snap On khi cần bắt điểm các đối tượng nhỏ bé li ti, có nhiều điểm khoảng cách vô cùng nhỏ, hoặc trùng nhau. Thường gặp và rất hay bị nhiễu là các đối tượng 3D vẽ trong không gian 3D Wireframe .
Bây giờ có AutoCAD đời mới nên việc thao tác thuận lợi hơn rất nhiều, thích bắt đối tượng nào được đối tượng đó, không còn thay đổi như trước nữa.

Ngay cả với việc thay đổi góc độ truy bắt Increment Angle trong Polar Angle settings, em cũng không phải thay đổi như CAD đời cũ nữa. Cài CAD đời mới ra nó mặc định là góc 90° . Em cứ để nguyên thế dùng luôn, vậy mà nó vẫn cho truy bắt nhanh các góc lẻ 1, 2, 3, 7 , 9 ....và ...đó chính là tính năng hay của CAD đời mới.
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#855 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 27 August 2012 - 05:43 AM

Cho đoạn thẳng AB dài 3000 Km. Hãy vẽ đường đường tròn bán kính 18mm có tâm E nằm trên đoạn thẳng AB sao cho AE= 200 mm. (Xác định điểm E cách điểm A một khoảng là 200 mm).
Một câu đố rất đơn giản nhưng để giải được cần phải có mẹo vặt, ko cần phải kẻ vẽ thêm thắt gì.
Xin mời các bác tiếp tục khởi động câu đố !

Có thể dùng CAL tính điểm E:
Command: _circle Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 'cal
>>>> Expression: pld(end,end,200)
>>>> Select entity for END snap: -> Pick vào A
>>>> Select entity for END snap: -> Pick vào B

Resuming CIRCLE command.
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 832069,27945,0 -> Toạ độ E

Specify radius of circle or [Diameter]: 18

Trường hợp E nằm trên đường thẳng đi qua AB và E nằm ngoài đoạn AB (AE=200) thì pld(end,end,-200)
  • 2

#856 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 29 August 2012 - 10:17 PM

Hình đã gửi
Cách làm của em hôm qua là: Offset đường trắng ra khoảng 20, được đường xanh > Vẽ đường tròn R20 > Move đường xanh ra đường vàng > Move đường tròn về vị trí cần vẽ > xong!

Tuy nhiên, có một cách vẽ khác nữa bài bản hơn, được ứng dụng nhiều trong dựng hình. Xin mời các bác thư giãn cho vui! Làm thế nào để vẽ nhanh được R20 khi đã có đường chéo 45º mầu trắng???
Nguồn câu đố ở đây:
http://www.cadviet.c...showtopic=66004
  • 1

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#857 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 30 August 2012 - 12:30 AM

Bình thường Ket vẫn copy đường trắng sang bên góc đối diện (chỗ màu vàng) , rồi Circle ttr 20 -> move về góc, hoặc fillet no trim R 20 r vẫn dựa theo đường vàng để move về góc. bản chất vẫn giống cách Hoan vẽ lúc đầu => ngồi hóng
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#858 hoan2182

hoan2182

    biết lệnh adcenter

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

Đã gửi 30 August 2012 - 12:52 AM

Copy đường trắng sang vàng vẫn bị tốn thêm 1 lệnh copy và 1 lệnh move đường tròn.
Fillet không được bác ạ, vì khoảng cách từ đường vàng đến đường trắng > (lớn hơn) khoảng cách từ đường xanh đến đường trắng = 20mm, khi Fillet cung R20 nó không chạm tới đường vàng.
  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#859 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 30 August 2012 - 06:52 AM

Offset đường trắng 40.
Vẽ Circle kiểu 3P: p1 là điểm góc, p2 và p3 thì chọn osnap là tangent. Xong!
  • 3

* 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.


#860 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 30 August 2012 - 08:23 AM

Fillet rồi move được chứ hoan, ket làm thử rồi ^^ (Chú ý chế độ Notrim) :) Cách của bác Hạ còn nhanh hơn nữa
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC