Đến nội dung


Hình ảnh
- - - - -

Nhờ các bác viết giùm em lisp vẽ nét cắt vật thể


  • Please log in to reply
11 replies to this topic

#1 biendong123

biendong123

    biết pan

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

Đã gửi 13 May 2014 - 10:54 AM

Em chào các bác trên diễn đàn, em có yêu cầu này nhờ các bác giúp em ạ.

các bác viết giùm em lisp vẽ nét cắt vật thể (em tìm trên mạng có lisp nhưng không đúng với ý của em). các bác xem bản vẽ dưới đây để rõ hơn ah.

Em cảm ơn

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

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


  • 0

#2 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 13 May 2014 - 11:46 AM

Em chào các bác trên diễn đàn, em có yêu cầu này nhờ các bác giúp em ạ.

các bác viết giùm em lisp vẽ nét cắt vật thể (em tìm trên mạng có lisp nhưng không đúng với ý của em). các bác xem bản vẽ dưới đây để rõ hơn ah.

Em cảm ơn

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

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

Hề hề hề,

Xài thử món đồ chơi này xem đã vừa ý chưa nhé. Nếu chưa thì nhờ mấy anh bạn Tàu giúp đỡ hè.

 

http://www.4shared.c...a/venetcat.html


  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 13 May 2014 - 12:49 PM

Dạo này thấy diễn đàn thật lắm bài chéo ngoe :)

 

:) :) :)

Dòm 2 chữ chéo ngoe của bác Ketxu em lại chợt nhớ câu thơ của cụ Bút Tre:

 

Kể từ khi có Bút Tre

Câu thơ cứ bị chéo ngoe cẳng ...ngồng (ngỗng)

Bây giờ trong cõi tiếu lâm

Mấy ai tiếng nổi bằng ông Bút ...Trè!


  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#4 biendong123

biendong123

    biết pan

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

Đã gửi 13 May 2014 - 01:24 PM

Hề hề hề,

Xài thử món đồ chơi này xem đã vừa ý chưa nhé. Nếu chưa thì nhờ mấy anh bạn Tàu giúp đỡ hè.

 

http://www.4shared.c...a/venetcat.html

Thank bác nhưng em thấy file .exe nên không cài (sợ xung đột với một số lisp và lệnh trên may em)

Các bác viết hộ em lisp mới với ý của em được ko ạ?


  • 0

#5 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 13 May 2014 - 01:58 PM

Hề hề hề,

Bạn đã down về chưa mà bảo nó là file exe. Mình viết lisp và gửi qua trang 4 share. Chả có nhẽ trang này lại biến file lsp thành exe ư?????

Quái lạ, quái lạ, quái quái ...... lạ.......


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 biendong123

biendong123

    biết pan

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

Đã gửi 13 May 2014 - 02:42 PM

Hề hề hề,

Bạn đã down về chưa mà bảo nó là file exe. Mình viết lisp và gửi qua trang 4 share. Chả có nhẽ trang này lại biến file lsp thành exe ư?????

Quái lạ, quái lạ, quái quái ...... lạ.......

Đây bác ạ???131161_nc_1.png


  • 0

#7 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 13 May 2014 - 03:14 PM

Đây bác ạ???

Hề hề hề,

Hãy kiểm tra lại máy của bạn. Có thể bị nhiễm vi rus chi chi đó rồi đấy.

File lisp  mình gửi trên 4 share vẫn còn nguyên cơ mà. Dung lượng của file là 626 bytes chớ không phải cái file vêntcat.exe của bạn đâu, nó chứa tới 529 KB.

Hãy xem hình ảnh của trang 4share lưu file mình gửi dưới đây để kiểm chứng nhé.

5194_4share.jpg


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#8 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 13 May 2014 - 03:21 PM

Đây bác ạ???

Hề hề hề,

Bạn chịu khó down lại từ đây vậy

(defun c:vnc (/ oldos p1 p2 p3 p4 p5 p6)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "\n Chon diem dau cua net cat: ")
          p2 (getpoint p1 "\n Chon diem cuoi cua net cat: ")
          d (distance p1 p2)
          a (angle p1 p2)
) 
(command "line" p1 (setq p3 (polar p1 a (- (/ d 2) (/ d 25))))
                                   (setq p4 (polar p3 (- a (/ pi 2)) (/ d 10)))
                                   (setq p5 (polar (setq p6 (polar p2 (+ a pi) (- (/ d 2) (/ d 25)))) (+ a (/ pi 2)) (/ d 10)))
                                   p6 p2 "")
(setvar "osmde" oldos)
(princ)
)

 

Hy vọng không còn bị lỗi bởi trang download của diễn đàn cũng chưa được hoàn toàn ngon.

Chúc thành công.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#9 biendong123

biendong123

    biết pan

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

Đã gửi 13 May 2014 - 04:00 PM

Hề hề hề,

Bạn chịu khó down lại từ đây vậy

 

(defun c:vnc (/ oldos p1 p2 p3 p4 p5 p6)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "\n Chon diem dau cua net cat: ")
          p2 (getpoint p1 "\n Chon diem cuoi cua net cat: ")
          d (distance p1 p2)
          a (angle p1 p2)
) 
(command "line" p1 (setq p3 (polar p1 a (- (/ d 2) (/ d 25))))
                                   (setq p4 (polar p3 (- a (/ pi 2)) (/ d 10)))
                                   (setq p5 (polar (setq p6 (polar p2 (+ a pi) (- (/ d 2) (/ d 25)))) (+ a (/ pi 2)) (/ d 10)))
                                   p6 p2 "")
