Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] Lisp open&close bản vẽ


  • Please log in to reply
16 replies to this topic

#1 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 14 July 2011 - 04:58 PM

Trong qúa trình TK thì mình thường xuyên phải mở nhiều bản vẽ khác nhau và làm việc với nó, khoảng 5-10 bản vẽ nên khi đóng, mở những bản vẽ đó cũng làm mình cảm thấy bất tiện, nên mình cần một cái lisp có thể làm được việc này:

Chức năng của Lisp (close) như sau:
B1: Gõ tên lệnh.
B2: Chọn số thứ tự bản vẽ(1) cần đóng hoặc đóng tất cả (ALL).
B3: Lưu hoặc không lưu bản vẽ.
(1)_Vì trong Menu Windows của CAD thì khi chuyển đổi giữa các bản vẽ thì mình thấy nó có đánh STT các bản vẽ.

Còn ai nếu có Lip nào có thể mở nhanh các bản vẹ thì cho mình xin với (chức năng ra sao cũng được).
  • 0

#2 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 14 July 2011 - 10:58 PM

Mong các bác giúp giùm, đang thực sự cần cái này. Gấp lắm...... :excl:
  • 0

#3 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 15 July 2011 - 12:44 AM

- Gấp ở mức độ cực kỳ chưa bạn ?? Thực sự thì lisp này có thể viết và trên mạng cũng nhiều, nhưng mình nghĩ liệu nó có làm thao tác của bạn nhanh hơn không ? (thậm chí nếu lisp không liệt kê tên bản vẽ, mà làm tắt như bạn nói, chỉ quyết định bản vẽ cần tắt dựa vào STT CAD đánh, thì bạn còn phải mất công nhớ chúng, liệu có nên ??)
Ngoài ra, bạn có thể dùng TabCad để sử dụng, theo mình nghĩ cũng khá tiện lợi
- Còn chức năng mở nhanh các bản vẽ, mình thực sự không hiểu được ý đồ của bạn :lol:
  • 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


#4 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 15 July 2011 - 09:18 PM

- Gấp ở mức độ cực kỳ chưa bạn ?? Thực sự thì lisp này có thể viết và trên mạng cũng nhiều, nhưng mình nghĩ liệu nó có làm thao tác của bạn nhanh hơn không ? (thậm chí nếu lisp không liệt kê tên bản vẽ, mà làm tắt như bạn nói, chỉ quyết định bản vẽ cần tắt dựa vào STT CAD đánh, thì bạn còn phải mất công nhớ chúng, liệu có nên ??)
Ngoài ra, bạn có thể dùng TabCad để sử dụng, theo mình nghĩ cũng khá tiện lợi
- Còn chức năng mở nhanh các bản vẽ, mình thực sự không hiểu được ý đồ của bạn :lol:


Thế mình tạo lisp khi thực hiện có xuất hiện bản hộp thoại để chọn bản vẽ cần đóng ko được sao bạn.
  • 0

#5 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 15 July 2011 - 10:11 PM

Có, nhưng so với TabCad thì vẫn chưa thể nhanh bằng, do tabcad hiển thị thanh tab giống như bạn duyệt Web vậy. Còn nếu bạn đã nghe/dùng rồi mà không ưa thì mình có thể giúp bạn viết cái lisp như yêu cầu, nhưng thú thực, mình không thấy nó hữu dụng lắm
  • 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


#6 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 16 July 2011 - 02:10 PM

Nếu như bạn nói thì mình dùng Tadcad vẫn tiện dụng hơn hả!
Vậy bạn có thể giúp mình một Lisp như vậy được không để mình sử dụng thử và so sánh thử giữa 2 cái đó đi bạn! Chủ yếu là để thỏa tính tò mò của mình.... :P
  • 0

#7 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 July 2011 - 10:23 PM

Nếu như bạn nói thì mình dùng Tadcad vẫn tiện dụng hơn hả!
Vậy bạn có thể giúp mình một Lisp như vậy được không để mình sử dụng thử và so sánh thử giữa 2 cái đó đi bạn! Chủ yếu là để thỏa tính tò mò của mình.... :P

Của bạn đây
1-Tắt bản vẽ
Lệnh là 1 bạn nhé
Lưu ý : việc tắt bản vẽ bằng lisp nhiều khi không được như mong muốn, không khuyến cáo sử dụng kẻo thêm bực mình ^^
  • 1

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 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 17 July 2011 - 11:05 AM

Chưa thử Lisp nhưng cảm ơn ketxu trước cái đã... Mong rằng nó sài tốt...
  • 0

#9 ccshoabinh

ccshoabinh

    Chưa sử dụng CAD

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

Đã gửi 17 July 2011 - 12:47 PM

Ghét nhất thằng nào cho lisp mà không cho sửa lệnh. Bị chùng lệnh với tiện ích khác ko dùng được. Người ta không biết mới xin.
  • 0

#10 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 17 July 2011 - 01:06 PM

Ghét nhất thằng nào cho lisp mà không cho sửa lệnh. Bị chùng lệnh với tiện ích khác ko dùng được. Người ta không biết mới xin.

