[求助]各位大侠，怎样将CAD中明细表的内容导出倒文本文件那？？

lxyufo · 发表于 2003-4-1 19:47:00

我的CAD中的明细表每一列高度都是相等的，而且它的列数是不确定的，
有没有好的办法判断让程序自己导出文字直到明细表没有为止，
并且导出后的文字是有顺序的，谢谢了！！

lxyufo · 发表于 2003-4-3 09:39:00

我从CAD中导出到文本文件中的文字形式是{\f宋体|b0|i0|c134|p54;活动底板} {\f宋体|b0|i0|c134|p2;48652-1-1} 怎样才能去掉{\f宋体|b0|i0|c134|p54;} 只要 “活动底板”字样那??
谢谢了！！！

meflying · 发表于 2003-4-3 09:45:00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;功能：获取文字对象中的文字字符串;;;
;sname--文字对象名;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun Getext(sname / sinf str str2)
  (setq sinf (entget sname))
  (setq str (cdr (assoc 1 sinf)))
  (setq str (strcase str 0))
  (setq str (vl-string-trim "{}" str))
  (if (= (type (read str)) 'SYM)
(progn
   (setq str2 (vl-symbol-name (read str)))
   (if (/= (strlen str) (strlen str2))
      (progn
      (setq str2 (strcase str2 0))
      (setq str (vl-string-left-trim str2 str))
      (setq str (vl-string-left-trim ";" str))
      )
   )
)
  )
  str
)

alin · 发表于 2003-4-3 10:56:00

;Usage: Outext
;Select texts or mtext in the drawings
;These texts or mtext will be sent to Dutext.txt
;(overide if the file exists) in an order of
;their Y value of their insert point in the drawing.
;Format of mtext hopefully will be removed.
;
(defun C:Outext(/ ss idx txtlst cnt f)
  (setq ss (ssget)
      idx 0
      txtlst '())
  (while ( (cadr e1) (cadr e2))))))
  (setq txtlst (mapcar 'car txtlst))
  (setq f (open "dutext.txt" "w") cnt 0)
  (while (vla-object Mtext))
)
(1 (setq Mtext nil))
  )
  (and
Mtext
(= (vlax-get Mtext 'ObjectName) "AcDbMText")
(setq Mtext (vlax-get Mtext 'TextString))
(setq Text "")
(while (/= Mtext "")
   (cond
      ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[\\{}`~]")
      (setq Mtext (substr Mtext 3)
            Text (strcat Text Str)
      )
      )
      ((wcmatch (substr Mtext 1 1) "[{}]")
      (setq Mtext (substr Mtext 2))
      )
      ((and KeepLF (wcmatch (strcase (substr Mtext 1 2)) "\\P"))
      (setq Mtext (substr Mtext 3)
            Text  (strcat Text "\\P")
      )
      )
      ((wcmatch (strcase (substr Mtext 1 2)) "\\[LOP]")
      (setq Mtext (substr Mtext 3))
      )
      ((wcmatch (strcase (substr Mtext 1 2)) "\\[ACFHQTW]")
      (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext))))
      )
      ((wcmatch (strcase (substr Mtext 1 2)) "\\S")
      (setq Str (substr Mtext 3 (- (vl-string-search ";" Mtext) 2))
            Text  (strcat Text (vl-string-translate "#^\\" " " Str))
            Mtext (substr Mtext (+ 4 (strlen Str)))
      )
      (print Str)
      )
      (1
      (setq Text (strcat Text (substr Mtext 1 1))
            Mtext (substr Mtext 2)
      )
      )
   )
)
  )
  Text
)
--
John Uhden, Cadlantic/formerly CADvantage
http://www.cadlantic.com
Sea Girt, NJ

龙龙仔 · 发表于 2003-4-3 12:33:00

1       中国       香港       澳门
2       日本       nil       东京
3       美国       纽约       nil
  这是明细表中的内容怎样判断当所选范围为空时导出到
文本文件中的内容为 nil 呀
  还有就是我想导出的形式是  1  中国  香港  澳门
                           2  日本  nil 东京
怎么样才能实现呀？
谢谢了

lxyufo · 发表于 2003-4-3 23:53:00

如果是一次性选择，你除非知道什么位置是空的，输出时，在其位置上写上空，否则，你选择的就是那些非空的对象，空的将不可能被选择。
不过你可以按位置一个一个选择，也就是你能确定每个文字对象的位置及其大小，按其位置一个一个地框选，如果选择集长度为0，则为空。

meflying · 发表于 2003-4-4 08:47:00

求助谢谢 meflying 兄但是我的明细表的大小是不确定，有没有好的办法呀？？？？[br]meflying兄你说的那种情况我已经解决的，就是我说的那种情况有没有好的办法解决呀，就是因为我得明细表的大小不确定（总高度不确定）。但是每一列之间的距离是固定的（80）
所以范围我确定不来，束手无策。
在这里希望得到给位大侠的帮助！！！！

lxyufo · 发表于 2003-4-4 13:56:00

其实如果你的宽度确定的话，你可以根据第一列（序号）来确定高度。一般序号这列不可能为空的。

[求助]各位大侠，怎样将CAD中明细表的内容导出倒文本文件那？？

发表回复

精选推荐