选择文字然后添加到表格

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

学习一下~~~~~~~

账号		自动登录	找回密码
密码			立即注册

[每日一码] 选择文字然后添加到表格

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块