Đến nội dung


Hình ảnh

[Trân trọng kính mời] VIẾT LISP CHO DÂN CƠ KHÍ!


  • Please log in to reply
459 replies to this topic

#1 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 17 October 2012 - 11:23 PM

DỰ ÁN P1

I)- Tên đề tài- mã số- nguồn:
- Tên đề tài : NGHIÊN CỨU KHOA HỌC CÔNG NGHỆ VÀ MÔI TRƯỜNG : VIẾT LISP GHI DUNG SAI KÍCH THƯỚC
- Mã số: CADVIET.COM . 000 000 000 000 000 001
- Nguồn đề tài :http://www.cadviet.c...=0

 


  • 4

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

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


#2 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 18 October 2012 - 11:22 AM

Hình đã gửi1) Miền dung sai nó giới hạn trong các khoảng:
-Kích thước danh nghĩa từ 3 -:- 6 dung sai là +0.012

-Kích thước danh nghĩa từ 30 -:- 50 dung sai là +0.021

-Kích thước danh nghĩa từ 120-:- 180 dung sai là +0.040

Hình đã gửi

(Xin lỗi em ghi nhần kích thước chiều cao thành 62+0.030^ = Ø62+0.030^ , do em đặt kiểm Dim ghi luôn ra Ø, không phải edit %%C)
2) Sau khi gõ lệnh của Lisp là H7... đo các kích thước trên nó sẽ tự động tra dung sai
2)Em hỏi các bác là không biết là Lisp có thực hiện được công việc trên không ???
  • 2

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

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


#3 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 18 October 2012 - 01:12 PM

1) Miền dung sai nó giới hạn trong các khoảng:
-Kích thước danh nghĩa từ 3 -:- 6 dung sai là +0.012

-Kích thước danh nghĩa từ 30 -:- 50 dung sai là +0.021

-Kích thước danh nghĩa từ 120-:- 180 dung sai là +0.040

(Xin lỗi em ghi nhần kích thước chiều cao thành 62+0.030^ = Ø62+0.030^ , do em đặt kiểm Dim ghi luôn ra Ø, không phải edit %%C)
2) Sau khi gõ lệnh của Lisp là H7... đo các kích thước trên nó sẽ tự động tra dung sai
2)Em hỏi các bác là không biết là Lisp có thực hiện được công việc trên không ???

Câu trả lời là : được
Để lúc rãnh rỗi mới đầu tư, anh làm cho, giờ bận quá, biết Lisp làm được cái này, anh trả lời em là Lisp làm được trước cái đã
Hề, hề
  • 3

#4 anhvanyeuem

anhvanyeuem

    HÀ TĨNH CHÍNH GỐC 38!

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 764 Bài viết
Điểm đánh giá: 473 (tốt)

Đã gửi 18 October 2012 - 01:59 PM

Dữ liệu cung cấp cho dự án:
1.Bản gốc : Dung sai lắp ghếp và kỹ thuật đo lường do PGS.TS Ninh Đức Tốn sạon thảo:
http://www.mediafire...0o7a9p5kvkrh378
2. Đây là phần phục lục các miền dung sai nói trên:
http://www.mediafire...m7l1949el2va7gx
Nếu bên phía chủ đầu tư có thắc mắc gì liên quan đến dữ liệu xin gửi về phòng chuyên đề:
Hội những nguời yêu kỹ thuật chân chính.
  • 2

Hội những người yêu kỹ thuật chân chính


#5 ducdhbk

ducdhbk

    biết zoom

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

Đã gửi 18 October 2012 - 02:24 PM

Nhiệt liệt hoan nghênh các chủ đầu tư tham gia đầu tư cho Hạng mục này!
Hoan hô các bác Cơ Khí và các bác Xây Dựng!
Để em làm lễ cắt băng khánh thành : Ngày 18/10/2012 khánh thành!
Kính mời các bác đến tại nhà em số nhà 99 - Phố hàm lượn tìm đường Mất Hút- Trảng Bom- Đồng Nai để cùng chén chú chén anh!
Cảm ơn các bác!
  • 0

