Đến nội dung


Hình ảnh
* * * * * 2 Bình chọn

[Yêu cầu] lisp xuất tọa độ dim


  • Please log in to reply
51 replies to this topic

#41 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 February 2013 - 02:06 PM

Ô, chủ topic ném đá mặt hồ bỏ đi rồi mọi người vẫn chờ nước lặng, vui tóa ^^
- Nói chung là các bác lười khử hàm khử biến quá, hí hí
- Code bác Bình ket thấy có đoạn này (setq xlst nil, ylst nil), không biết tag code lỗi hay nó thế, mà đọc giống VB quá bác ơi, mà một biến chưa khởi tạo đương nhiên là nil rùi ^^
- *LINE có cả MLine
- Nếu chỉ là dịch chuyển gốc tọa độ, và đằng nào cũng trans (mà ket đọc thấy chỗ có chỗ không ?), sao các bác không sử dụng luôn vecto 0,0,0 -> gốc mới trong các phép tính, sẽ xinh hơn là command ucs
....

Hề hề hề
1/- Quá lười
2/- Lỗi của bác do tẩu hỏa nhập lisp. Cũng là lo xa khi người dùng sử dụng nhiều lisp trên cùng bản vẽ, nhỡ có biến trùng tên chưa khử cũng khổ.....
3/- Cái thằng Mline nếu có sẽ nằm im bởi chẳng ai xử nó cả.
4/- Chỗ có chỗ không ấy là do các point trả về từ các hàm trước đó có thể là WCS hay OCS.Cách sử dụng vecto 0,0,0 như Ket nói mình chưa nắm được. nếu có thể Ket hướng dẫn thêm. nhìn chung cái vụ đổi tọa độ này với hàm trans mình cũng đang loay hoay do không hiểu hết những gì mà CAD nó viết trong Help. Mong được chỉ giáo thêm.VB là cái của chi vậy, có phải là Visual Basic không??? Mình chả rành lắm như cái tư duy kiểu basic thì quả là có thật.
Hề hề hề,...
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#42 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 05 February 2013 - 03:04 PM

Hề hề hề
......
4/- Chỗ có chỗ không ấy là do các point trả về từ các hàm trước đó có thể là WCS hay OCS.Cách sử dụng vecto 0,0,0 như Ket nói mình chưa nắm được. nếu có thể Ket hướng dẫn thêm. nhìn chung cái vụ đổi tọa độ này với hàm trans mình cũng đang loay hoay do không hiểu hết những gì mà CAD nó viết trong Help. Mong được chỉ giáo thêm.VB là cái của chi vậy, có phải là Visual Basic không??? Mình chả rành lắm như cái tư duy kiểu basic thì quả là có thật.
Hề hề hề,...

Có thể không cần dùng hàm trans. Bác có thể sử dung WCS để làm.
. Chọn gốc tọa độ tương đối làm gốc tọa độ O'. Tọa độ này có tọa độ là O'(x y z) so với O(0 0 0).
Vậy thì so với gốc tọa độ O' có tọa độ là (x-x y-y z-z) tức là (0 0 0)
Bác có thể tham khảo Lisp của em ở bài viết số 18 và bài viết số 37 để rõ hơn
  • 1

#43 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 February 2013 - 03:22 PM

Anh Tuệ ơi có thể làm cho dim đánh ra không được trùng lên nhau được không anh. Em kèm theo file cad một bản vẽ đã đánh kích thước đầy đủ anh xem làm thế có được không nha.
http://www.cadviet.c..._v2pip130r1.dwg
Chắc đền 18-2 em mới xem lisp được. Chúc anh và các bạn cadviet ăn tết vui vẻ.
  • 0
Hình đã gửi
----------------------------------------------------------------------------------//-------------------------------------------------------------------------------------

#44 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 05 February 2013 - 05:18 PM

Anh Tuệ ơi có thể làm cho dim đánh ra không được trùng lên nhau được không anh. Em kèm theo file cad một bản vẽ đã đánh kích thước đầy đủ anh xem làm thế có được không nha.
http://www.cadviet.c..._v2pip130r1.dwg
Chắc đền 18-2 em mới xem lisp được. Chúc anh và các bạn cadviet ăn tết vui vẻ.

