Xin chào các bạn ! Nhờ các bạn xem giúp ! xin cám ơn

[enscap 0]

Mình tìm được lisp trên 1 web  lisp này thay đổi kiểu dim 

Nhưng không có phần chọn dim, chỉ hiện lên các dim hiện có.

Vậy nhờ các bạn biết về lisp xem giúp và thêm phần chọn kiểu dim để thay đội .

xin chân thành cám ơn !

(defun c:CHDM (/ sclst dms dmlst dcl_id wri)
 (setq dmlst '()
      obj (vlax-get-acad-object)
      doc (vla-get-activedocument obj)
      dms (vla-get-dimstyles doc))
(vlax-for x dms (setq dmlst (cons (vla-get-name x) dmlst)))
(setq dcl_id (vl-filename-mktemp nil nil ".dcl")
      wri (open dcl_id "w"))
  (foreach x '(
           "dimsty : dialog"
           "{label = \"DimStyle List\";"
           ":list_box {key = \"dmstyle\";" "multiple_select = false; height=10;}"
           "ok_cancel;"
           "}"
           )
  (write-line x wri))
  (setq wri (close wri))
(< 0 (setq dcl-load (load_dialog dcl_id))
(if (not (new_dialog "dimsty" dcl-load))(exit)))
(start_list "dmstyle")(mapcar 'add_list dmlst)(end_list)
(action_tile "dmstyle" "(setq sclst (get_tile \"dmstyle\"))")
(action_tile "accept" "(done_dialog)(setq clk t)")
(action_tile "cancel" "(done_dialog)(setq clk nil)")
(start_dialog)    
(unload_dialog dcl-load)
(if clk
  (if sclst
    (progn
    (setq secstl (nth (atoi sclst) dmlst))
    (vla-put-activedimstyle doc (vla-item (vla-get-Dimstyles doc) secstl)))))
(princ))

[enscap 0]

xin cám ơn @pkhang35  nhưng vẫn chưa chọn được kiểu dim muốn thay đổi , Bạn xem lại giúp !

[tien2005 257]

5 giờ trước, enscap đã nói:

Mình tìm được lisp trên 1 web  lisp này thay đổi kiểu dim 

Nhưng không có phần chọn dim, chỉ hiện lên các dim hiện có.

Vậy nhờ các bạn biết về lisp xem giúp và thêm phần chọn kiểu dim để thay đội .

xin chân thành cám ơn !

(defun c:CHDM (/ sclst dms dmlst dcl_id wri)
 (setq dmlst '()
      obj (vlax-get-acad-object)
      doc (vla-get-activedocument obj)
      dms (vla-get-dimstyles doc))
(vlax-for x dms (setq dmlst (cons (vla-get-name x) dmlst)))
(setq dcl_id (vl-filename-mktemp nil nil ".dcl")
      wri (open dcl_id "w"))
  (foreach x '(
           "dimsty : dialog"
           "{label = \"DimStyle List\";"
           ":list_box {key = \"dmstyle\";" "multiple_select = false; height=10;}"
           "ok_cancel;"
           "}"
           )
  (write-line x wri))
  (setq wri (close wri))
(< 0 (setq dcl-load (load_dialog dcl_id))
(if (not (new_dialog "dimsty" dcl-load))(exit)))
(start_list "dmstyle")(mapcar 'add_list dmlst)(end_list)
(action_tile "dmstyle" "(setq sclst (get_tile \"dmstyle\"))")
(action_tile "accept" "(done_dialog)(setq clk t)")
(action_tile "cancel" "(done_dialog)(setq clk nil)")
(start_dialog)    
(unload_dialog dcl-load)
(if clk
  (if sclst
    (progn
    (setq secstl (nth (atoi sclst) dmlst))
    (vla-put-activedimstyle doc (vla-item (vla-get-Dimstyles doc) secstl)))))
(princ)) 

lisp trên của bạn giống như chức năng đã có trên cad  

thêm phần chọn kiểu dim để thay đội: chưa rõ ý này. Cần thiết thì đưa hình minh hoạ hoặc file cad mô tả cụ thể

[enscap 0]

xin cám ơn @tien2005

Minh hay format bản vẽ của các đon vị khác về chuẩn công ty.

Và ít sử dụng phần điều chỉnh trên thanh toolbar.

Và mình tìm được lisp trên web của 1 diễn ddđàn về cad

Lisp này chỉ hiện các kiểu dim trong bản vẽ và khong cho chọn dim cần thay đổi dim stye

Mình mong muôn : chọn kiểu dim và thay đổi kiểu dim từ bảng hộp thoại này 

Xin cám ơn bạn .

 

[tien2005 257]

Ý bạn là muốn chọn leader, dim có dimstyle A chuyển thành dimstyle B là chuẩn cty ?