#6 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 18 October 2012 - 02:42 PM

You have reached your quota of positive votes for the day!
Thật là vui khi bác em là cộng sự cho chủ nhiệm công trình đã hoàn thành xuất sắc nhiệm vụ.
Bác em anhvanyeuem sẽ nhận thêm nhiệm vụ nữa là thành viên của hội đồng phản biện giúp chủ nhiệm đề tài nhé!
  • 0

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

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


#7 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 18 October 2012 - 03:11 PM

Hình đã gửi1) Miền dung sai nó giới hạn trong các khoảng:
-Kích thước danh nghĩa từ 3 -:- 6 dung sai là +0.012

-Kích thước danh nghĩa từ 30 -:- 50 dung sai là +0.021

-Kích thước danh nghĩa từ 120-:- 180 dung sai là +0.040

Hình đã gửi

(Xin lỗi em ghi nhần kích thước chiều cao thành 62+0.030^ = Ø62+0.030^ , do em đặt kiểm Dim ghi luôn ra Ø, không phải edit %%C)
2) Sau khi gõ lệnh của Lisp là H7... đo các kích thước trên nó sẽ tự động tra dung sai
2)Em hỏi các bác là không biết là Lisp có thực hiện được công việc trên không ???

"Nhà đầu tư" xin hỏi mấy ý :
Kích thước danh nghĩa Có phải là kích thước thực của dim không?
Chưa hiểu chổ :
-Kích thước danh nghĩa từ 3 -:- 6 dung sai là +0.012

-Kích thước danh nghĩa từ 30 -:- 50 dung sai là +0.021

-Kích thước danh nghĩa từ 120-:- 180 dung sai là +0.040


Từ bảng trên , tại sao khi kích thước danh nghĩa -> lại có dung sai như vậy???

Hoan giải thích kỹ tí nhé
  • 2

#8 anhvanyeuem

anhvanyeuem

    HÀ TĨNH CHÍNH GỐC 38!

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 764 Bài viết
Điểm đánh giá: 473 (tốt)

Đã gửi 18 October 2012 - 03:17 PM

Chào anh Tuệ:
1. Đó là kích thước thực của chi tiết đó ạ!
2. Kích thước danh nghĩa từ 0->3 dung sai là +0.010
Có nghĩa là với đường kính danh nghĩa từ 0-> 3 ta có sai lệch trên của nó là: +0.010 anh ạ.
Sai lệch dưới bằng 0 nên không cần ghi cũng được!
Với các đường kính khác tương tự như trên.
3. Từ bảng trên , tại sao khi kích thước danh nghĩa -> lại có dung sai như vậy???
Cái này gọi là Tiêu chuẩn hoá!
  • 1

Hội những người yêu kỹ thuật chân chính


#9 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 18 October 2012 - 03:23 PM

"Nhà đầu tư" xin hỏi mấy ý :
Kích thước danh nghĩa Có phải là kích thước thực của dim không?
Chưa hiểu chổ :
-Kích thước danh nghĩa từ 3 -:- 6 dung sai là +0.012

-Kích thước danh nghĩa từ 30 -:- 50 dung sai là +0.021

-Kích thước danh nghĩa từ 120-:- 180 dung sai là +0.040

Từ bảng trên , tại sao khi kích thước danh nghĩa -> lại có dung sai như vậy???

Hoan giải thích kỹ tí nhé

Là kích thước thực của chi tiết anh ạ, ví dụ khi em vẽ chi tiết lỗ đó, em đặt kiểu có chữ Ø mặc định sẵn trước các kích thước thực theo mm chưa có dung sai ) Nhiệm vụ của Lisp là cũng ghi kich thước như nhưng kích thước có đính kèm dung sai. Mình không phải mất công tra dung sai rồi edit vào dim anh ạ.
Anh chờ một chút em sẽ gửi file bản vẽ lên! Em cảm ơn anh nhiều!
  • 0

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

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


