xin lisp chuyển text cad sang excel theo vị trí chỉ định trên excel

[saukhoai 15]

như tiêu đề e muốn nhờ các tiền bối giúp: ý tưởng của e là mở 1 file excel lên và bấm chỉ định trước 1 ô, rồi ta sang cad chọn những giá trị ta cần. sau khi chọn xong những giá trị trên cad thì những gía trị trên cad ấy sẽ tự động chèn vào vị trí ô ta đã chỉ định sẵn ấy trên file excel theo hàng dọc.

[saukhoai 15]

Mong ae giúp đỡ

[Doan Nguyen Van 491]

1 giờ} trướ}c, saukhoai đã nói:

Mong ae giúp đỡ

Bạn đăng nhiều bài xin giúp, người ta giúp xong bạn cũng không có phản hồi lại, hay cảm ơn người ta ??? 

[saukhoai 15]

@Doan Nguyen Van e đăng bài nhờ các a giúp đỡ, bài nào các a giúp e vẫn phản hồi cảm ơn mà a, còn những bài từ lâu quá r e k thấy thông báo j nên cũng k biết a

[cuongtk2 356]

Copy lần lượt text vào clipboard , dán vào thành 1cột

(defun c:text2clipb( / ENT HTML ND RESULT STR)
(setq str "")
(while (setq ent (car (entsel)))
  (setq nd (cdr (assoc 1 (entget ent)))
        str (strcat  str nd "\n"))
  )
    (if (= 'STR (type str))
        (progn
            (setq html   (vlax-create-object "htmlfile")
                result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'setData "Text" str)
            )
            (vlax-release-object html)
            str
        )
    );end if
)

[saukhoai 15]

E cảm ơn a