Duong Nhat Duy
-
Số lượng nội dung
679 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
156
Bài đăng được đăng bởi Duong Nhat Duy
-
-
11 giờ trước, chuong123 đã nói:Cảm ơn bạn đã chia sẻ cho mọi người,
- Nhờ bạn thêm update thêm 1 chức năng Fieldobjects cho số lượng Block
Cảm ơn bạn nhiều.Mình không hiểu gì cả, bạn nói rõ hơn nhé !
-
25 phút trước, chuong123 đã nói:cảm ơn bác đã trả trả lời..
Mình có dùng Field cho các bảng tổng hợp thì lỗi không nhận dữ liệu (như hình); còn dùng cho các lệnh khác thì Ok hết:
Trước tiên bạn FIELDDISPLAY nhập 1 đi cho mình dễ hình dung ra mọi thứ trong ảnh. Vì nó lỗi hơi vô lý, nếu mà lỗi khi tạo Field thì nó sẽ ra #### chứ không thể ra chữ số bình thường được.
-
1
-
-
2 phút trước, chuong123 đã nói:Thank bác.
Vậy chỉ áp dụng cho các lệnh DT1;CD1...: vì mấy lệnh này nó nằm trực tiếp trên hình rồi
Vậy có cách nào để Field từ các bảng tổng hợp không bác: Từ các lệnh: TH1; TH2,...Áp dụng cho tất cả các lệnh trong lisp luôn bạn nhé (trừ lệnh CD3), chỉ cần bạn tick ô Tạo field trong DTL là được.
-
Vào lúc 9/8/2024 tại 12:06, conghoa đã nói:Cái này có thêm được cột tính tổng Block có ký hiệu giống nhau không bác?
Vào lúc 21/9/2024 tại 10:01, dunghy đã nói:bạn thêm tổng các trạng thái như cùng 1 loại đó nhưng nó có trạng thái nhìn theo mặt và cho thêm nhập tuỳ chọn kích thước bảng thống kê không thank bạn !
Mình đã thêm 2 lệnh AT1N và DY1N vào bản v1.07 rồi nhé, giải quyết được các yêu cầu thống kê theo từng nhóm như trên. Các bạn xem lại hướng dẫn chi tiết ở đầu topic nhé.
-
1
-
-
Vào lúc 18/4/2025 tại 13:14, chuong123 đã nói:Bạn hướng dẫn thêm về chức năng này với, Mình có áp dụng nhưng không thành công.
- Để tra Field đang liên kết với những đối tượng nào, các bạn dùng lisp của Leemac trong link sau:
https://www.lee-mac.com/fieldobjects.html (Lệnh "fieldobjects", có thể tự đối lại tên)
Thank chủ thớt/
Cái này chỉ áp dụng khi kết quả bạn để dưới dạng Field.
Ví dụ trong hình trên: Bạn đã dùng lệnh DT2 tính tổng diện tích 3 hình, sau đó ghi ra 1 Text (dưới dạng Field). Để kiểm tra lại xem cái Text "48.152" đang tính diện tích của những đối tượng nào, bạn dùng lệnh Fieldobjects trong lisp của Leemac rồi bấm chọn Text, nó sẽ Highlight 3 đối tượng trong hình.
-
1
-
-
13 giờ trước, huyensim19 đã nói:@Duong Nhat Duy@makhorungxanh 2 BẠN CHO MÌNH XIN CÁI LISP STD ĐÃ CHỈNH NHA. THANKS
Lisp trên mình không lưu lại, nhưng lisp này có thể làm được bạn nhé:
-
Vào lúc 13/4/2025 tại 16:01, chuong123 đã nói:cảm ơn Bộ lisp rất hay mình xin góp ý thêm 1 chức năng nhỏ hy vọng có thể cập nhật thêm sau này
- Thêm chức năng Chèn vào sau text hiện có
Ví dụ: Phòng khách
kết quả: Phòng khách (30m2)
Nhưng cũng cảm ơn Pro..Cảm ơn bạn đã góp ý, mình đã thêm tính năng này vào bản 1.03b rồi nhé, bạn vui lòng down lại trong link gg.
1 giờ} trướ}c, nhjngj đã nói:Bác cho mình hỏi chút là mình muốn chỉnh khoảng cách giữa text kết quả và đối tượng đo thì chỉnh như nào bác nhỉ?
Bạn tìm đến dòng này:
(setq pt (polar pt (+ ang (/ pi 2)) (if (= 3DUY-TDT-BLOCK 1) 0 (if (= 3DUY-TDT-AUTO 1) (/ (getvar "VIEWSIZE") 50) 3DUY-TDT-HEIGHT))))và sửa nó thành:
(setq pt (polar pt (+ ang (/ pi 2)) (if (= 3DUY-TDT-BLOCK 1) 0 XXX)))với XXX là khoảng cách mong muốn.
-
2
-
-
Bạn tham khảo lisp này của mình nhé, cái này mình cũng tham khảo từ Leemac.
Tóm tắt trình tự các bước:
1. Khởi tạo biến: tên biến trùng với tên key; kiểu biến tùy vào cách quản lý của người code, trong bài này mình đang để tất cả là string.
2. Tạo file DCL: tạo trực tiếp trong file lisp chứ không cần tạo thông qua notepad
3. Set_tile: Tự động điền theo giá trị nhập trước đó (hoặc mặc định)
4. Lưu giá trị nhập vào biến khi người dùng bấm OK.
Phiên bản đơn giản
;Mo hop thoai DCL (defun C:tl ( / DCH DCL DIALOG TITLE) (setq title "DCL Sample v1.00") (setq dialog "DCL_SAMPLE") (setq dcl (vl-filename-mktemp nil nil ".dcl")) ;(setq dcl "C:\\Users\\duongnhatduy\\Desktop\\DCLSample.dcl");Sua dcl thanh duong dan bat ky neu muon xem file dcl (cond ((not (LM:dcl_write dcl dialog title)) (princ "\nDCL file could not be written.") ) ((<= (setq dch (load_dialog dcl)) 0) (princ "\nDCL file could not be loaded.") ) ((not (new_dialog dialog dch)) (princ "\nProgram dialog could not be loaded.") ) (t (setq LM-VAR-DEFAULT '( (LM-EDBOX1 . "1") (LM-EDBOX2 . "2") (LM-TOGGLE1 . "1") (LM-TOGGLE2 . "0") (LM-TOGGLE3 . "0") (LM-RADIO1 . "1") (LM-RADIO2 . "0") (LM-RADIO3 . "0") ) ) (mapcar '(lambda (lst) (if (not (eval (car lst))) (set (car lst) (cdr lst)))) LM-VAR-DEFAULT) (mapcar '(lambda (sym) (set_tile (vl-symbol-name sym) (eval sym))) (mapcar 'car LM-VAR-DEFAULT)) (action_tile "accept" (vl-prin1-to-string '(progn (mapcar '(lambda (sym) (set sym (get_tile (vl-symbol-name sym)))) (mapcar 'car LM-VAR-DEFAULT)) (done_dialog) ))) (action_tile "cancel" "(done_dialog)") (start_dialog) (unload_dialog dch) ) ) (princ) ) ;Tao file DCL (defun LM:dcl_write (dcl dialog title / des lst) (setq des (open dcl "w")) (setq lst (list dialog ": dialog" " {" (strcat "\tlabel = \"" title "\";") " : column" " {" " : boxed_column" " {" " label = \"Edit box\";" " : edit_box { key = \"LM-EDBOX1\"; label = \"Edit box 1\"; edit_width = 8; }" " : edit_box { key = \"LM-EDBOX2\"; label = \"Edit box 2\"; edit_width = 8; }" " }" " : boxed_column" " {" " label = \"Toggle\";" " : toggle { key = \"LM-TOGGLE1\"; label = \"Toggle 1\"; }" " : toggle { key = \"LM-TOGGLE2\"; label = \"Toggle 2\"; }" " : toggle { key = \"LM-TOGGLE3\"; label = \"Toggle 3\"; }" " }" " : boxed_column" " {" " label = \"Radio button\";" " : radio_button { key = \"LM-RADIO1\"; label = \"Radio 1\"; }" " : radio_button { key = \"LM-RADIO2\"; label = \"Radio 2\"; }" " : radio_button { key = \"LM-RADIO3\"; label = \"Radio 3\"; }" " }" " ok_cancel;" " }" " }" )) (foreach x lst (write-line x des)) (setq des (close des)) (while (not (findfile dcl))) dcl )Phiên bản đầy đủ hơn (có popup list và list box)
;Mo hop thoai DCL (defun C:tl ( / DCH DCL DIALOG TITLE) (setq title "DCL Sample v1.00") (setq dialog "DCL_SAMPLE") (setq dcl (vl-filename-mktemp nil nil ".dcl")) ;(setq dcl "C:\\Users\\duongnhatduy\\Desktop\\DCLSample.dcl");Sua dcl thanh duong dan bat ky neu muon xem file dcl (cond ((not (LM:dcl_write dcl dialog title)) (princ "\nDCL file could not be written.") ) ((<= (setq dch (load_dialog dcl)) 0) (princ "\nDCL file could not be loaded.") ) ((not (new_dialog dialog dch)) (princ "\nProgram dialog could not be loaded.") ) (t (LM:dcl_settile) (action_tile "LM-DEFAULT" "(LM:dcl_default)") (action_tile "accept" "(LM:dcl_savevar)") (action_tile "cancel" "(done_dialog)") (start_dialog) (unload_dialog dch) ) ) (princ) ) ;Tu dong dien theo bien (defun LM:dcl_settile () (start_list "LM-POPUP1" 3) (mapcar 'add_list LM-POPUP1-LIST) (end_list) (start_list "LM-LISTBOX1" 3) (mapcar 'add_list LM-LISTBOX1-LIST) (end_list) (mapcar '(lambda (sym) (set_tile (vl-symbol-name sym) (eval sym))) (mapcar 'car LM-VAR-DEFAULT)) ) ;Khoi phuc cai dat mac dinh (defun LM:dcl_default () (mapcar '(lambda (lst) (set_tile (vl-symbol-name (car lst)) (cdr lst))) LM-VAR-DEFAULT) ) ;Luu gia tri dien vao bien (defun LM:dcl_savevar () (mapcar '(lambda (sym) (set sym (get_tile (vl-symbol-name sym)))) (mapcar 'car LM-VAR-DEFAULT)) (done_dialog) ) ;Khoi tao bien (defun LM:dcl_setvar () (setq LM-VAR-DEFAULT '( (LM-EDBOX1 . "1") (LM-EDBOX2 . "2") (LM-TOGGLE1 . "1") (LM-TOGGLE2 . "0") (LM-TOGGLE3 . "0") (LM-RADIO1 . "1") (LM-RADIO2 . "0") (LM-RADIO3 . "0") (LM-POPUP1 . "0") (LM-LISTBOX1 . "") ) ) (setq LM-POPUP1-LIST '( "Choice 1" "Choice 2" "Choice 3" "Choice 4" "Choice 5" ) ) (setq LM-LISTBOX1-LIST '( "Choice 1" "Choice 2" "Choice 3" "Choice 4" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" "Choice 5" ) ) (mapcar '(lambda (lst) (if (not (eval (car lst))) (set (car lst) (cdr lst)))) LM-VAR-DEFAULT) (princ) ) (LM:dcl_setvar) ;Tao file DCL (defun LM:dcl_write (dcl dialog title / des lst) (setq des (open dcl "w")) (setq lst (list dialog ": dialog" " {" (strcat "\tlabel = \"" title "\";") " : column" " {" " : row" " {" " : column" " {" " fixed_width = true ;" " width = 30 ;" " : boxed_column" " {" " label = \"Edit box\";" " : edit_box { key = \"LM-EDBOX1\"; label = \"Edit box 1\"; edit_width = 8; }" " : edit_box { key = \"LM-EDBOX2\"; label = \"Edit box 2\"; edit_width = 8; }" " }" " : boxed_column" " {" " label = \"Toggle\";" " : toggle { key = \"LM-TOGGLE1\"; label = \"Toggle 1\"; }" " : toggle { key = \"LM-TOGGLE2\"; label = \"Toggle 2\"; }" " : toggle { key = \"LM-TOGGLE3\"; label = \"Toggle 3\"; }" " }" " : boxed_column" " {" " label = \"Radio button\";" " : radio_button { key = \"LM-RADIO1\"; label = \"Radio 1\"; }" " : radio_button { key = \"LM-RADIO2\"; label = \"Radio 2\"; }" " : radio_button { key = \"LM-RADIO3\"; label = \"Radio 3\"; }" " }" " }" " : column" " {" " fixed_width = true ;" " width = 35 ;" " : boxed_column" " {" " label = \"Popup list\";" " : popup_list { key = \"LM-POPUP1\"; label = \"Popup list 1\"; edit_width = 15; }" " }" " : boxed_column" " {" " label = \"List box\";" " : list_box { key = \"LM-LISTBOX1\"; label = \"List box 1\"; multiple_select = true; height = 10; width = 15; }" " }" " }" " }" " : boxed_column" " {" " label = \"Text\";" " : text { key = \"LM-TEXT1\"; value = \"Text 1\"; }" " : text { key = \"LM-TEXT2\"; value = \"Text 2\"; }" " : text { key = \"LM-TEXT3\"; value = \"Text 3\"; }" " }" " : row" " {" " : spacer { width = 5 ; }" " : button { key = \"LM-DEFAULT\"; label = \"Default\"; fixed_width = true; width = 12 ; }" " : button { key = \"accept\"; label = \"OK\"; is_default = true; fixed_width = true; width = 12 ; }" " : button { key = \"cancel\"; label = \"Cancel\"; is_default = false; is_cancel = true; fixed_width = true; width = 12 ; }" " : spacer { width = 5 ; }" " }" " }" " }" )) (foreach x lst (write-line x des)) (setq des (close des)) (while (not (findfile dcl))) dcl ) -
Vào lúc 13/4/2025 tại 21:24, Zoi đã nói:Cám ơn đã share lisp.
TBE: Với option "Dùng cho Sheet Excel hiện hành" hiểu là 1 file excel đang mở, và sheet đang có focus. Mình đang dùng Office 365, thì không thấy có dữ liệu chuyển từ CAD sang.
Còn option "Tạo file excel mới" thì ok, tự chạy excel và lấy data sang.
Có 1 vấn đề nữa: tạo bảng thống kê bằng lisp của Duy, ATK. Xong TBE bảng đó sang Excel thì cái Table Title đang ở chế độ merge cell thì sang excel mất merge. "Danh mục bản vẽ" bay về ô A1.
Lỗi xuất file excel hiện hành mình đã tìm ra và fix lại rồi nhé, bạn down lại trong link gg là được.
-
2 giờ trước, 0983104985 đã nói:list tính diện tích trong miền hacht bạn ạ
Lisp gì bạn phải up lên đây chứ nói thế ai mà biết được lisp gì, lisp tính diện tích hatch trên forum có cả trăm cái biết là cái nào ?
-
11 giờ trước, Zoi đã nói:Cám ơn đã share lisp.
TBE: Với option "Dùng cho Sheet Excel hiện hành" hiểu là 1 file excel đang mở, và sheet đang có focus. Mình đang dùng Office 365, thì không thấy có dữ liệu chuyển từ CAD sang.
Còn option "Tạo file excel mới" thì ok, tự chạy excel và lấy data sang.
Có 1 vấn đề nữa: tạo bảng thống kê bằng lisp của Duy, ATK. Xong TBE bảng đó sang Excel thì cái Table Title đang ở chế độ merge cell thì sang excel mất merge. "Danh mục bản vẽ" bay về ô A1.
- Lỗi xuất file excel hiện hành có thể do máy nên bạn chịu khó dùng option còn lại nhé.
- Hiện tại lisp của mình chỉ đơn giản là xuất nội dung Text bên trong bảng thôi, vấn đề về merge cell có thể mình sẽ nghiên cứu sau.
-
1
-
-
1 giờ} trướ}c, Tya đã nói:Gà Autocad:
Hiện tại e muốn thay đổi màu của các BLOCK ATT, các bác cho e hỏi là có cách nào thay đổi đồng thời tất cả ngoài cách chỉnh sửa từng BLOCK ATT trong khung tên không ạ. Em đã thử chỉnh trong Block Editor như hình 1 nhưng không được.
Đối với Att trong Block, khi thay đổi các thuộc tính ví dụ Style, Color,... thì ngoài Model sẽ không nhảy theo, mà phải dùng thêm 1 lệnh ATTSYNC (nhập ngoài model) nữa nó mới nhảy.
-
51 phút trước, vostro 1500 đã nói:Mình dùng nhiều lisp nên bị tình trạng thay đổi biến hệ thống: khi bấm chọn line (hay 1 block động ) : nhập 100 -> line dãn dài ra thêm 100.
Mình muốn như Trước đây (mình đã chỉnh mà quên mất biến hệ thống là gì) khi chọn 1 object line -> trên line sẽ hiện lên 1 bảng số trắng nhập 100 -> tổng chiều dài line là 100 (hay bất kỳ chiều dài nào mình muốn như hình). Rất tiện lợi.
Mong các bác giúp mình thay biến hệ thống nào nhé.
Xin cảm ơn!
Bạn vào OSNAP, chọn thẻ Dynamic Input, tick chọn tất cả mọi thứ trong đó là được.
-
1
-
-
2 giờ trước, NTHAHT đã nói:À, phải để lispsys = 1, mới xuất được unicode không lỗi. Như vậy cad nào có lispsys mới dùng tốt, hình như là từ cad2021 về sau thì phải???
Thì cài cad đời cao thôi bạn :). Hay bạn có cách nào khác bày giúp mình với, thanks bạn nha !
16 giờ trước, vostro 1500 đã nói:Lisp rất hay. Nhưng bị gò bó đối tượng. Mình mong bạn @Duong Nhat Duy có thể mở rộng thêm đối tượng là Table, ATT -> để kết hợp dc lisp Thống kê của bạn Duy -> sang excel rất tiện lợi.
Mình xin gửi 1 lisp chuyên xử lý table->excel (mình không nhớ tác giả) ngắn gọn nhưng hiệu quả -> để các bạn tham khảo. Mong lắm update của bạn Duy.
PS do mình ko rành lisp nên phải nhờ các bạn chuyên chứ ko phải là mình lười :(Mình đã cập nhật thêm lệnh TBE rồi nhé, bạn xem lại trên đầu topic và down lại trong link nhé !
-
1
-
1
-
-
38 phút trước, NTHAHT đã nói:Hình như chưa hỗ trợ unicode thì phải???
Vấn đề là Table sử dụng unicode.
Unicode xuất bình thường như hình GIF mà bạn.
Còn về vấn đề table sang excel chắc mình sẽ chế thêm 1 lệnh khác.
-
1
-
-
10 giờ trước, vostro 1500 đã nói:Lisp rất hay. Nhưng bị gò bó đối tượng. Mình mong bạn @Duong Nhat Duy có thể mở rộng thêm đối tượng là Table, ATT -> để kết hợp dc lisp Thống kê của bạn Duy -> sang excel rất tiện lợi.
Mình xin gửi 1 lisp chuyên xử lý table->excel (mình không nhớ tác giả) ngắn gọn nhưng hiệu quả -> để các bạn tham khảo. Mong lắm update của bạn Duy.
PS do mình ko rành lisp nên phải nhờ các bạn chuyên chứ ko phải là mình lười :(Đã là Table rồi thì Export sang Excel thôi bạn cần gì lisp nữa ?? Còn về thông kê Block, Att, tạo bảng cad cũng như excel thì mình có 1 lisp khác viết riêng cho vấn đề này rồi nhé !
-
1
-
-
Gửi đến các bạn 1 lisp chuyển đổi Text từ AutoCAD sang Excel. Vì không phải là 1 vấn đề gì đó quá mới mẻ nên mình sẽ viết với mục tiêu là dễ sử dụng và có tính thích nghi cao, ứng dụng cho nhiều yêu cầu đề bài phức tạp.
Công dụng
- Chuyển Text, Mtext từ AutoCAD sang Excel:
+ Dữ liệu đầu vào: Text và Mtext (lưu ý lisp sẽ căn cứ vị trí text theo Điểm Căn lề-Text Alignment)
+ Dữ liệu đầu ra: Nội dung của các text trên được paste sang Excel (file excel hiện hành hoặc tạo mới), dữ liệu được paste theo nhiều hàng cột, hoặc 1 hàng/cột theo tùy chọn của người dùng
- Chuyển Table từ AutoCAD sang Excel (không bị lỗi dấu tiếng Việt)
+ Dữ liệu đầu vào: 1 hoặc nhiều Table
+ Dữ liệu đầu ra: 1 hoặc nhiều Sheet trong 1 file Excel tạo mới
Tên lệnh:
TTE - Chuyển Text, Mtext từ AutoCAD sang Excel
TBE - Chuyển Table từ AutoCAD sang Excel
TTE - Chuyển Text, Mtext từ AutoCAD sang Excel
- Chuyển Text sang Excel theo hàng cột
- Trường hợp Text đầu vào không thẳng hàng tuyệt đối, hoặc bảng có những ô trống, lisp vẫn có thể hiểu được, khi đó cần nhập sai số khoảng cách hàng/cột. Lưu ý: nhập vừa đủ vì nếu nhập quá nhỏ thì các text hơi lệch nhau sẽ bị hiểu là nằm trên các hàng/cột khác nhau; nếu nhập quá lớn, lisp sẽ hiểu 2 hàng/cột sát nhau là 1.
- Chuyển Text sang Excel theo 1 hàng hoặc 1 cột, theo thứ tự người dùng tùy chọn, ví dụ: trên>dưới, trái>phải, theo chiều Pline, theo thứ tự pick chọn.
TBE - Chuyển Table từ AutoCAD sang Excel
- Dữ liệu đầu vào: 1 hoặc nhiều Table
- Dữ liệu đầu ra: 1 hoặc nhiều Sheet trong 1 file Excel tạo mới
- Lưu ý: trước khi dùng lệnh phải cài biến LISPSYS về 1
Link download
https://drive.google.com/drive/u/1/folders/1cgAEdSnXy4s48-0PP8XTTtDfWJNlanVR
Chúc các bạn thành công :)))
-
2
-
2
-
-
Vào lúc 25/1/2025 tại 08:44, Le Quang Arc đã nói:Cảm ơn A Duy, lisp rất hay. A cho e hỏi tí, lisp ATL, ATK có thể xuất danh mục nếu att text tên bản vẽ có multiple line ko và có thể bảng quy định số dòng hiển thị ko (ví dụ có 42 hàng -> bảng có 15 hàng và chia thành 3 cột). E cảm ơn nhiều nhé!
Cái này quá phức tạp và cá nhân, bạn vui lòng làm thủ công nhé !
Vào lúc 12/3/2025 tại 20:07, Lin đã nói:Anh Duy có lisp nào thống kê Mline theo từng Mline Scale không ạ
Lisp này chỉ thống kê Block chứ không liên quan gì đến các đối tượng khác bạn nhé, bạn vui lòng search topic khác trên forum !
1 giờ trước, hmai57 đã nói:lisp của anh rất hay ạ, em có thể cài đặt để thống kê theo cột này không ạ, ví dụ G4Q sắp xếp hết G4Q rồi mới đến RLL ạ, mong anh giải đáp ạ!
Khi muốn sắp xếp thì bắt buộc phải dùng ATL và ATK (như hình là bạn đang dùng AT1, lệnh này thì không hỗ trợ sắp xếp), bạn đọc kỹ lại hướng dẫn, mình đã nói rõ cả phần khai báo và sắp xếp theo cột rồi !
-
1
-
-
10 giờ trước, vcdichoi đã nói:Bác cho em hỏi nếu muốn diên tích quy đổi ra m2 thì làm cách nào ạ, em thấy diện tích đang quy đổi ra mm2
Em xin cảm ơn Bác!
Bạn xem trong lệnh DTL nhé, và đọc kỹ trong hướng dẫn đầu topic luôn !
-
1
-
-
Vào lúc 10/2/2025 tại 09:18, Zoi đã nói:Mình có để ý thì Q1 và SW nếu copy field hoặc swap text có field thì cái field nó mất link và chuyển thành ####. Copytext của Lee - Mac là convert field thành text, nên khi copy giữ nội dung.
Thêm nữa là Q1 copy text VD mình có TextA, Text B link với Text A để A thay đổi thì B thay theo. Giờ copy Text C vào A, thì field ko tự update mà phải refresh mới được (lisp của Lee-mac là up ngay lập tức) Cơ chế ở đây là khác nhau chỗ nào nhỉ ?.
Nghiên cứu thêm đc ko Duy ơi ???
Ý 1 là do lỗi lisp, để mình kiểm tra lại.
Ý 2 là lisp của Leemac có thêm lệnh Regen ở cuối. Trường hợp có 1 text thứ 3 được gán giá trị cho 2 text mà mình swap thì lisp của mình nó sẽ không tự regen, để nhận biết được trường hợp này thì chắc là rất khó nên tạm thời mình bỏ qua ý này nhé, gặp trường hợp này thì bạn regen tay thôi.
-
1
-
-
Vào lúc 14/1/2025 tại 17:50, Xuân Lộc đã nói:Mong anh thêm lệnh có chức năng giống lệnh Q1 nhưng nó gán field được không ạ. Q1 thì truyền text gốc đến các text field
Mình đã cập nhật thêm tính năng này rồi nhé, bạn down lại bản 1.01 trong link gg.
-
Hoặc bạn có thể dùng lisp này, lệnh NDC, sẽ ra được cái kết quả tương tự như lisp thống kê text, nhưng là định dạng bảng autocad. Sau đó để xuất Excel, bạn chọn bảng, bấm chuột phải, chọn Export là xong chứ không cần lisp nữa.
-
1
-
-
Lisp này dùng hàm command nên khả năng hên xui máy được máy không, tùy vào đời cad và cài đặt cad. Nếu dùng cad đời cao thì bạn thử nhấn lệnh HATCHGENERATEBOUNDARY xem.
-
1
-
-
10 giờ trước, NGUYENBINH213209 đã nói:https://www.mediafire.com/file/oppke3pwmejeksr/MB-TD_TNM_CCN_TN_-_Copy.dwg/file
Duong Nhat Duy, mình có cái file cad (hơn 1,8mb) đã dùng lisp thống kế hố ga ra các loại bảng thống kê. Bạn cho mình hỏi làm sao xuất excel được vậy.
Khi muốn xuất tất cả thông tin trong Block Att ra excel thì tốt nhất bạn nên dùng lệnh ATTOUT của cad luôn nhé ! Còn muốn xuất 1 bảng bất kỳ (AutoCAD Table) ra Excel thì bạn chuột phải vào bảng rồi chọn Export là được.
-
1
-
Lisp Chuyển Text từ CAD sang Excel
trong AutoLisp
Đã đăng · Trả lời báo cáo
Có thể nó lỗi giữa chừng, bạn thao tác lại rồi ấn F2 chụp hình, và gửi file mình kiểm tra nhé !