怎样从文字对象中读出文字？

meflying

meflying

下面这个函数总觉得对字符串的处理有些麻烦，不知那位能给些好方法。这主要是遇到一个问题，就是字符串“\\fTxt|b0|i0|c134|p2;1”用函数vl-string-left-trim删除分号前面的字符（包括分号）以留下最后需要的字符“1”，
(vl-string-left-trim "\\fTxt|b0|i0|c134|p2;" "\\fTxt|b0|i0|c134|p2;序号")
返回值为""，不知为何，而如果这里不是“1”，而是字母或汉字，就可以。麻烦赐教。

meflying

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;功能：获取文字对象中的文字字符串;;;
;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
)

cabinsummer

CAD菜鸟 发表于 2003-2-27 17:58
用该命令在CAD命令行中试试
(setq str (cdr (assoc 1 (entget (car (entsel))))))
可以得到你输入的文字 ...

(setq str (cdr (assoc 1 (entget (car (nentsel))))))

LLXXZZ

正则表达式.才是硬道理,有个贴子讲过这事儿.