有一想法，不知能不能做到

wzg356 · 发表于 2020-12-7 21:07

本帖最后由 wzg356 于 2020-12-7 21:52 编辑

18/19 楼函数完整了
以你的等级，自己组合成程序应该没问题

我没组合，是因为个人的选择习惯（取得多行文本是有顺序的，自己设定方式）不确定

另外，以上2个函数我前段时间刚写的完善自己的以前工具
如你自己完善利用成程序，或其他网友帮组利用完善成程序贴出来
希望你把结果贴上，放上一楼并修改标题（或另行发布），以利其他新手或需要的同学学习查看

wzg356 · 发表于 2020-12-7 21:38

本帖最后由 wzg356 于 2020-12-7 21:41 编辑

简单利用18/19楼函数组合
结果如下

(defun c:mtbg( / en lstr p)
(while(setq en(ssget ":e:s" '((0 . "mtext"))))
(setq lstr(append lstr(list(Mtext2Lstr(ssname en 0)))))
)
(if (and lstr (setq p(getpoint "表格左上角")))
(writetable lstr (list 25) p 5)
);(list 25)指表格列宽，字高5，自己设定
(princ)
)

wgij007 · 发表于 2020-12-7 21:54

本帖最后由 wgij007 于 2020-12-7 21:57 编辑

wzg356 发表于 2020-12-7 21:38
简单利用18/19楼函数组合
结果如下

老大，非常感谢。但跟我的要求有点不一样。我要的是框选（或选中多行文字再执行），不用按顺序。只要一组多行文本在同一行就可以了。还要导出到Excel.

wzg356 · 发表于 2020-12-7 21:57

本帖最后由 wzg356 于 2020-12-8 12:55 编辑

;;;表快速输出 XLS
;lst表一行一子表，一格一元素
;(ls2xls (list (list "x" "y" 3)(list 1 "" 3)))
(defun ls2xls (lst / Excel:i2ColNo lens maxl x excel bks acBook sht rc cells range)
(defun Excel:i2ColNo (a / l _i2ColNo)
      (defun _i2ColNo (num / lst)
      (cond((<= 1 num 26)(setq lst(cons num lst)))
      ((> num 26)(setq lst(append(_i2ColNo (/ num 26))(list(rem num 26)))))
      (t lst)
) lst
)
(if (and(>= (setq a(fix(abs a)))1)(setq l(_i2ColNo a)))
(apply 'strcat(mapcar '(lambda (x)(chr(+ 64 x)))l))
)
);整数转EXCEL的列编号
(setq lens(mapcar 'length lst))
(setq maxl(apply 'max lens))
(if (not(apply '= lens))
(setq lst(mapcar '(lambda(x)
(repeat(- maxl(length x))(setq x(append x(list "")))) x)lst)
);子表不等长的用""补齐
)
(setq excel (vlax-get-or-create-object "Excel.Application"))
(vla-put-visible excel :vlax-true)
(setq lens(length lst));行数
(setq bks (vlax-get excel 'workbooks))
(setq acBook(vlax-invoke bks 'Add))
(setq sht  (vlax-get excel 'ActiveSheet))
(setq rc (strcat "A1:"(excel:i2ColNo maxl)(itoa lens)));写表范围
(setq cells(vlax-get sht 'cells))
(setq range(vlax-get-property cells 'Range rc))
(vlax-put-property range  'value2
(vlax-safearray-fill
(vlax-make-safearray vlax-vbstring
(cons 1 lens)(cons 1(length (car lst)))
)lst
)
)
;(vlax-put-property (vlax-get-property sht "Range" "A:A") "ColumnWidth" 20);列宽20
;(vlax-put-property (vlax-get-property sht "Range" "1:1") "RowHeight" 30);行高30
)

wgij007 · 发表于 2020-12-7 22:33

wzg356 发表于 2020-12-7 22:16
加载18/23楼函数

(defun c:mt2xls( / ss en lstr)

老大，出错了

wzg356 · 发表于 2020-12-8 09:08

你请其它大佬试一下（CAD或Excel版本？），我这儿没问题

wgij007 · 发表于 2020-12-8 12:15

我的是2006

wzg356 · 发表于 2020-12-8 12:46

可以的，注意，这个要子表长度一样，输出前先把表处理成等长，短的子表用“”加在后面补足，动手自己

wzg356 · 发表于 2020-12-8 12:57

23楼函数已改，对子表不等长的，自动用""补齐

运行前加(vl-load-com)

wgij007 · 发表于 2020-12-8 13:00

wzg356 发表于 2020-12-8 09:08
你请其它大佬试一下（CAD或Excel版本？），我这儿没问题

你用的是那个版本，我试一下

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

[提问] 有一想法，不知能不能做到

本帖子中包含更多资源