Rated 5/5 based on 240179 internet user reviews

Đến nội dung


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

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


  • Please log in to reply
14 replies to this topic

#1 miennui_tomo3d

miennui_tomo3d

    biết dimcenter

  • CADViet Team
  • PipPipPipPipPip
  • 320 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 13 August 2009 - 01:47 PM

Hình đã gửi
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.c...les/2/block.lsp
Thanks các bác trước cái nè !
  • 0
Sống Trên Đời Cần Phải Có Một Tấm Lòng Dù Để ......... Tối Nấu Ăn !

#2 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 14 August 2009 - 07:37 AM

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

#3 miennui_tomo3d

miennui_tomo3d

    biết dimcenter

  • CADViet Team
  • PipPipPipPipPip
  • 320 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 14 August 2009 - 08:55 AM

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.c...files/2/all.zip
Tất cả nằm trong này bác ơi . File *.lsp . *.dcl , *.dwg , *.sld
Thanks !
  • 0
Sống Trên Đời Cần Phải Có Một Tấm Lòng Dù Để ......... Tối Nấu Ăn !

#4 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 14 August 2009 - 01:11 PM

http://www.cadviet.c...files/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.
  • 0

#5 miennui_tomo3d

miennui_tomo3d

    biết dimcenter

  • CADViet Team
  • PipPipPipPipPip
  • 320 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 14 August 2009 - 05:20 PM

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

http://www.cadviet.c...les/2/dsect.dwg
Nó đây bác ạh
Sếp dí quá nên up hơi chậm . hì
  • 0
Sống Trên Đời Cần Phải Có Một Tấm Lòng Dù Để ......... Tối Nấu Ăn !

#6 miennui_tomo3d

miennui_tomo3d

    biết dimcenter

  • CADViet Team
  • PipPipPipPipPip
  • 320 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 18 August 2009 - 11:19 AM

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 .
  • 0
Sống Trên Đời Cần Phải Có Một Tấm Lòng Dù Để ......... Tối Nấu Ăn !

#7 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 18 August 2009 - 01:36 PM

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

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#8 miennui_tomo3d

miennui_tomo3d

    biết dimcenter

  • CADViet Team
  • PipPipPipPipPip
  • 320 Bài viết
Điểm đánh giá: 112 (tàm tạm)

Đã gửi 18 August 2009 - 04:17 PM

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 .
  • 0
Sống Trên Đời Cần Phải Có Một Tấm Lòng Dù Để ......... Tối Nấu Ăn !

#9 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 18 August 2009 - 05:00 PM

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

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#10 gia_bach

gia_bach

    biết lệnh adcenter

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

Đã gửi 19 August 2009 - 04:25 PM

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

#11 hoangkimoanh

hoangkimoanh

    biết vẽ polygon

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

Đã gửi 28 March 2013 - 04:32 PM

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

  • 0

#12 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 29 March 2013 - 08:41 AM

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

  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#13 hoangkimoanh

hoangkimoanh

    biết vẽ polygon

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

Đã gửi 29 March 2013 - 09:13 AM

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


  • 0

#14 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 29 March 2013 - 09:26 AM

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

  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-cool.png


#15 hoangkimoanh

hoangkimoanh

    biết vẽ polygon

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

Đã gửi 29 March 2013 - 09:32 AM

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


  • 0