#10 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 18 October 2012 - 03:32 PM

Chào anh Tuệ:
1. Đó là kích thước thực của chi tiết đó ạ!
2. Kích thước danh nghĩa từ 0->3 dung sai là +0.010
Có nghĩa là với đường kính danh nghĩa từ 0-> 3 ta có sai lệch trên của nó là: +0.010 anh ạ.
Sai lệch dưới bằng 0 nên không cần ghi cũng được!
Với các đường kính khác tương tự như trên.
3. Từ bảng trên , tại sao khi kích thước danh nghĩa -> lại có dung sai như vậy???
Cái này gọi là Tiêu chuẩn hoá!

Vậy thì :
-Kích thước danh nghĩa từ 30 -:- 50 dung sai là +0.021 -> Hoan ghi sai, phải là +0.025 mới đúng?
Cho hỏi thêm H trong hình vẽ trên là gì? Được hiểu như thế nào?
Hoan có bảng trên bằng file txt thì cho xin luôn để có cơ sở để các Nhà đầu tư mần Lisp
  • 2

#11 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 18 October 2012 - 03:39 PM

Vậy thì :
-Kích thước danh nghĩa từ 30 -:- 50 dung sai là +0.021 -> Hoan ghi sai, phải là +0.025 mới đúng?
Cho hỏi thêm H trong hình vẽ trên là gì? Được hiểu như thế nào?
Hoan có bảng trên bằng file txt thì cho xin luôn để có cơ sở để các Nhà đầu tư mần Lisp

Vâng đúng rồi ạ! Em nhìn nhầm dòng. H là ký hiệu là miền dung sai của lỗ, để em gửi hình ảnh minh họa ngay trong bài viết này nhé và em sẽ gửi file bản vẽ lên trình bầy cụ thể hơn, em xin lỗi về sự chuẩn bị hơi bị ẩu của em!
Hình đã gửi

Hình đã gửi



File bản vẽ:

http://www.cadviet.c...8_hoan_lisp.dwg
  • 1

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

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


#12 Hantinhsaycad

Hantinhsaycad

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 1073 Bài viết
Điểm đánh giá: 376 (khá)

Đã gửi 18 October 2012 - 03:48 PM

Chương trình khoa học công nghệ : dự án 1
Là một dự án có tiềm năng rất lớn Ban tổ chức chương trình cà ngày hôm nay đã làm việc liên tục không mệt mỏi . Khách tham quan tham gia chương trình từ lúc khai mạc đến thời điểm này lên tới 257.. và hiện giờ máy tính điện tử đang và nhảy liên tục
Tham gia dự án có rất nhiều nhà khoa học ,có nhiều nhà học vị và học hàm rất cao., mà hiện giờ AUTOLISP THỰC NGHIỆM đang chạy ứng dụng kiểm tra dung sai các báo cáo của các chuyên gia và cả cộng sự :Hoan2182 .anhvanyeuem.ducdhbk......
MỌI THÔNG TIN CHI TIẾP ĐĂNG TRÊN TỜ :

VÀO NGÀY CUỐI TUẦN
  • 0

Đừng để một ai chẳng nhận được gì khi rời chỗ bạn, cho dù bạn biết rằng không bao giờ gặp lại.

Ngạn ngữ Pháp


#13 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 18 October 2012 - 04:17 PM

Anh Tuệ ơi ! Em đã gửi file bản vẽ lên bài trên rồi, em sẽ gửi tài liệu lên bài viết này sau:
Tham khảo ảnh khái niệm về dung sai:
http://www.cadviet.c...v__dung_sai.rar

Vấn đề bây giờ là bác em anhvanyeuem phải kiếm tài liệu : {Tài liệu Microsoft Word Document (.doc), Microsoft Excel Worksheet (.xls) hoặc pdf nhờ anh Hai Lúa chuyển sang AutoCAD (.dwg)}
  • 1

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

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


