得到mtext的值

citykunan · 发表于 2004-12-27 13:56:00

当我用dxf码得到mtext的值时如果用默认字体txt时会得到"aagagagagaghkahadgk"，但是如果中间几个字的字体变掉了，dxf的1号码便会将其所用的字体也显示出来"a{\fTahoma|b0|i0|c0|p32;agagagagag}hkah{\fTahoma|b0|i0|c0|p32;ad}gk"，但是我只要文字内容，不要字体信息，有什么好办法吗？谢谢

ZZXXQQ · 发表于 2004-12-27 14:23:00

本帖最后由作者于 2004-12-27 15:46:28 编辑

(DEFUN GETMTEXT ()
(SETVAR "CMDECHO" 0)
(PRINC "\nSelect a mtext :")
(SETQ SS (SSGET '((0 . "MTEXT"))))
(SETQ TL (CDR (ASSOC 1 (ENTGET (SSNAME SS 0)))))
(SETQ SL (STRLEN TL) I 1 TXT "")
(WHILE (< I SL)
(IF (= (SETQ ST (SUBSTR TL I 1)) "{") (PROGN
(WHILE (/= (SUBSTR TL (SETQ I (1+ I)) 1) "}"))
(SETQ I (1+ I))
)
(SETQ TXT (STRCAT TXT ST) I (1+ I))
)
)
(SETVAR "CMDECHO" 1)
TXT
)

复制代码

citykunan · 发表于 2004-12-27 14:40:00

zzxxqq你好象没把ENTNAME函数给我吧。

ZZXXQQ · 发表于 2004-12-27 15:48:00

啊！敲错了！是SSNAME。二楼已改。

citykunan · 发表于 2004-12-27 16:23:00

返回值不对啊。如图返回"fagag"

ZZXXQQ · 发表于 2004-12-27 17:03:00

再改一下：[ code](DEFUN GETMTEXT ()
  (SETVAR "CMDECHO" 0)
  (PRINC "\nSelect a mtext :")
  (SETQ SS (SSGET '((0 . "MTEXT"))))
  (SETQ TL (CDR (ASSOC 1 (ENTGET (SSNAME SS 0)))))
  (SETQ SL (STRLEN TL) I 1 TXT "")
  (WHILE (< I SL)
(IF (= (SETQ ST (SUBSTR TL I 1)) "{") (PROGN
   (WHILE (/= (SUBSTR TL (SETQ I (1+ I)) 1) ";"))
   (WHILE (/= (SETQ ST (SUBSTR TL (SETQ I (1+ I)) 1)) "}")
   (SETQ TXT (STRCAT TXT ST))
   )
   (SETQ I (1+ I))
)
   (SETQ TXT (STRCAT TXT ST) I (1+ I))
)
  )
  (SETVAR "CMDECHO" 1)
  TXT
)[/code]

citykunan · 发表于 2004-12-27 19:57:00

谢谢,这下可以了,万分感谢.

lijiao · 发表于 2004-12-28 09:16:00

6楼的函数可能还有点问题，当MTEXT的内容比较多时，1组码会分成几段，处理的结果会不正确。

比较好的是使用VLA－GET－TextString函数取得字符内容。

另外，去掉大括号中内容的处理方式不科学，处理速度慢，VL－STRING开头的函数中有专门处理这种事情的。

还有就是容错性问题，如果用户没有选择到MTEXT实体，将会如何处理？

以上纯属个人观点。

雪山飞狐_lzh · 发表于 2004-12-29 21:13:00

Lisp获取MText的值炸开再连接不就可以了

无痕 · 发表于 2004-12-30 00:52:00

炸开好，我就是这么干的：）

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

得到mtext的值

本帖子中包含更多资源