Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.

Các bài được khuyến nghị

haanh    1.587

tevdve8.jpg

1- Làm thế nào để giãn dòng vuông vắn mà nét của dòng bị giãn nhiều vẫn thanh mảnh đều như nhau như hình ảnh?

2- Vẽ nhanh 04 đường tiếp tuyến chung của hai hình ellipse bất kỳ như hình ảnh?

Xin mời các bác tiếp tục thư giãn!

@Hoan: lỡ hứa với bạn, nhưng đang bận, nên chừ mới mần xong lisp. Thằng này chơi hàng hoạt chứ không chơi lẻ tẻ vài ba em nhọc sức.

http://www.cadviet.c..._tiep_tuyen.dwg

67029_do_vui2.png


;Doan Van Ha - CADViet.com - Ngay 14/10/2012
;Muc dich: Ve cac tiep tuyen voi Curve, song song voi 1 line cho truoc.
(defun C:HA( / ent1 ent2 pd pc len1 len2 goc n m px1 kc1 px2 kc2 px3 kc3)
(if (not cal) (arxload "geomcal"))
(setq ent1 (car (entsel "\nChon duong thang: ")))
(setq ent2 (car (entsel "\nChon Curve: ")))
(setq pd (vlax-curve-getStartPoint ent2))
(setq pc (vlax-curve-getEndPoint ent2))
(setq len1 (vlax-curve-getDistAtParam ent1 (vlax-curve-getEndParam ent1)))
(setq len2 (vlax-curve-getDistAtParam ent2 (vlax-curve-getEndParam ent2)))
(setq goc (angle (setq p1 (cdr (assoc 10 (entget ent1)))) (setq p2 (cdr (assoc 11 (entget ent1))))))
(setq n 1000 m (/ len2 n) kc (- m)) ;do chinh xac 1000, co the edit so nay.
(repeat (- n 2)
 (setq px1 (GetP pd pc (setq kc (+ m kc)) ent2))
 (setq kc1 (cal "dpl(px1,p1,p2)"))
 (setq px2 (GetP pd pc (+ kc m) ent2))
 (setq kc2 (cal "dpl(px2,p1,p2)"))
 (setq px3 (GetP pd pc (+ kc m m) ent2))
 (setq kc3 (cal "dpl(px3,p1,p2)"))
 (if
  (or (and (> kc1 kc2) (> kc3 kc2)) (and (< kc1 kc2) (< kc3 kc2)))
  (entmake (list (cons 0 "LINE") (cons 10 (polar px2 goc (/ len1 2))) (cons 11 (polar px2 (+ goc pi) (/ len1 2))))))))
;----- LÊy ®iÓm p trªn Curve c¸ch pg kho¶ng c¸ch kc, víi ph lµ ®iÓm ®Þnh h­íng trªn Curve.
(defun GetP (pg ph kc cur / dg dh dp)
(setq dg (vlax-curve-getDistAtPoint cur pg))
(setq dh (vlax-curve-getDistAtPoint cur ph))
(if (> dh dg)
 (setq dp (+ dg kc))
 (setq dp (- dg kc)))
(vlax-curve-getPointAtDist cur dp))

Vẽ tiếp tuyến chung của 2 ellipse với Cad thì mất... 3 giây:

XLINE >> TAN >> TAN.

Còn với lisp thì mất... 2 giây :lol::

(Cái này gởi tặng chị Haanh của em đang về thăm quê luôn nhé!)

(defun C:HA()
(command "xline" "tan" pause "tan" pause))

Em cảm ơn bác Doan Van Ha nhiều nhé! Đúng là có chuyện không tin được dù đó là sự thật, cách làm của bác đơn giản quá:

Vẽ tiếp tuyến chung của 2 ellipse với Cad thì mất... 3 giây:

XLINE >> TAN >> TAN.

, thế mà em cứ phải loay hoay và trăn trở hàng năm trời mới tìm ra được cách làm là dùng các phép biến đổi rồi Extrude hình e-líp thành hình 3D rất dài dòng văn tự mới vẽ được tiếp tuyến chung giữa 2 hình e-líp!

Thân tặng bác Doan Van Ha câu chuyện sau:

"Vua Charles II của nước Anh đã có lần hỏi các thành viên của Hội Đồng Hoàng Gia tại sao nếu bỏ một con cá đã chết vào cái bát thì làm cho nước tràn ra, trong khi nếu đó là con cá còn sống thì nước lại không tràn. Các thành viên của Hội Đồng đã suy nghĩ rất lâu, một số người đã có lời giải thích nhưng không thực sự thuyết phục. Cuối cùng một thành viên của Hội Đồng đã quyết định làm thí nghiệm về vấn đề này. Ông này đã phát hiện ra rằng không có sự khác nhau nào đáng kể khi đặt một con cá sống hay một con cá chết vào bát nước.

Cho dù câu chuyện trên đây có thực sự đúng hay không thì nó cũng chứa đựng một bài học quan trọng. Trước khi cố tìm ra giải đáp cho một vấn đề chúng ta nên đặt ra những nghi vấn cho vấn đề đó. Mọi vấn đề đều chứa đựng những giả thiết phù hợp cho những câu trả lời được tìm ra, và đôi khi những giả thiết đó cũng dẫn đến những cách lập luận sai lầm...."

Kết luận: Trước khi cố tìm ra giải đáp cho một vấn đề chúng ta nên đặt ra những nghi vấn cho vấn đề đó!

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Hoan1111    694

6e32fd58739d039b08cacd067dcf678f_52855188.adad701.png

 

Trên hình ảnh là hai kiểm Dim khác nhau, khi phóng to lên 2 lần muốn kích thước không đổi ta phải đặt kiểu Dim có Scale Factor = 0.5

Thông thường khi kiểm tra bản vẽ lần cuối để in ta mới phát hiện ra kích thước còn thiếu. Muốn ghi thêm kích thước bắt buộc phải thay đổi kiểu Dim để ghi

Nếu bản vẽ có nhiều kiểu Dim khác nhau và nhiều kích thước còn thiếu, việc ghi thêm sẽ mất nhiều thời gian...

Làm thế nào để ghi nhanh các kích thước còn thiếu trên bản vẽ có nhiều kiểu Dim khác nhau mà không cần phải thay đổi kiểu Dim???

Xin mời các bác tiếp tục thư giãn có thể dùng lisp cũng được.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Hoan1111    694

ghi đã đời ---> MA, đảm bảo yêu câù ko thđôỉ kiêủ dim :)

Anh Hiepttr dẫm phải ...mìn em thả ở ngoài bãi ...cỏ rồi kìa :rolleyes: :rolleyes: :rolleyes: ! Ghi một loạt kích thước có kiểu Dim hiện hành sau đó dùng Ma quét chọn có nhược điểm là:

1/ Nếu có ít kiểu Dim sẽ tốn thời gian

2/ Nếu nhiều kiểu Dim rất dễ nhầm lẫn, Ma... quét chọn thừa hoặc thiếu rất nguy hiểm...

Em Hoằn dùng một lệnh duy nhất: gõ lệnh (... ) >> chọn Dim đã ghi >> Chọn đối tượng cần ghi thêm... > ....Xong!

Xin mời các bác cùng thư giãn, í em quên, chỉ có AutoCAD2011 trở lên mới có lệnh (... ) này!

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.653

Lệnh của Hoằn đề cập k những chỉ Dim mà còn rất nhiều đối tượng khác. Cơ chế làm việc là kiểm tra loại đối tượng -> command tương ứng, cộng với việc kế thừa toàn bộ thuộc tính của đối tượng đó. Lệnh này rất hay, và nên gán phím tắt với những người ... lười (muốn nhanh ^^)

ADDSELECTED

Còn Lisp thì ketxu cũng đã post, bạn nào chưa dùng CAD đời cao có thể lấy xài ở đây

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Hoan1111    694

Lệnh của Hoằn đề cập k những chỉ Dim mà còn rất nhiều đối tượng khác. Cơ chế làm việc là kiểm tra loại đối tượng -> command tương ứng, cộng với việc kế thừa toàn bộ thuộc tính của đối tượng đó. Lệnh này rất hay, và nên gán phím tắt với những người ... lười (muốn nhanh ^^)

ADDSELECTED

Còn Lisp thì ketxu cũng đã post, bạn nào chưa dùng CAD đời cao có thể lấy xài ở đây