(setvar "osmde" oldos)
(princ)
)

 

Hy vọng không còn bị lỗi bởi trang download của diễn đàn cũng chưa được hoàn toàn ngon.

Chúc thành công.

Cảm ơn bác lisp của bác đúng với ý em, nhưng có vấn đề là: sau khi dùng lệnh: VNC  enter => đến bước "chọn điểm đầu của nét cắt" là không hiện truy bắt điểm và sau khi vẽ xong nét cắt là mất hết truy bắt điểm.

Bác khắc phục lỗi này giúp em được không ah 


  • 0

#10 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 13 May 2014 - 04:36 PM

Cảm ơn bác lisp của bác đúng với ý em, nhưng có vấn đề là: sau khi dùng lệnh: VNC  enter => đến bước "chọn điểm đầu của nét cắt" là không hiện truy bắt điểm và sau khi vẽ xong nét cắt là mất hết truy bắt điểm.

Bác khắc phục lỗi này giúp em được không ah 

Hề hề hề,

1/- Vì chả biết bạn cần những truy bắt điểm nào nên mình để nó là 0 và nếu bạn cần bất cứ truy bắt nào thì chỉ việc lựa chọn truy bắt đó trong quá trình pick điểm là Ok.

2/- Lisp đã trả truy bắt điểm về chế độ hiện có trước khi chạy lisp nên nếu nó là 0 có nghĩa rằng chế độ truy bắt điểm của bản vẽ trước khi chạy lisp cũng là 0. bạn hãy kiểm tra lại điều này.

 

Túm lại , lisp chẳng có lỗi gì cần khắc phục cả. Vấn đề là bạn cần hiểu rõ cách dùng của lisp mà thôi.

Chẳng hạn khi lisp yêu cầu chọn điểm đầu của nét cắt, nếu bạn muốn sử dụng truy bắt điểm là endpoint thì bạn sẽ phải kích vào nút chọn truy bắt điểm này trên thanh công cụ của CAD trước khi pick điểm cần chọn. hay khi lisp yêu cầu chọn điểm cuối của nét cắt, bạn muốn sử dụng truy bắt điểm là intersect thì bạn lại kích vào nút truy bắt điểm này trên thanh cong cụ rồi mới pick điểm.

Như vậy theo mình là thuận lợi và tiện dụng hơn cho người dùng và tránh được việc truy bắt nhầm điểm cần chọn. Vì lẽ đó, dù có thể sửa lisp nếu như bạn cung cấp các chế độ bắt điểm mà bạn cần, nhưng mình cũng sẽ không muốn làm. Mong bạn hiểu rõ hơn mục đích của người viết lisp và nếu bạn muốn có thể tự điều chỉnh lisp theo ý mình. 

Để có thể sửa lisp theo ý bạn , bạn nên tham khảo để hiểu rõ cách đưa chế độ bắt điểm vào lisp và hiểu rõ về biến hệ thống osmode trong phần Help của CAD.

Chúc bạn thành công.


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#11 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 14 May 2014 - 04:34 PM

Túm lại:

1- Tên chủ đề là: Nhờ các bác viết giùm em lisp vẽ nét cắt vật thể đã làm em mừng ...hụt vì cứ tưởng bở là lisp chém hình khối chứ không phải là vẽ nét cắt trên hình chiếu.

 

Đó chính là lý do em đã spam trong  bài số # 3   :)   :)   :) 

 

2- Nếu dùng lisp vnc của bác Bình, anh chủ thớt ngại làm thủ công cái việc lựa chọn chế độ  bắt điểm đầu và cuối thì làm theo 2 cách  sau:

A- Tạo bock >>> Chèn vào vị trí >>> Scale với sự lựa chọn tham số R

 

B- Làm theo cách củ chuối của mấy anh bạn Tàu Khựa là dùng lệnh vẽ đường lưỡi bò bằng súng phun nước:

45666jhh_zps8a193299.png

 

Anh thử mầy mò xem sao???

 

Hề hề hề,

Xài thử món đồ chơi này xem đã vừa ý chưa nhé. Nếu chưa thì nhờ mấy anh bạn Tàu giúp đỡ hè.

 

http://www.4shared.c...a/venetcat.html


  • 1

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#12 biendong123

biendong123

    biết pan

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

Đã gửi 14 May 2014 - 05:44 PM

Túm lại:

1- Tên chủ đề là: Nhờ các bác viết giùm em lisp vẽ nét cắt vật thể đã làm em mừng ...hụt vì cứ tưởng bở là lisp chém hình khối chứ không phải là vẽ nét cắt trên hình chiếu.

 

Đó chính là lý do em đã spam trong  bài số # 3   :)   :)   :) 

 

2- Nếu dùng lisp vnc của bác Bình, anh chủ thớt ngại làm thủ công cái việc lựa chọn chế độ  bắt điểm đầu và cuối thì làm theo 2 cách  sau:

A- Tạo bock >>> Chèn vào vị trí >>> Scale với sự lựa chọn tham số R

 

B- Làm theo cách củ chuối của mấy anh bạn Tàu Khựa là dùng lệnh vẽ đường lưỡi bò bằng súng phun nước:

45666jhh_zps8a193299.png

 

Anh thử mầy mò xem sao???

Ok để em thử .
Thanks bác


  • 0