Lisp Bind Xref các bản vẽ đang mở

[vothanhdn 5]

Chào mọi người

 

Mình có vấn đề nhờ mọi người giúp. Mình muốn Bind tất cả các bản vẽ có các Xref trong đó. Nghĩa là trong tất cả các file mình đang mở, file nào có chứa Xref đều Bind ra bản vẽ hiện hành hết. Vấn đề này hơi khó, nhờ mọi người giúp mình với nhé.

 

Cám ơn.

[phamthanhbinh 3.146]

 

Chào mọi người Mình có vấn đề nhờ mọi người giúp. Mình muốn Bind tất cả các bản vẽ có các Xref trong đó. Nghĩa là trong tất cả các file mình đang mở, file nào có chứa Xref đều Bind ra bản vẽ hiện hành hết. Vấn đề này hơi khó, nhờ mọi người giúp mình với nhé. Cám ơn.

Similar topics from web:

Tổng hợp thủ thuật vẽ Autocad

Cad Nang Cao Rat Hay

Hề hề hề,

Không hiểu ý của bạn bởi vì lisp chỉ làm việc với file bản vẽ hiện hành có load lisp, còn các bản vẽ khác cho dù đang mở hay đóng nó đâu có thèm quan tâm nhể????

[vothanhdn 5]

Hề hề hề,

Không hiểu ý của bạn bởi vì lisp chỉ làm việc với file bản vẽ hiện hành có load lisp, còn các bản vẽ khác cho dù đang mở hay đóng nó đâu có thèm quan tâm nhể????

 

Thanks a. Vì e cần Bind số lượng lớn các bản vẽ ra. Nếu lisp không xử lý được tất cả bản vẽ thì có cách nào khác không a. Hay là lisp xử lý Bind trên 1 bản vẽ thì cũng nhanh hơn.

[Doan Van Ha 3.192]

1). Bạn post bài nhiều rồi mà vẫn post sai quy định của box autolisp nên rất dễ bị mod xóa. Chú ý lần sau nhé!

2). Thử cái này xem, dùng để bind các xref trong modelspace của bản vẽ hiện hành.

 

(defun C:BX(/ tmp)

 (vl-load-com)

 (vlax-for objs (vla-get-ModelSpace (vla-get-activedocument (vlax-get-acad-object)))

  (if

   (and

    (= (vla-get-ObjectName objs) "AcDbBlockReference")

    (vlax-property-available-p objs 'Path)

    (setq tmp (vla-Item  (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-Acad-Object))) (vla-get-Name objs)))

    (not (assoc 71 (entget (tblobjname "block" (vla-get-Name objs))))))

   (vla-Bind tmp :vlax-true)))

 (princ))

[vothanhdn 5]

 

1). Bạn post bài nhiều rồi mà vẫn post sai quy định của box autolisp nên rất dễ bị mod xóa. Chú ý lần sau nhé!

2). Thử cái này xem, dùng để bind các xref trong modelspace của bản vẽ hiện hành.

 

(defun C:BX(/ tmp)

 (vl-load-com)

 (vlax-for objs (vla-get-ModelSpace (vla-get-activedocument (vlax-get-acad-object)))

  (if

   (and

    (= (vla-get-ObjectName objs) "AcDbBlockReference")

    (vlax-property-available-p objs 'Path)

    (setq tmp (vla-Item  (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-Acad-Object))) (vla-get-Name objs)))

    (not (assoc 71 (entget (tblobjname "block" (vla-get-Name objs))))))

   (vla-Bind tmp :vlax-true)))

 (princ))

Thanks a.

Ah, xin lỗi vì mình quên mất ghi "[Yêu cầu]" vào tên Topic, bây giờ không sửa được tựa đề

[Chiron 94]

Lisp của bác Hà chỉ bind toàn bộ xref trong model, còn trong layout thì nó ignore (Cái này hình như bác sưu tầm ở đâu đó ^ ^).

Chắc vothanhdn muốn bind toàn bộ để gửi cho người khác? Có thể dùng lệnh etransmit, chọn thêm lựa chọn Bind là xong.

