[Giúp đỡ] Chuyển text từ cad vào excell

[huunhantvxdts 196]

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

[Doan Van Ha 3212]

Lee mac có vụ này khá hoàn chỉnh. Bạn tìm web của LM xem.

[huunhantvxdts 196]

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

[Doan Van Ha 3212]

Đây là 1 file lsp tôi lưu và có chỉnh sửa.

 

Xuat_Nhap_Excel.lsp

[Sây đt 1]

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

[Danh Cong 425]

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ì .. :)))

[phatthu123 0]

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é.

[thanchauvn 2]

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)
)