Đúng là lệnh ADDSELECTED "đề cập k những chỉ Dim mà còn rất nhiều đối tượng khác" anh ạ! Lệnh này, thay vì phải gõ Pol, Spl...chỉ cần gõ lệnh tắt ADD rất lợi ... hại , vì phím A gần phím D. (Năng suất chỉnh sửa file bản vẽ của người ...lười đã vẽ và chỉnh sửa file bản của người không... lười, nhanh hơn đáng kể....)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.653

Tiếc là mình đã ứng dụng từ .. rất lâu rồi, mà autodesk nhận ra quá chậm ^^

@Hoằn : nếu đã định dùng thì k nên để ADD ^^

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.653

Nó ảnh hưởng đến việc dùng Unikey, vietkey thôi, và nó cũng không ngắn lắm. Nếu đặt mình sẽ đặt là 1, hoặc q, hoặc j j đó 1 phát ăn ngay ^^

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

Hề hề hề,

Góp vui một chút. Hãy thử sức với bài toán sau:

Dựng một tam giác ABC với các điều kiện :

1/- Biết đỉnh A

2/- Biết đường thẳng chứa trung tuyến BM (chưa xác định được vị trí đỉnh B và điểm M)

3/- Biết đường thẳng chứa phân giác trong CD (chưa xác định đỉnh C và chân đường phân giác D)

Mở rộng bài toán :

1/- Hãy biện luận để xác định điều kiện tồn tại tam giác.

2/- CD là phân giác ngoài của tam giác.

 

Đây là bài toán của học sinh lớp 10 phổ thông nhưng có nhẽ các kỹ sư cũng nên biết vì có khá nhiều ứng dụng thực tiễn đó.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

Copy >> Line >> Mirror

Từ đó dễ dàng biện luận và mở rộng.

67029_ve_tam_giac.png

Hề hề hề,

Chuẩn không phải chỉnh. Song câu trả lời của bác chắc còn nhiều người chưa luận ra.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Hoan1111    694

Trên file bản vẽ có sẵn hình Ellips có bán trụ ngắn bằng 1/4 bán trụ dài.

Hãy vẽ thêm hình Ellips nhỏ sao cho diện tích của nó bằng 1/4 diện tích hình Ellips đã cho ?

Xin mời các bác tiếp tục thư giãn!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Hoan1111    694

Copy >> Scale (0.5)

Nếu áp dụng theo cách chơi của Chiếc nón kỳ diệu trên VTV3 thì đáp án của anh Hà đúng. Nhưng rất tiếc là "ô chữ"

của em chỉ có tên một lệnh.

Xin mời các bác tiếp tục thư giãn!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

Với bài toán trên em nghĩ anh Hà chỉ cần nói vắn tắt như thế là ngon rồi!

hề hề hề,

Người khôn ăn nói nửa chừng

Để cho thằng dại nửa mừng nửa lo.......

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
mat_bun    6

e thấy các bác nói đều đúng cả rùi nhưng e xin mạo muội đoán dùng lệnh ellipse để vẽ nhưng với điều kiện biết trước bán trục đứng và trục ngang hoặc đường dóng đường kính của ellips có sẵn, vid e nghĩ bác Hoằn cho dữ kiện 1/4 chắc phải có lý do,hì hì, có gì mong các bác chỉ bảo thêm :D

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
nhoclangbat    382

Trên file bản vẽ có sẵn hình Ellips có bán trụ ngắn bằng 1/4 bán trụ dài.

Hãy vẽ thêm hình Ellips nhỏ sao cho diện tích của nó bằng 1/4 diện tích hình Ellips đã cho ?

Xin mời các bác tiếp tục thư giãn!

nhoc xin giải đố theo cách rất chi là thổ rân, phương pháp học theo câu đố cũ của chị Hoằn cho nhoc vẽ 3 vòng tròn nằm trong tam giác đều :D

pollar tracking>> additional angles >>> thêm 3 góc : 26.5651 , 153.4349 , 172.8750 >>> vẽ ngon lành elisp :D :D :D

PS: hahaha cái nì có bị xem là ăn gian ko nhỉ tính toán dữ lém đó ^^ nhưng >>>>> chỉ dùng 1 lệnh elisp, và ko phải dùng thêm tính năng mở rộng trong các lệnh :D

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
phamthanhbinh    3.123

Trên file bản vẽ có sẵn hình Ellips có bán trụ ngắn bằng 1/4 bán trụ dài.

Hãy vẽ thêm hình Ellips nhỏ sao cho diện tích của nó bằng 1/4 diện tích hình Ellips đã cho ?