[ThuyLinh313 156]

Lisp của bác Hà chỉ bind toàn bộ xref trong model, còn trong layout thì nó ignore (Cái này hình như bác sưu tầm ở đâu đó ^ ^).

Chắc vothanhdn muốn bind toàn bộ để gửi cho người khác? Có thể dùng lệnh etransmit, chọn thêm lựa chọn Bind là xong.

 

Nghĩa là thế nào hả bạn. mình dùng etransmit không có lựa chọn Bind

Lisp trên muốn sửa lại để chạy với tất cả layout cũng chắc cũng đơn giản thôi. 

[KangKung 250]

Cách đơn giản nhất để Bind tất cả các bản vẽ (kể cả Model lẫn Layout):

(command "XREF" "B" "*")

[vothanhdn 5]

Cách đơn giản nhất để Bind tất cả các bản vẽ (kể cả Model lẫn Layout):

(command "XREF" "B" "*")

 

Mình dùng cả Etransmit và dòng lệnh của bạn cũng không có kết quả Bind các bản vẽ trong Windows của CAD.

[gia_bach 1.549]

Tên topic không hợp lệ, nhưng hơn hai tuần rồi topic vẫn còn (không bị xóa) chắc là mod bỏ qua rồi.

gửi bạn Lisp bind xref cho file hiện hành.

Nếu OK thì việc dùng cho các file đang mở chỉ là chuyện nhỏ.

