[LISP]编程求助：

xhpei1

在2004版本中，我的图纸上有若干MTEXT实体，STANDARD类型，宽度比例为0.75，文字为细长型。



若用(command "style" "standard" "" "" "1" "" "" "" "regen")语句改变宽度比例为1时，则图纸中汉字全部变为？，且不可回复。


但使用手工方式时，若用文字样式对话框的交互方式，将宽度比例改为1，确定后，则一切正常。


实在不知何故，请高手指点如何用LISP语言实现上述目的。

meflying

自己发的帖子要记得去看,不要重复发帖 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=25572

yulijin608

我不知到２００４里的宽度比例是不是２０００中的宽度，下面的程序可以设置宽度，你试试． (defun c:test (/ sf)
(setq see (ssget "_x" '((0 . "MTEXT"))))
(if (/= see nil)
(progn
(setq n (sslength see))
(setq i 0)
(while (< i n)
(setq sf (entget (ssname see i)))
(setq sf
(subst (cons 41 1)
(assoc 41 sf)
sf
)
)
(entmod sf)
(setq i (+ i 1))
)
)
(princ)
)
)