#14 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 18 October 2012 - 06:31 PM


(defun C:H7( / ass ss elst len dsai suff exdata)
(setq ass (list '(0 3 0.010) '(3 6 0.012) '(6 10 0.015) '(10 18 0.018) '(18 30 0.021) '(30 50 0.025) '(50 80 0.030)
'(80 120 0.035) '(120 180 0.040) '(180 250 0.046) '(250 315 0.052) '(315 400 0.057)))
(regapp "ACAD")
(princ "\nChon cac Dim can ghi dung sai...")
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(setq elst (entget ent))
(setq len (cdr (assoc 42 elst)))
(foreach n ass
(if (and (> len (car n)) (<= len (cadr n)))
(setq dsai (caddr n))))
(if dsai
(progn
(setq suff (strcat "\\C5;\\H0.5X;\\S+" (rtos dsai 2 3) "^" "-0.0;"))
(setq exdata (list (list -3 (cons "ACAD" (list (cons 1000 "DSTYLE") (cons 1002 "{") (cons 1070 3) (cons 1000 suff) (cons 1002 "}"))))))
(setq elst (append elst exdata))
(entmod elst)
(entmod (subst (cons 1 (strcat "%%C<>" (cdr (assoc 1 elst)))) (assoc 1 elst) elst)))))))
(princ))

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


#15 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 18 October 2012 - 06:42 PM

Dự án P1 đã hoàn thành! Kiểu này chắc kiếm khẳm "Like This" của dân Cơ khí rồi! :lol: :lol: :lol:
Hội đồng xem có góp ý gì không để tại hạ đáp ứng.


(defun C:H7( / ass ss entlst elst len dsai suff data exdata)
(setq ass (list '(0 3 0.0010) '(3 6 0.0012) '(6 10 0.0015) '(10 18 0.0018) '(18 30 0.0021) '(30 50 0.0025) '(50 80 0.0030)
'(80 120 0.0035) '(120 180 0.0040) '(180 250 0.0046) '(250 315 0.0052) '(315 400 0.0057)))
(regapp (setq appName "ACAD"))
(princ "\nChon cac Dim can ghi dung sai...")
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn
(setq entlst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(foreach ent entlst
(setq elst (entget ent))
(setq len (cdr (assoc 42 elst)))
(foreach n ass
(if (and (> len (car n)) (<= len (cadr n)))
(setq dsai (caddr n))))
(setq suff (strcat "\\C5;\\H0.5X;\\S+" (rtos dsai 2 4) "^;"))
(setq data (list (cons 1000 "DSTYLE") (cons 1002 "{") (cons 1070 3) (cons 1000 suff) (cons 1002 "}")))
(setq exdata (list (list -3 (cons appName Data))))
(setq elst (append elst exdata))
(entmod elst))))
(princ))

Chưa xong đâu bác!
Cả "một khẳm H" đang chờ. hờ hờ
  • 3

#16 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 18 October 2012 - 06:46 PM

Chưa xong đâu bác!
Cả "một khẳm H" đang chờ. hờ hờ

Đề toán của Hoan chỉ với H=7 thôi (nên gọi là lệnh H7). Chứ thêm các H khác thì chuyện nhỏ thôi mà. Để xem các anh cơ khi có y/c thêm không đã.
  • 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.


#17 anhvanyeuem

anhvanyeuem

    HÀ TĨNH CHÍNH GỐC 38!

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 764 Bài viết
Điểm đánh giá: 473 (tốt)

Đã gửi 18 October 2012 - 08:05 PM

Đề toán của Hoan chỉ với H=7 thôi (nên gọi là lệnh H7). Chứ thêm các H khác thì chuyện nhỏ thôi mà. Để xem các anh cơ khi có y/c thêm không đã.

Trước tiên cảm ơn bác Hà đã nhiệt tình than gia!
Sau khi Load Lisp H7 cảu bác về có mấy vấn đề em cần trao đổi với bác như sau:
1. Về tính logic của bài toán đã có rồi, có nghĩa là nó đã hiểu với giá trị nào của kích thước chi tiết tương ứng với giá trị dung sai tương ứng trong bảng.
Nhưng về mặt hình thức thì chưa được lắm bác ạ! Vì:
A. Dung sai (sai lệch trên (+) thể hiện là nằm ở vị trí bên phải trên đầu kích thước, sai lệch dưới (-) ở phía dướ chân bên phải kích thước chi tiết),Hình đã gửi

--> Chĩnh sữa cho em cái vị trí của các sai lệch nhé.
Nó được như thế là Tuyệt cú mèo:
Hình đã gửi
B. Sai lệch lặp lại 2 lần trong khi đo và xuất hiện dấu <> trong khi ghi thì chưa ổn bác ạ!
C. Như ý anh Tuệ đã nói, nó là cả 1 Khối chứ không riêng là hệ thống sai lệch lỗ H7.
còn có nhiều nhiều Bác down bản file. pdf của em ở trên sẽ biết (Link2 nhé).
Nếu chỉ là H7 thì như thế đã không triệu tập Hội Nghị to như vậy.hihhi!
D. Em đang dow phần mềm đổi đuôi sang word , lần trwocs em dùng Nitro mà đã xóa mất.
Các bác đợi em tý nhé!
Cảm ơn các bác nhiều!
  • 0

Hội những người yêu kỹ thuật chân chính


#18 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 18 October 2012 - 08:20 PM

1). Tại mấy bạn ra đề là chỉ ghi dung sai "+" => tôi đã sửa để thêm "-".
2). Tôi test không lỗi. Phiền bạn gởi bản vẽ bị lỗi lên để tôi kiểm tra.
3). H7 là do Hoan thôi. Kỹ luật ngay. Bạn cố gắng chuyển qua *.doc hay *.txt để tôi lấy dữ liệu, chứ nhập hết bảng chắc ngứa con mắt bên phải + đỏ con mắt bên trái.
  • 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.