Mình cũng ghét nhất loại người ăn nói không biết suy nghĩ, ngồi hưởng thành quả lao động của người khác nhưng lại không biết vắt tay lên trán mà ngẫm tiếc công cha mẹ, coi việc người khác phục dịch theo mình là nghĩa vụ, không biết thì cứ hỏi nhưng đừng tỏ ra nguy hiểm. Người như thế thì muôn đời chẳng khá lên được.

Hơn nữa, lại càng coi thường loại người lập 1 nick clone chỉ để nói lên suy nghĩ của mình.


Trả lời luôn bạn chủ Topic là nếu cần tên lệnh là gì, hãy nói luôn nhé :)

Sorry mọi người vì trót spam ^^
  • 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


#11 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 18 July 2011 - 07:33 AM

Của bạn đây
1-Tắt bản vẽ
Lệnh là 1 bạn nhé
Lưu ý : việc tắt bản vẽ bằng lisp nhiều khi không được như mong muốn, không khuyến cáo sử dụng kẻo thêm bực mình ^^

ketxu có thể xử lý thêm truờng hợp đóng file đang Active (hiện hành) ?!
  • 0

#12 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 18 July 2011 - 11:00 PM

Với file hiện hành, e thêm command close để dùng tạm, vấn đề đã giải quyết được. Tuy nhiên, lại bị vướng 1 chút vào chỗ hàm tạo ListBox tạm thời của Lee, em đang hỏi lại ^^
  • 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


#13 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 19 July 2011 - 02:02 PM

Trong qúa trình TK thì mình thường xuyên phải mở nhiều bản vẽ khác nhau và làm việc với nó, khoảng 5-10 bản vẽ nên khi đóng, mở những bản vẽ đó cũng làm mình cảm thấy bất tiện, nên mình cần một cái lisp có thể làm được việc này:

Chức năng của Lisp (close) như sau:
B1: Gõ tên lệnh.
B2: Chọn số thứ tự bản vẽ(1) cần đóng hoặc đóng tất cả (ALL).
B3: Lưu hoặc không lưu bản vẽ.
(1)_Vì trong Menu Windows của CAD thì khi chuyển đổi giữa các bản vẽ thì mình thấy nó có đánh STT các bản vẽ.

Còn ai nếu có Lip nào có thể mở nhanh các bản vẹ thì cho mình xin với (chức năng ra sao cũng được).

Đây là 1 tool có chức năng tương tự yêu cầu của bạn đuợc viết bằng .NET API
Hình đã gửi

1.Cài đặt:
- giải nén và copy file "TabCad.dll" vào hệ thống(đĩa cứng, USB, ...).
- khởi động AutoCAD, tại dấu nhắc (Command ) của CAD gõ lệnh NETLOAD và chỉ đến vị trí file "TabCad.dll" vừa copy ở buớc 1, chọn OPEN để hoàn thành lệnh NETLOAD .

2. Sử dụng : gõ lệnh TAB để bắt đầu ...
Tool gồm ba chức năng :
1).Set Active : thiết lập file chọn về hiện hành
Chọn file + bấm vào nút "Set Active" hoặc bấm kép (double click) vào file.

2).Close No Save : đóng các file đuợc chọn - KHÔNG LƯU (save)
Chọn file + bấm vào nút "Close No Save"
Chú ý : cẩn thận khi dùng chức năng này

3).Close Save : đóng các file đuợc chọn - CÓ LƯU (save)
Chọn file + bấm vào nút "Close Save"

Lưu ý :
1. từ Cad 2005 mới có lệnh NETLOAD
2. do là ứng dụng AutoCAD .NET API nên yêu cầu hệ thống phải có .Net Framework đã cài đặt.

link download : Tab Cad password : www.cadviet.com
  • 1

#14 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 19 July 2011 - 06:01 PM

Chắc lại là 1 sản phẩm nữa của bác gia_bach, tuy nhiên e xem view thấy cái path nhìn có hơi vấn đề nhỉ ^^
  • 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


#15 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 19 July 2011 - 07:36 PM

Đây là 1 tool có chức năng tương tự yêu cầu của bạn đuợc viết bằng .NET API

Hay! Thanks
P/S: Ketxu, sao tôi xài nó ra path đẹp như mơ chứ không phải như ảnh Gia_Bach paste lên
  • 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.


#16 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 19 July 2011 - 10:47 PM

Mình dùng cũng bình thường. Có điều này muốn hỏi a giabach, do dùng API thì có lợi thế khá nhiều so với lisp trong vụ này, a giabach có thể giải quyết luôn trường hợp SDI = 1 không ?
  • 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


#17 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 20 July 2011 - 07:57 AM

Chắc lại là 1 sản phẩm nữa của bác gia_bach, tuy nhiên e xem view thấy cái path nhìn có hơi vấn đề nhỉ ^^

Tại anh dùng Window phiên bản tiếng Nhật.

Mình dùng cũng bình thường. Có điều này muốn hỏi a giabach, do dùng API thì có lợi thế khá nhiều so với lisp trong vụ này, a giabach có thể giải quyết luôn trường hợp SDI = 1 không ?

Trong trường hợp SDI = 1 , phải tạo ứng dụng độc lập (file .EXE) "Lập trình điều khiển AutoCad từ bên ngoài" kiểu như VBplot 2010

Khác với kiểu dùng tích hợp vào lệnh CAD (gọi lệnh NETLOAD) chỉ thích hợp với SDI=0.
  • 0