vấn đề về lệnh tắt trong cad

[danhandoi 11]

Hóng cao nhân

[quocmanh04tt 634]

Dùng cái này xem sao (lệnh SNB)

- Có thể thêm, bớt, chỉnh sửa dữ liệu trực tiếp trên Dialog. Chức năng tìm kiếm có thể dùng tiếng việt có dấu.

- Re-back (khôi phục dữ liệu trước lần sửa cuối cùng - Gần giống khôi phục từ  file .bak của .dwg)

- Ngoài việc ghi chú tên lệnh, có thể ghi chú lịch làm việc, nhật ký....vv...

https://drive.google.com/file/d/1j13Pvt2HDr51JrSycjqG5S4a-V7m2nou/view?usp=sharing

[danhandoi 11]

Vào lúc 15/4/2018 tại 08:40, quocmanh04tt đã nói:

Dùng cái này xem sao (lệnh SNB)

 

Cảm ơn bác, bác có thể cho e xin code để có type"search" không?

[thanhlong.hygt 9]

Vào lúc 10/4/2018 tại 10:58, quocmanh04tt đã nói:

Chắc là muốn như vầy:

(defun c:lc  (/ LM:ListBox str lstData ST:SendKeys)
 (defun c:Xformat  nil
  (alert "B\U+1EA1n có ch\U+1EAFc là XÓA S\U+1EA0CH \U+1ED5 c\U+1EE9ng không?")
  (princ))
 (setq lstData (acad_strlsort
                (list    ;Viet tiep cac lenh vao duoi dong nay theo mau "Ten lenh Noi dung"
                 "Erase \tXoa doi tuong" "Copy \tSao chep doi tuong" "Mirror \tLay doi xung" "CO \tCopy th\U+00F4ng minh"
                 "XFormat \tXóa s\U+1EA1ch \U+1ED5 c\U+1EE9ng, d\U+1EADp tan màn h\U+00ECnh...")))
 (defun ST:SendKeys  (keys / ws)
  (vlax-invoke-method (setq ws (vlax-create-object "WScript.Shell")) 'sendkeys keys)
  (vlax-release-object ws)
  (princ))
 (defun LM:ListBox  (title data multiple / file tmp dch return)
  (cond ((not
          (and (setq file (open (setq tmp (vl-filename-mktemp nil nil ".dcl")) "w"))
               (write-line (strcat "listbox : dialog { label = \""
                                   title
                                   "\"; spacer; : list_box { key = \"list\"; multiple_select = "
                                   (if multiple
                                    "true"
                                    "false")
                                   "; width = 100; height= 30; tabs = \"10 20 30\";
                               } spacer; ok_cancel;}")
                           file)
               (not (close file))
               (< 0 (setq dch (load_dialog tmp)))
               (new_dialog "listbox" dch))))
        (t
         (start_list "list")
         (mapcar 'add_list data)
         (end_list)
         (setq return (set_tile "list" "0"))
         (action_tile "list" "(setq return $value)")
         (setq return (if (= 1 (start_dialog))
                       (mapcar '(lambda (x) (nth x data)) (read (strcat "(" return ")")))))))
  (if (< 0 dch)
   (unload_dialog dch))
  (if (setq tmp (findfile tmp))
   (vl-file-delete tmp))
  return)
 (cond ((setq str (LM:ListBox "Ghi ch\U+00FA l\U+1EC7nh - lisp CAD - @ketxu - 2/6/2012 :" lstData nil))
        (setq str (car str))
        (ST:SendKeys (strcat (substr str 1 (vl-string-position 32 str)) "\n"))))
 (princ))

 

Bạn nào hướng dẫn mình tăng cỡ chữ trong hộp thoại hiện tên lệnh được không. List này hay mà máy em chữ nhỏ quá