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

[miennui_tomo3d 114]

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è !

[q288 166]

Bạn gửi lên file DWP.DCL và cái file bath.dwg, có nó mới làm được.

[miennui_tomo3d 114]

Bạn gửi lên file DWP.DCL và cái file bath.dwg, có nó mới làm được.

http://www.cadviet.com/upfiles/2/all.zip

Tất cả nằm trong này bác ơi . File *.lsp . *.dcl , *.dwg , *.sld

Thanks !

[q288 166]

http://www.cadviet.com/upfiles/2/all.zip

Tất cả nằm trong này bác ơi . File *.lsp . *.dcl , *.dwg , *.sld

Thanks !

 

bạn save dùm file dwg thành cad 2004 đi.

[miennui_tomo3d 114]

bạn save dùm file dwg thành cad 2004 đi.

http://www.cadviet.com/upfiles/2/dsect.dwg

Nó đây bác ạh

Sếp dí quá nên up hơi chậm . hì

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

[duy782006 1.551]

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.

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

[duy782006 1.551]

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.

[gia_bach 1.551]

........

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

[hoangkimoanh 2]

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))

[duy782006 1.551]

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))

[hoangkimoanh 2]

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ỉ?

[duy782006 1.551]

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"))

[hoangkimoanh 2]

cảm ơn anh, nhờ anh em đã làm được rồi!

[thanhkieu669 0]

Ban oi co the copy ma code cua lisp len day duoc khong. Minh dang lam viec tren may cong ty co phan men duyet virus nen khi tai ve chuong trinh chan khong tai duoc. Ma may cong ty nen khong the tu cai dat duoc. Ban giup nhe.