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  
archp209

[Yêu Cầu] Lisp Chuyển Dim Từ Dim Model Sang Dim Layout

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

archp209    1

chuyện là thế này a. em thường sử dụng 2 loại dim . 1 là dim 1/100 để vẽ bên model và 1 là dim layout để vẽ bên layout . bác anò giúp em cái lisp chuyển nhank giưuã 2 kiểu dim này đc không . em xin chân thànk cảm ơn ạ 

  • Vote giảm 1

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
Danh Cong    109

Điền tên 2 loại Dimension vào chỗ bôi xanh.

 

(defun c:a ()

(command "-dimstyle" "r" "aaa" ))

(defun c:b ()

(command "-dimstyle" "r" "bbb"))

  • Vote tăng 1

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
dinhvantrang    64

không biết về lisp nhưng mình đưa ra ý tưởng là khi tác giả chuyển Model-Layout hoặc ngược lại thì chạy cái Lisp này thì ngon. Đỡ phải bấm lệnh

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
Danh Cong    109

không biết về lisp nhưng mình đưa ra ý tưởng là khi tác giả chuyển Model-Layout hoặc ngược lại thì chạy cái Lisp này thì ngon. Đỡ phải bấm lệnh

^^ Cái này thì em chịu bác ạ. Chắc phải để mấy bác uyên thâm hơn làm tiếp.

Mà 1 nút bấm lệnh = nốt nhạc thôi mà,  <_<  <_<

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
archp209    1

Điền tên 2 loại Dimension vào chỗ bôi xanh.

 

(defun c:a ()

(command "-dimstyle" "r" "aaa" ))

(defun c:b ()

(command "-dimstyle" "r" "bbb"))

em cảm ơn bác nhiều ạ <3

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
ketxu    2.649

không biết về lisp nhưng mình đưa ra ý tưởng là khi tác giả chuyển Model-Layout hoặc ngược lại thì chạy cái Lisp này thì ngon. Đỡ phải bấm lệnh

Reactor/ Event làm đơn giản cực ^^
  • Vote tăng 2

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
quocmanh04tt    385

Vừa mới nghiên cứu quả Reactor:

 

(defun activedimstyle  (my_dimstyle / active-document my_dimstyle_ob)
  (setq active-document (vla-get-activedocument (vlax-get-acad-object)))
  (if (tblsearch "DIMSTYLE" my_dimstyle)
    (progn (setq my_dimstyle_ob (vla-item (vla-get-dimstyles active-document) my_dimstyle))
           (vla-put-activedimstyle active-document my_dimstyle_ob)
           (vlax-release-object my_dimstyle_ob))))
(vlr-miscellaneous-reactor nil '((:vlr-layoutSwitched . reactor_layoutsw)))
(defun reactor_layoutsw (reactor_name layout_name) (switch_dimstyle))
(defun switch_dimstyle  ()
  (cond ((= (getvar "tilemode") 1) (activedimstyle
"DIM-MODEL"))
        ((= (getvar "tilemode") 0) (activedimstyle
"DIM-LAYOUTS"))))

 

*** Hướng dẫn:

+ Chép đoạn lisp trên vào 1 file lsp nào đó.

+ "DIM-MODEL" là tên dimstyle sẽ dùng trong model (sửa cái này cho phù hợp với bản vẽ hiện có)

+ "DIM-LAYOUTS" Tương tự trên, dim dùng bên layouts.

+ Appload...

+ Xem kết quả...

 

P/s: Đang nghiên cứu nên mù mờ, bác nào đi qua, xin chỉ giáo thêm...!

  • Vote tăng 3

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
Danh Cong    109

Các bác nghiên cứu nhiều quá.... em chịu thua  :ph34r:  :ph34r:  :ph34r:.... :huh:  :huh:  :huh:

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
jangboko    3

Vừa mới nghiên cứu quả Reactor:

 

(defun activedimstyle  (my_dimstyle / active-document my_dimstyle_ob)

  (setq active-document (vla-get-activedocument (vlax-get-acad-object)))

  (if (tblsearch "DIMSTYLE" my_dimstyle)

    (progn (setq my_dimstyle_ob (vla-item (vla-get-dimstyles active-document) my_dimstyle))

           (vla-put-activedimstyle active-document my_dimstyle_ob)

           (vlax-release-object my_dimstyle_ob))))

(vlr-miscellaneous-reactor nil '((:vlr-layoutSwitched . reactor_layoutsw)))

(defun reactor_layoutsw (reactor_name layout_name) (switch_dimstyle))

(defun switch_dimstyle  ()

  (cond ((= (getvar "tilemode") 1) (activedimstyle "DIM-MODEL"))

        ((= (getvar "tilemode") 0) (activedimstyle "DIM-LAYOUTS"))))

 

*** Hướng dẫn:

+ Chép đoạn lisp trên vào 1 file lsp nào đó.

+ "DIM-MODEL" là tên dimstyle sẽ dùng trong model (sửa cái này cho phù hợp với bản vẽ hiện có)

+ "DIM-LAYOUTS" Tương tự trên, dim dùng bên layouts.

+ Appload...

+ Xem kết quả...

 

P/s: Đang nghiên cứu nên mù mờ, bác nào đi qua, xin chỉ giáo thêm...!

thank bác, lisp chạy êm, đang trong quá trình kiểm định

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  

×