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  
elleHCSC

Giúp tôi đoạn lisp tạo block

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

elleHCSC    98

(defun Tao_BL ()
  (setq tbl (tblsearch "block" "$$$"))
  (if(= nil tbl)
     (progn
         (command "block" "$$$" "0,0" "all" "" )
  (command "insert" "$$$" "0,0" "1" "1" "0" )
     )	
  ); if
)

 

Tôi muốn mở bản vẽ bất kỳ ra, cho chạy đoạn lisp Tao_BL thì cả bản vẽ sẽ biến thành 1 Block có tên $$$. Tuy nhiên nếu ko có dòng

 

(command "insert" "$$$" "0,0" "1" "1" "0" )

 

thì toàn bộ bản vẽ "biến mất". Thực chất toàn bộ bản vẽ đã được tạo thành Block có tên $$$ và tôi phải cho thêm đoạn code:

(command "insert" "$$$" "0,0" "1" "1" "0" )

để chèn cái block $$$ đó trở lại bản vẽ. Tuy nhiên nếu với đoạn code trên mà file vẽ lớn nó chạy rất chậm.

 

Bác nào giúp tôi vớ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
(defun Tao_BL ()
  (setq tbl (tblsearch "block" "$$$"))
  (if(= nil tbl)
     (progn
         (command "block" "$$$" "0,0" "all" "" )
  (command "insert" "$$$" "0,0" "1" "1" "0" )
     )	
  ); if
)

 

Ban có thể thay đoạn code (command "insert" "$$$" "0,0" "1" "1" "0" )

bằng (command "oops")

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
elleHCSC    98
Ban có thể thay đoạn code (command "insert" "$$$" "0,0" "1" "1" "0" )

bằng (command "oops")

Cám ơn bạn đã chỉ giúp nhưng nếu dùng "oops" thì toàn bộ bản vẽ của tôi nó trở lại như ban đầu, khi pick vào các đối tượng nó vẫn rời rạc, chỉ khác là trong bản vẽ sẽ có thêm 1 block $$$. Cái tôi cần là làm 1 đoạn lisp để biến toàn bộ bản vẽ hiện tại thành 1 khối (block) cơ, nghĩa là sau khi chạy xong thì ta dùng lệnh "li" và chọn vào cái khối đó cad sẽ báo đại loại như sau :

 

 

BLOCK REFERENCE Layer: "2"

Space: Model space

Handle = 5422

"$$$"

at point, X= 0.0000 Y= 0.0000 Z= 0.0000

X scale factor 1.0000

Y scale factor 1.0000

rotation angle 0

Z scale factor 1.0000

....

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  

×