#19 anhvanyeuem

anhvanyeuem

    HÀ TĨNH CHÍNH GỐC 38!

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 764 Bài viết
Điểm đánh giá: 473 (tốt)

Đã gửi 18 October 2012 - 08:38 PM

Vâng đây rồi ạ!
File.doc chính hãng đây ạ:
1. http://www.mediafire...e6qu8k7dwnam7iz
Nhân tiện cung cấp các bác phần mềm chuyển file. pdf sang Word khá nhẹ và đễ sử dụng :
Phần mềm: PDF to Word Converter 3.0
2. http://www.mediafire.com/?9bmdzlmiiou
3.Dung sai dưới (-) sẽ có ở các kiểu lắp ghép khác, ở kiêu H7 thì không cần sai lệch dưới cũng được vì nó =0.
Bản vẽ em lấy ngay bản vẽ của bác Hoan rồi thử thôi ạ!
4. Kỷ luật bác ấy thì tội nghiệp bác ấy lắm, chắc hôm nay vui quá bác ấy sót sót tý. Kỷ luật là cho bác ấy nghỉ tối hôm nay.
  • 1

Hội những người yêu kỹ thuật chân chính


#20 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 18 October 2012 - 08:47 PM

Oa! Tưởng doc là word tường minh gồm các ký tự, ai dè cũng là image, thì cũng như pdf thôi.
Cái này chắc phải nhờ các KS cơ khí, mắt chuyên dòm những chỗ nhỏ, ghi lại thôi???
Mà chỉ tính cho loại H thôi, hay tất cả?
Nếu chỉ với các loại H thôi thì dựa vào lisp này mọi người cũng có thể tạo thành các lisp: H1, H2,... H17. Chỉ sửa chỗ (setq ass...) 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.