Chắc là khai xuân, mình mới viết tiếp được
Chúc các bạn, các bác năm mới hạnh phúc và gặt hái nhiều thành công
Chào tạm biệt và hẹn gặp lại
  • 0

#45 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 05 February 2013 - 05:44 PM

hix ai cũng nghỉ tết sớm sướng hen, chúc mọi người ăn tết vui vẻ hen
Ps: tết này nhoc ko đc đi đâu phải ở nhà giử nhà 1 mình thui :D
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#46 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 February 2013 - 10:00 PM

hix ai cũng nghỉ tết sớm sướng hen, chúc mọi người ăn tết vui vẻ hen
Ps: tết này nhoc ko đc đi đâu phải ở nhà giử nhà 1 mình thui :D

Hề hề hề,
Đâu phải có mình nhóc đâu mà than vãn hử???
Ở nhà một mình tha hồ mà quậy, chả sợ ai mắng cả. Cứ tranh thủ thời gian mà chọc ngoáy những gì mình khoái là Ok Chín ngày nghỉ trôi nhanh thôi mà.
Hề hề hề,
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#47 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 February 2013 - 07:15 AM

Ô, chủ topic ném đá mặt hồ bỏ đi rồi mọi người vẫn chờ nước lặng, vui tóa ^^
- Nói chung là các bác lười khử hàm khử biến quá, hí hí
- Code bác Bình ket thấy có đoạn này (setq xlst nil, ylst nil), không biết tag code lỗi hay nó thế, mà đọc giống VB quá bác ơi, mà một biến chưa khởi tạo đương nhiên là nil rùi ^^
- *LINE có cả MLine
- Nếu chỉ là dịch chuyển gốc tọa độ, và đằng nào cũng trans (mà ket đọc thấy chỗ có chỗ không ?), sao các bác không sử dụng luôn vecto 0,0,0 -> gốc mới trong các phép tính, sẽ xinh hơn là command ucs
....

 

Đỏ: (setq xyz nil) nhìn thì có vẽ như thừa nhưng thực ra thì rất cần trong lisp. Nó loại được lỗi của chương trình khi trước đó có dùng lisp khác mà biến xyz chưa được khử.
 


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


#48 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 12 February 2013 - 11:38 AM

Bác nói chí lí. rưng mà như rày thì ng viết lisp để lại vết hơi kém ^^ với lại cách này chỉ ý nghĩa với những biến dùng luôn, như cái appemd list của bác B đây.
  • 0

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


#49 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 February 2013 - 09:06 PM

Kệ! Việc họ sai đâu phải việc của mình. Việc mình là dù có ai sai thì lisp vẫn chạy tốt.


  • 0

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


#50 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 26 February 2013 - 11:41 AM

Chắc là khai xuân, mình mới viết tiếp được
Chúc các bạn, các bác năm mới hạnh phúc và gặt hái nhiều thành công
Chào tạm biệt và hẹn gặp lại

 

 

Đầu năm chắc công việc bận rộn lắm nên không thấy anh Tuệ viết tiếp lisp xuất toạ độ dim. Khi nào rảnh anh tiếp tục giúp em hoàn thành cái lisp này anh nha.

 Thank


  • 0
Hình đã gửi
----------------------------------------------------------------------------------//-------------------------------------------------------------------------------------

#51 tanphuoc1985

tanphuoc1985

    Chưa sử dụng CAD

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

Đã gửi 05 June 2014 - 05:47 PM

Chào các bác, các bác cho e hỏi, bên tư vấ vừa cung cấp file bản vẽ cho bên e trong bẻ vẽ có to độ dầy đủ, nhưng trong file thì ko hiển thị toa độ mà chỉ hiện thi đường dim của toạ độ, khi mình nhấp kép vào thì mình xem đc điểm đó, có cách nào mình cho hiển thị toàn bộ toa độ diểm dc hok các bác, trong pro thì ô tẽt height bị ẩn đâu mất tiêu rồi tìm ko ra


  • 0

#52 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 05 June 2014 - 05:50 PM

Tôi đoán mò thì cũng biết lý do, nhưng bạn gởi bản vẽ lên cho chắc đi.


  • 0

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