huunhantvxdts 195 Báo cáo bài đăng Đã đăng Tháng 9 18, 2018 Mình muốn chuyển dữ liệu text từ cad qua excell mình có sưu tầm được cái mở lên và tạo thêm sheets (cái này mỗi lần ghi sẽ tạo 1 sheet không phù hợp với cái mình cần) (setq xlApp (vlax-get-or-create-object "Excel.Application") xlCells (vlax-get-property (vlax-get-property (vlax-get-property (vlax-invoke-method (vlax-get-property xlApp "Workbooks") "Add") "Sheets") "Item" 1) "Cells")) (vla-put-visible xlApp :vlax-true) (setq cell (vlax-get-property xlApp 'ActiveCell)) Nhờ mọi người ai biết chỉ giúp 1. Nếu chưa mở excell lên thì mở excell lên ghi dữ liệu 2. Nếu đã mở rồi thì ghi dữ liệu vào cell hiện hành Cám ơn mọi người nhiều 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
Doan Van Ha 3202 Báo cáo bài đăng Đã đăng Tháng 9 18, 2018 Lee mac có vụ này khá hoàn chỉnh. Bạn tìm web của LM xem. 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
huunhantvxdts 195 Báo cáo bài đăng Đã đăng Tháng 9 18, 2018 13 phút trước, Doan Van Ha đã nói: Lee mac có vụ này khá hoàn chỉnh. Bạn tìm web của LM xem. Cám ơn bác, tìm hồi nãy đến giờ mà chưa thấy 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
Doan Van Ha 3202 Báo cáo bài đăng Đã đăng Tháng 9 18, 2018 Đây là 1 file lsp tôi lưu và có chỉnh sửa. Xuat_Nhap_Excel.lsp 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
Sây đt 1 Báo cáo bài đăng Đã đăng Tháng 9 19, 2018 Lisp của 2 bác huunhantvxdts và Doan Van Ha em không biết cách xài ạ, không biết lệnh tắt như thế nào, em không rành về lisp mong các bác chỉ giáo 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 422 Báo cáo bài đăng Đã đăng Tháng 9 19, 2018 41 phút trước, Sây đt đã nói: Lisp của 2 bác huunhantvxdts và Doan Van Ha em không biết cách xài ạ, không biết lệnh tắt như thế nào, em không rành về lisp mong các bác chỉ giáo Một thanh niên vào hóng... Nhưng không hớt được gì .. :))) 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
phatthu123 0 Báo cáo bài đăng Đã đăng Tháng 9 20, 2018 Vào lúc 18/9/2018 tại 22:16, Doan Van Ha đã nói: Lee mac có vụ này khá hoàn chỉnh. Bạn tìm web của LM xem. Cảm ơn bác 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
thanchauvn 2 Báo cáo bài đăng Đã đăng Tháng 9 20, 2018 CHo hỏi cách sử dụng líp này như thế nào với? (defun C:mcc () (setvar "cmdecho" 0) (prompt "HN Co.LTD") (setq os (getvar "osmode")) (setvar "osmode" 0) (prompt "\nChon tat ca cac chenh cao tren trac doc: ") (setq chon (cdr (reverse (ssnamex (ssget (list (cons 8 "HN-Chenh cao") (cons 0 "MTEXT"))) ) ) ) ) (prompt "\nChon tat ca cac duong do tren trac doc: ") (setq ddo (cdr (reverse (ssnamex (ssget (list (cons 8 "Duong do") (cons 0 "LINE"))) ) ) ) ) (setq ptd (getpoint "\nChon diem co cao do khoang giua duong do:")) (setq yptd (cadr ptd)) (setq lchon (length chon)) (setq lddo (length ddo)) (setq i 0) (setq pddo nil) (while (< i lddo) (setq get_chon (entget (cadr (nth i ddo)))) (SETQ p1 (CDR (ASSOC 10 get_chon))) (SETQ p2 (CDR (ASSOC 11 get_chon))) (setq pddo (append pddo (list p1) (list p2))) (setq i (+ i 1)) ) ;; Sap xep lai toa do cac diem. (setq pddo (vl-sort pddo (function (lambda (e1 e2) (progn (< (car e1) (car e2) ) ) ) ) ) ) (setq i 0) (while (< i lchon) (setq get_chon (entget (cadr (nth i chon)))) (SETQ P0 (CDR (ASSOC 10 get_chon))) (SETQ dtu (CDR (ASSOC -1 get_chon))) (setq xP0 (car P0)) (setq yP0 (cadr P0)) (setq pt1 (list xP0 yptd 0)) (setq j 0) (while (< j (- (length pddo) 1)) (setq p1 (nth j pddo)) (setq p2 (nth (+ 1 j) pddo)) (setq p3 (inters P0 pt1 p1 p2 T)) (if (/= p3 nil) (setq j lchon) (setq j (+ 1 j)) ) ) (setq xP3 (car p3)) (setq yP3 (cadr p3)) (setq pt2 (list (- xP0 10) (- yP0 10) 0)) (setq pt3 (list (+ xP3 10) (+ yP3 10) 0)) (setq pt4 (list xP3 (+ yP3 7) 0)) (command ".zoom" "w" pt2 pt3) (command ".move" dtu "" P0 pt4) (setq i (+ i 1)) ) (setvar "osmode" os) (princ) ) 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