Đến nội dung


Hình ảnh
- - - - -

[yêu cầu] Nhờ các cao thủ về lsp viết giúp cái lsp gióng tag thép(ghi chú) trong ASD


  • Please log in to reply
8 replies to this topic

#1 hantinh

hantinh

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 413 Bài viết
Điểm đánh giá: 44 (tàm tạm)

Đã gửi 21 February 2012 - 10:21 PM

Nhờ các bro giỏi về lsp viết giúp mình cái lsp gióng đối tượng ghi chú thép(tag thép) thẳng hàng nhau thep chiều ngang( với đối tượng là ngang và đứng theo đối tượng đứng.
Dưới là bản vẽ để các bro có thể chọn được đối tượng. Tks Bro trước
đây là file ver10: http://www.4shared.c...a/Drawing2.html
Hình đã gửi
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 22 February 2012 - 05:09 PM

Rất tiếc là mình k có ASD để giúp bạn :) Nếu bạn biết và theo mình nhớ là bạn có biết lisp, thì bạn có thể thử làm theo hướng sau :
1 - Quét chọn tất cả các tag thép
2 - Pick 1 điểm chọn P để lấy tọa độ Y chung
3 - Xét từng đối tượng tag :
- Lấy data của sub entity 340 của tag
- Lọc lấy tất cả mã dxf 10 (mAssoc) = list Point từ data này
- Kiểm tra 2 point cuối cùng trong list, nếu có tọa độ y bằng nhau = Y1 thì thao tác tiếp (ngang hàng)
- Dùng entmod để sửa 2 tọa độ Point cuối này trùng Y chung
- Dùng entmod để sửa tọa độ Y của tất cả các sub entity khác (vòng tròn, số hiệu, text fi...) tăng lên 1 khoảng Y-Y1
  • 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


#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 22 February 2012 - 08:44 PM

Rất tiếc là mình k có ASD để giúp bạn :) Nếu bạn biết và theo mình nhớ là bạn có biết lisp, thì bạn có thể thử làm theo hướng sau :
1 - Quét chọn tất cả các tag thép
2 - Pick 1 điểm chọn P để lấy tọa độ Y chung
3 - Xét từng đối tượng tag :
- Lấy data của sub entity 340 của tag
- Lọc lấy tất cả mã dxf 10 (mAssoc) = list Point từ data này
- Kiểm tra 2 point cuối cùng trong list, nếu có tọa độ y bằng nhau = Y1 thì thao tác tiếp (ngang hàng)
- Dùng entmod để sửa 2 tọa độ Point cuối này trùng Y chung
- Dùng entmod để sửa tọa độ Y của tất cả các sub entity khác (vòng tròn, số hiệu, text fi...) tăng lên 1 khoảng Y-Y1

Rất tiếc là KetXu không có ASD nên Xu cứ ... đoán mò :D
  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 23 February 2012 - 07:56 AM

Hế hế, thì e nói là e mò ngay từ đầu rồi mà. Nhưng hướng đi thì chắc cũng chỉ đến vậy thôi :D.
Mà em mò có cơ sở đó nhé ^^
http://arttool.vn/th...ghlight=hantinh
  • 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


#5 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 23 February 2012 - 09:07 AM

Hế hế, thì e nói là e mò ngay từ đầu rồi mà. Nhưng hướng đi thì chắc cũng chỉ đến vậy thôi :D.
Mà em mò có cơ sở đó nhé ^^
http://arttool.vn/th...ghlight=hantinh

Sao Xu không thử cài ASD và test nó luôn mà cứ "mò có cơ sở" thế? :D


- Lấy data của sub entity 340 của tag nó ra cái này :

Chon doi tuong :; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on exception
; error: Exception occurred: 0xC0000005 (Access Violation)
  • 0

#6 hantinh

hantinh

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 413 Bài viết
Điểm đánh giá: 44 (tàm tạm)

Đã gửi 23 February 2012 - 07:47 PM

quan trọng là hướng đi và sơ đồ khối thôi mà bac tue_vn. sau đó là cách dùng lẹnh để sử lý nó thôi mà. trong ASD thì dùng lsp chỉ để can thiệp vào điểm chèn đối tươngn thôi mà
  • 0

#7 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 23 February 2012 - 11:31 PM

Máy e k chơi được loại đó bác ạ ^^ CAD12 e còn k dùng được nữa là... Chứ k thì e cài r test cho sướng ^^ Lại đỡ bị bắt bài thầy bói xem voi ^^ Nhưng bác cũng phải xem lại nhỡ đâu thằng ASD bên bác nó bị mần răng, nó chỉ là 1 sub entity bình thường mà k chui vào trong CSDL của nó được thì cũng lạ quá :D
  • 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


#8 hantinh

hantinh

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 413 Bài viết
Điểm đánh giá: 44 (tàm tạm)

Đã gửi 24 February 2012 - 11:57 AM

nếu máy của ketxu chạy được bản cad 10 thi co ban asd10 đấy. nếu thây chay dc 11 thi cai bản 11 mà. đâu cần ban 12 đâu bạn
  • 0

#9 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 24 February 2012 - 12:38 PM

Mình đang dùng CAD 7, CAD 8 :|
  • 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