Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
miennui_tomo3d

Lisp lấy Block nhanh trong thư viện

Các bài được khuyến nghị

miennui_tomo3d    114

A1.jpg

Mình Không biết tí tẹo tèo teo gì về Lisp . Chỉ biết dùng nhưng không biết sửa hay tạo mới .

Nhờ mấy bác sửa giúp em cái đoạn lisp này .

Các bác dùng design center , lấy Block rất nhanh nhưng nó có một nhược điểm là phải tìm từng file chứa Block .

Em mong muốn đọan lisp theo hường thế này :

+ Các hình hiển thị trong cái cửa sổ như trong hình không phải là hình chụp ( file *.sld ) mà là hình các block giống như trong design center .

+ Khi chọn một tên , nhấn ok thì sẽ xuất hiện tất cả các block có trong file - giờ có thể tạo được : khi nhấn ok thì chỉ lấy đúng cái Block mà ta thấy trên cửa sổ . )Không phải lấy nguyên file chứa block)

- nếu được thì các tên của Block sẽ xuất hiện luôn hay theo thứ tự bảng chữ cái mà ta sẽ đặt cho các block trong file chứa nó .

Nói chung cái đoạn Lisp này nó gần giống như Design Center , chỉ khác

. De-Center nhấn và tìm từng file để load các block

. Cái lisp này sẽ lấy đúng cái block mình muốn bằng lệnh , không phải tìm nhiều .

- Nếu thành công . Mình đánh lệnh < BATH> - lệnh này là lệnh của Lisp > enter thì sẽ xuất hiện cái bảng tương tự như trong hình .

mình chỉ cần chọn một tên block và ok thì màn hình Cad sẽ xuất hiện cái block đó .

- cái file mình sẽ load trong lisp cũng tên bath . file này chứa các block của bathroom .

nếu tạo một lisp tương tự và đặt tên Tree . file chứa block cây sẽ xuất hiện khi đánh lệnh

Sau đây là đoạn lisp đó :

http://www.cadviet.com/upfiles/2/block.lsp

Thanks các bác trước cái nè !

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
miennui_tomo3d    114

Có bác nào giúp em không nhẩy .

Không được chắc phải làm cái cách 1 file - 1 block - 1 ảnh cho file chứa block .

> lâu chết luôn mới xong cái thư viện . hic .

Em vẽ nội thất nên cái thư viện nó quá trời luôn .

Riêng cái lavabo của ToTo không là làm mệt nghỉ . hic . đuối chết luôn .

bác nào giúp em nhẩy .

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.374
Có bác nào giúp em không nhẩy .

Không được chắc phải làm cái cách 1 file - 1 block - 1 ảnh cho file chứa block .

> lâu chết luôn mới xong cái thư viện . hic .

Em vẽ nội thất nên cái thư viện nó quá trời luôn .

Riêng cái lavabo của ToTo không là làm mệt nghỉ . hic . đuối chết luôn .

bác nào giúp em nhẩy .

Mình có sẳn 1 cái.

-Chỉ hiển thị 1 lúc 11 khung nhìn thôi chứ không nhiều như của bạn.

-Chỉ cần bạn có thư mục chứa block bằng file dwg. (mổi block 1 file).

-Lisp hổ trợ chụp ảnh cho bạn.

-Gọi lên được từ thư mục bất kỳ chỉ cần chỉ đường dẩn. (tên đường dẩn và tên file không chứa khoảng trắng)

*Thấy dùng được thì mình up lại cho chứ thực chất thì nó có sẳn trên die6n3 đàn này rồi.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
miennui_tomo3d    114
Mình có sẳn 1 cái.

-Chỉ hiển thị 1 lúc 11 khung nhìn thôi chứ không nhiều như của bạn.

-Chỉ cần bạn có thư mục chứa block bằng file dwg. (mổi block 1 file).

-Lisp hổ trợ chụp ảnh cho bạn.

-Gọi lên được từ thư mục bất kỳ chỉ cần chỉ đường dẩn. (tên đường dẩn và tên file không chứa khoảng trắng)

*Thấy dùng được thì mình up lại cho chứ thực chất thì nó có sẳn trên die6n3 đàn này rồi.

EM cám bác . Quỹ thời gian em trên mạng không nhiều nên em khó tìm lắm . bác có thể up lên hoặc mail cho em một phát

mail : thinh.h@dwp.com

Em nghĩ dựa trên lisp của bác và lisp của em , sẽ có cách làm chúng tốt hơn .

Lisp của bác có hổ trợ chụp ảnh , lisp của em thì không .

Lisp của em thì nhiều khung nhìn .

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.374
EM cám bác . Quỹ thời gian em trên mạng không nhiều nên em khó tìm lắm . bác có thể up lên hoặc mail cho em một phát

mail : thinh.h@dwp.com

Em nghĩ dựa trên lisp của bác và lisp của em , sẽ có cách làm chúng tốt hơn .

Lisp của bác có hổ trợ chụp ảnh , lisp của em thì không .

Lisp của em thì nhiều khung nhìn .

Bạn xem ở Đây !

Vấn đề nhiều khung nhìn thì sửa lisp vẫn được nhưng mình để khung nhìn to cho dể nhìn thành ra số lượng phải ít đi.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
gia_bach    1.442
........

Nhờ mấy bác sửa giúp em cái đoạn lisp này .

Các bác dùng design center , lấy Block rất nhanh nhưng nó có một nhược điểm là phải tìm từng file chứa Block .

Em mong muốn đọan lisp theo hường thế này :

+ Các hình hiển thị trong cái cửa sổ như trong hình không phải là hình chụp ( file *.sld ) mà là hình các block giống như trong design center .

+ Khi chọn một tên , nhấn ok thì sẽ xuất hiện tất cả các block có trong file - giờ có thể tạo được : khi nhấn ok thì chỉ lấy đúng cái Block mà ta thấy trên cửa sổ . )Không phải lấy nguyên file chứa block)

- nếu được thì các tên của Block sẽ xuất hiện luôn hay theo thứ tự bảng chữ cái mà ta sẽ đặt cho các block trong file chứa nó .

.......................

Chào miennui_tomo3d

Bạn tham khảo bài viết Tiện ích quản lý Block

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

nhờ các anh sửa giúp em đoạn lisp này có thể gọi Block Text của mình được tạo sẵn trong thư viện của mình, chứ không phải trong Support với. sửa để gọi Text được tạo sẵn trong C:\Program Files\AutoCAD 2004\Thu Vien

Code:

 

(DEFUN C:TT() 
  (setq ms 1)
  (setq x (getpoint "\nCHON DIEM DAT TEXT :"))
  (command "-insert" "TEXT" x ms ms "0") 
  (Command "explode" (ssget "L") )
(princ))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.374
Sửa như này:

(DEFUN C:TT() 

  (setq ms 1)

  (setq x (getpoint "\nCHON DIEM DAT TEXT :"))

  (command "-insert" "C:\\Program Files\\AutoCAD 2004\\Thu Vien\\TEXT.DWG" x ms ms "0") 

  (Command "explode" (ssget "L") )

(princ))

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

cảm ơn anh Duy, gần được rồi anh ạ! nếu mình add thư viện vào trong Suppor File Search Path thì ok nhưng có cách nào thêm dòng add gì đó để nó tự add cái thư viện đó vào Suppor File Search Path cho mình được không anh nhỉ?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.374
Thêm  C:\\Program Files\\AutoCAD 2004\\Thu Vien vào Suppor File Search Path.

 

(setenv "ACAD" (strcat (GETENV "ACAD") ";" "C:\\Program Files\\AutoCAD 2004\\Thu Vien"))
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×