Xin mời các bác tiếp tục thư giãn!

Hề hề hề,

Đề bài chưa hoàn chỉnh và sẽ không có câu trả lời chính xác bởi vì elip có hai bán trục và nếu chỉ có một thông số là diện tích bằng 1/4 diện tíc elip cũ thì có thể có tới hàng ngàn elip với các tỷ số giữa 2 bán trục e lip đó khác nhau. Nếu là elip đồng dạng thì có thể dùng lệnh scale với tỷ lệ 1/2 hay dùng như bác DoanVanHa cững ổn. Chú nhóc sáng tạo ra cách vẽ nhờ vào việc tính toán hai bán trục nhưng như vậy dộ chính xác của hình sẽ có vấn đề bự bởi thông thường thì các giá trị căn thức sẽ là số vô tỷ và ngay với cách này nếu chú chọn các tỷ số giữa hai bán trục khác với của elip cũ thì cũng sẽ cho vô số nghiệm.

Hề hề hề, mong rằng bác Hoan2182 sẽ ngâm cứu lại.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Hoan1111    694

1/@Anh Bình: Phải biện của anh rất có lý! Nếu em cho là dùng một lệnh duy nhất thì sự việc chắc là sẽ khác…câu đố sẽ tẻ nhạt …Thế mới gọi là đố vui !

 

Kết quả là anh Hà tìm ra lệnh Mocoro trong CAD đời cũ và anh Ketxu tìm ra chức năng Copy của lệnh Scale trong CAD đời mới.

- Câu đố trên cũng giống như lệnh ADDSELECTED trong câu đố ở trang 48, dùng lisp của anh Ketxu cho CAD đời cũ và lệnh tắt ADD trong CAD đời mới. “Cơ chế làm việc là kiểm tra loại đối tượng -> command tương ứng, cộng với việc kế thừa toàn bộ thuộc tính của đối tượng đó. Lệnh này rất hay, và nên gán phím tắt với những người … lười (muốn nhanh ^^)” (Anh Ketxu đã viết)

 

2/@ mat_bun :Thực ra nội dung chính bài toán là cho trước Ellips có hai bán trục bất kỳ, chiều dài các bán trục có thể là số chẵn hoặc số thập phân >> Dựng thêm Ellips bất kỳ nhỏ hơn hoặc lớn Ellips đã cho bằng một lệnh duy nhất. Em đã cố tình đưa con số dữ liệu bán trục nhỏ bằng 1/ 4 bán trục lớn vào cho …hoành tráng! (Đây là trường hợp đặc biệt...)

 

3/ @ Nhóc: Giải bài toán vẽ 3 vòng tròn tiếp xúc nhau và tiếp xúc với các cạnh của tam giác đều, không phải tính toán và kẻ thêm đường gì, chỉ dùng lệnh Circle + các lệnh biến đổi + bắt điểm Polar Tracking. (Bài toán có 2 nghiệm, đã có lời giải của chị Haanh trong chủ đề này).

 

- Bài toán này, vẽ được bằng lệnh EL ngon lành, không cần phải tính toán ra bán trục đâu nhé!

- Cho trước hình Ellips có 2 bán trục bất kỳ. Hãy vẽ thêm một hình Ellips đồng tâm- và có diện tích nhỏ bằng 1/4 diện tích hình Ellips -đã cho. Nhóc thử vẽ xem sao???

Command: el

ELLIPSE

Specify axis endpoint of ellipse or [Arc/Center]:

Specify other endpoint of axis:

Tiếp tục….???

 

@ Anh Hiệp: anh thử giải câu đố này xem sao???

Xe khách khởi hành từ Hà Nội lên Lạng Sơn. Dọc đường đi bác lái xe liên tục dừng đỗ để đón, trả khách.

Lần một có 1 khách lên 3 khách xuống; lần hai có 5 khách lên 2 khách xuống; lần ba có 4 khách lên 5 khách xuống; lần bốn có 13 khách lên 2 khách xuống; lần năm có 1 khách lên 9 khách xuống; lần sáu có 7 khách lên 2 khách xuống; lần tám có 4 khách lên 3 khách xuống; lần chín có 5 khách lên 2 khách xuống; Lần mười có 8 khách lên 1. Hỏi bác lái xe bấm còi mấy lấn???

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×