论坛 › A/VLISP › 选择文字然后添加到表格

Lisphk 发表于 2017-1-5 16:30:36

选择文字然后添加到表格

选择两个文字，然后把文字填入表格， 表格要存在。




(defun c:txt2tbl (/ l s l tbl)
;; Tharwat - Date:28.Dec.2016        ;;
(and
    (progn
      (while (and
             (/= 2 (length l))
             (princ
               (strcat
                   "\nPick"
                   (if l
                     " Second "
                     " First "
                   )
                   "text :"
               )
             )
             (setq s (ssget "_+.:S:E" '((0 . "*TEXT"))))
             (setq l (cons (cdr (assoc 1 (entget (ssname s 0)))) l))
             )
      )
      (= 2 (length l))
    )
    (princ "\nPick a table :")
    (setq tbl (ssget "_+.:S:E:L" '((0 . "ACAD_TABLE"))))
    (setq tbl (vlax-ename->vla-object (ssname tbl 0)))
    (vl-every
      '(lambda (n) (< 1 n))
      (list (vla-get-rows tbl) (vla-get-columns tbl))
    )
    (mapcar '(lambda (s c) (vla-settext tbl 1 c s)) l '(0 1))
)
(princ)
)

小冬冬2016 发表于 2017-1-5 21:46:03

来学习。。。

zjy2999 发表于 2017-1-6 08:52:08

来学习。。。

kqqt6236 发表于 2017-1-6 09:01:31

请问"_+.:S:E"是什么意思？

376394482 发表于 2017-1-6 14:03:04

确实是难得好帖啊，顶先

Lisphk 发表于 2017-1-6 14:54:13

kqqt6236 发表于 2017-1-6 09:01


就是单选， 你可以试下

nijiea123 发表于 2019-3-24 14:31:28

看起来很不错的样子

qyming2000 发表于 2019-3-25 08:12:59

vl-every函数的用法

qxlonmsn 发表于 2022-3-22 07:56:58

顶一下   就是论坛还没有恢复   看不到内容

qxlonmsn 发表于 2022-3-26 10:45:51

顶      论坛快恢复

qxlonmsn 发表于 2022-4-5 17:29:41

顶 虽然看不到还是赞一个

qxlonmsn 发表于 2022-5-10 08:03:09

感谢!!!!!!!!

ynpxqjlb 发表于 2023-1-12 09:35:22

学习一下~~~~~~~

happyending 发表于 2025-12-20 07:56:57

这代码有用，感谢您的分享。

查看完整版本: 选择文字然后添加到表格