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  
hoangkimoanh

[yêu cầu] Nhờ sửa code copy sang bản vẽ mới

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

cái code này có mục đích để copy và paste sang file mới, nhưng khi thực hiện lệnh thì nó có sang file mới,nhưng lại hiện sau file mình đang làm việc.

Nhờ các anh sửa giúp để khi Paste sang file mới thì file mới sẽ mở ngay trước mắt màn hình làm việc của mình. cảm ơn các anh! 

 

(defun c:test(/ app docs doc objects ss i n sslist)
  (setq app (vlax-get-acad-object))
  (setq doc (vla-get-activedocument app))
  (setq docs (vla-get-documents app))
  (setq ss (ssget))
  (setq n (sslength ss)
        i 0)
  (repeat n
    (setq sslist (append sslist (list (vlax-ename->vla-object (ssname ss i)))))
    (setq i (1+ i))
  )
  (setq objects (vlax-make-safearray vlax-vbObject (cons 0  (1- n))))
  (vlax-safearray-fill objects sslist)
  (setq doc_new (vla-add docs "acad.dwt"))
  (vla-copyobjects doc objects (vla-get-modelspace doc_new))
(command "_.zoom" "_e")
   (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
Tue_NV    3.841

Nhân tiện topic này, KetXu và các bác cho Tue_NV hỏi về "Activate"

Mình mở 1 file Excel và 1 file CAD

Có cách nào từ viết lisp từ  file CAD làm để file Excel hiện ra trước màn hình?

Mình sử dụng method Activate với workbook nhưng nhận kết quả là :vlax-true. File Excel không xuất hiện ra trước mặt mình

(Không sử dụng cách Save rồi open file Excel lên. Vì nếu File Excel có link với file Excel khác thì lại hiện ra dòng cảnh báo của Excel "This workbook contains link to other data source....... "

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

cho em phiền 1 chút nữa là cái (command "_.zoom" "_e") này không có tác dụng với bản vẽ mới phải không các anh? nếu muốn khi thực hiện xong nó zoom e tới đối tượng vừa copy thì làm thế nào ạ!
 

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  

×