日志
读取CAD中的文字
热度 1 |||
(vl-load-com)
(setq ss (ssget "X" '((0 . "*text"))))
(setq i 0 )
(setq data '())
(while (< i (sslength ss))
(setq data (append data (list i)))
(setq i (+ i 1))
)
(foreach x data
(setq sstr (vlax-ename->vla-object (ssname ss x)))
(setq sst (vlax-get-property sstr "TextString") )
(princ sst)
(princ "\n")
)
发表评论 评论 (3 个评论)
- 回复 77077
- (vl-load-com)
(mapcar 'vla-get-TextString (ssget->vla-list (ssget "X" '((0 . "*text")))))
(defun ssget->vla-list (ss / i ename lst)
(setq i -1)
(while (setq ename (ssname ss (setq i (1+ i))))
(setq lst (cons (vlax-ename->vla-object ename) lst))
)
lst
)
- 回复 mahuan1279
- 你的代码简洁了不少。试运行了下，结果显示("\\pxt82;niakdsajklda" "\\pxt82;2qqiuqouwo" "\\pxt82;nmajskajdka" "\\pxt39,82;ajlsdjadj")，要是想得到文字信息（分号后的字符串），是不是还要对字符串列表进行处理？
- 回复 mahuan1279
- PS：14版的怎么这效果，分号前的是什么?07版输出的直接就是文字信息。看来版本不同，运行结果还是有些区别。