[LISP]编程求助：

xhpei1 · 发表于 2004-9-2 15:46:00

在2004版本中，我的图纸上有若干MTEXT实体，STANDARD类型，宽度比例为0.75，文字为细长型。若用(command "style" "standard" "" "" "1" "" "" "" "regen")语句改变宽度比例为1时，则图纸中汉字全部变为？，且不可回复。
但使用手工方式时，若用文字样式对话框的交互方式，将宽度比例改为1，确定后，则一切正常。
实在不知何故，请高手指点如何用LISP语言实现上述目的。

meflying · 发表于 2004-9-2 17:27:00

自己发的帖子要记得去看,不要重复发帖

yulijin608 · 发表于 2004-9-2 18:03:00

我不知到２００４里的宽度比例是不是２０００中的宽度，下面的程序可以设置宽度，你试试．
(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)
   )
)

[LISP]编程求助：

发表回复

精选推荐