(defun c:XrefBind ()
  (vlax-map-Collection (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
    '(lambda (b)
       (if (= (vla-get-IsXRef b) :vlax-true)
	 (vl-catch-all-error-p
	   (vl-catch-all-apply 'vla-bind (list b :vlax-true)  ) )  )  )  ))

[phuongkq 0]

Cảm ơn các cao thủ rất nhiều!

thanks for all support!

[proconeng86 7]

 

Tên topic không hợp lệ, nhưng hơn hai tuần rồi topic vẫn còn (không bị xóa) chắc là mod bỏ qua rồi.

gửi bạn Lisp bind xref cho file hiện hành.

Nếu OK thì việc dùng cho các file đang mở chỉ là chuyện nhỏ.

(defun c:XrefBind ()
  (vlax-map-Collection (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
    '(lambda (b)
       (if (= (vla-get-IsXRef b) :vlax-true)
	 (vl-catch-all-error-p
	   (vl-catch-all-apply 'vla-bind (list b :vlax-true)  ) )  )  )  ))

 

Mình đã dùng thử lisp và thấy rất hay nhưng lisp có 1 hạn chế. Đó là những layer đã bị đóng băng hay tắt đi rồi nhưng khi dùng lisp để bind ra thì nó lại hiện hết cả ra, làm bản vẽ không đúng như ban đầu nên không dùng được nữa. bạn có thể sửa lỗi đó không?

[northface 2]

Cảm ơn các cao thủ rất nhiều!

thanks for all support!

 

 

 

 

viên uống giảm cân | bí quyết giảm cân | thức uống giảm cân

[northface 2]

Cách đơn giản nhất để Bind tất cả các bản vẽ (kể cả Model lẫn Layout):

 

 

 

 

 

 

vitamin cho bé | bổ sung vitamin

[gia_bach 1.549]

Mình đã dùng thử lisp và thấy rất hay nhưng lisp có 1 hạn chế. Đó là những layer đã bị đóng băng hay tắt đi rồi nhưng khi dùng lisp để bind ra thì nó lại hiện hết cả ra, làm bản vẽ không đúng như ban đầu nên không dùng được nữa. bạn có thể sửa lỗi đó không?

Nếu dùng lisp của Mr.Ha thì :

Bạn thay dòng : (vla-Bind tmp :vlax-true)

bằng dòng (vla-Bind tmp :vlax-false)

 

dùng lisp của Gia_Bach thì :

Bạn thay dòng : (list b :vlax-true)

bằng dòng (list b :vlax-false)

Chỉnh sửa Tháng 7 24, 2014 theo gia_bach

[phamhuy1 8]

ủa, cái lisp của bác gia_bach đâu thấy dòng nào là (vla-Bind tmp :vlax-true) để thay đâu? :(

[Doan Van Ha 3.192]

Chắc bác ấy đang nói tới cái lisp của ông ĐVH?

[phamhuy1 8]

à , e thấy rồi.Tahnks! :)

[cpnqte 0]

Cái này mình rất yêu đó

[proconeng86 7]

 

Tên topic không hợp lệ, nhưng hơn hai tuần rồi topic vẫn còn (không bị xóa) chắc là mod bỏ qua rồi.

gửi bạn Lisp bind xref cho file hiện hành.

Nếu OK thì việc dùng cho các file đang mở chỉ là chuyện nhỏ.

(defun c:XrefBind ()
  (vlax-map-Collection (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
    '(lambda (b)
       (if (= (vla-get-IsXRef b) :vlax-true)
	 (vl-catch-all-error-p
	   (vl-catch-all-apply 'vla-bind (list b :vlax-true)  ) )  )  )  ))

 

Lisp này rất là hay tuy nhiên chỉ bind được file đang mở. Mình làm với 1 bên kiến trúc, mỗi mặt bằng họ làm 1 file do đó để bind được hết cũng mất rất nhiều thời gian

Mình thấy Lee Mac có 1 lisp rất hay là copy một số đối tượng vào nhiều file mà không cần mở những file đó ra (lisp đính kèm)

Do đó mình nhờ các bạn cải thiện lisp bind trên theo hướng có thể bind bản vẽ mà không cần mở như của LeeMac thì tuyệt vời

Cám ơn các bạn nhiều

P/s: bạn Tot77 đã cải tiến lisp bind trên với 1 lựa chọn là có thể chọn đối tượng để bind hoặc bind tất cả. Các bạn cải tiến lisp của bạn Tot77 theo hướng là không cần mở bản vẽ mà vẫn bind được thì tuyêt nhất

 

http://www.mediafire.com/download/du0mgjnbwqbdb86/Copy2DrawingsV1-2.lsp

http://www.mediafire.com/download/t5soxppm4q3w4dg/bind_xref.lsp

[vanlanhdc08 0]

 

Lisp này rất là hay tuy nhiên chỉ bind được file đang mở. Mình làm với 1 bên kiến trúc, mỗi mặt bằng họ làm 1 file do đó để bind được hết cũng mất rất nhiều thời gian

Mình thấy Lee Mac có 1 lisp rất hay là copy một số đối tượng vào nhiều file mà không cần mở những file đó ra (lisp đính kèm)

Do đó mình nhờ các bạn cải thiện lisp bind trên theo hướng có thể bind bản vẽ mà không cần mở như của LeeMac thì tuyệt vời

Cám ơn các bạn nhiều

P/s: bạn Tot77 đã cải tiến lisp bind trên với 1 lựa chọn là có thể chọn đối tượng để bind hoặc bind tất cả. Các bạn cải tiến lisp của bạn Tot77 theo hướng là không cần mở bản vẽ mà vẫn bind được thì tuyêt nhất

 

http://www.mediafire.com/download/du0mgjnbwqbdb86/Copy2DrawingsV1-2.lsp

http://www.mediafire.com/download/t5soxppm4q3w4dg/bind_xref.lsp

bác cho em xin lại cái link die mất rồi bác cảm ơn bác nhiều nha

 

bác proconeng86 

[Biet ve CAD 258]

các bạn tham khảo lisp này cũng có chức năng Bind hàng loạt file Dwg nhé:

Xem thêm:

** lisp in nhiều bản vẽ : https://www.cadviet.com/forum/topic/175810-lisp-in-nhiều-bản-vẽ-model-layout-folder/

** Lisp tiện ích hay: https://www.youtube.com/watch?v=WX4JxEZNUAg&list=PL05frYPpT5LJUXFg-LYSgxvSmxzIPdoqA