帮忙找错！~：）

skyry · 发表于 2003-1-3 14:46:00

(defun c:chgtxt()
  (setq new_high (getreal "\n请求输入新字高："))
  (prompt "\n选择要更新字高的文字：")
  (setq ss(ssget))
  (setq n 0)
  (repeat (sslength ss)
(setq en(ssname ss n))
(setq endata(entget en))
(setq entype (cdr (assoc 0 endata)))
(if (= entype "text")
   (sub_high)
)
  )
)
(defun sub_high()
  (setq 40_list (assoc 40 endata))
  (setq new_40_list (cons 40 new_high))
  (setq endata(subst new_40_list 40_list endata))
  (entmod endata)
)
应该是倒数第四行！可怎么该？各位帮帮忙~~

吟屏 · 发表于 2003-1-3 14:51:00

CAD菜鸟 · 发表于 2003-1-3 14:53:00

将(= entype "text") 改为(= entype "TEXT")即可。

skyry · 发表于 2003-1-3 14:54:00

skyry · 发表于 2003-1-3 14:55:00

呵呵￣￣

skyry · 发表于 2003-1-3 15:03:00

(defun c:chgtxt()
  (setq new_high (getreal "\n请求输入新字高："))
  (setq new_ang (getreal "\n请求输入新字倾斜角："))
  (prompt "\n选择要更新的文字：")
  (setq ss(ssget))
  (setq n 0)
  (repeat (sslength ss)
(setq en(ssname ss n))
(setq endata(entget en))
(setq entype (cdr (assoc 0 endata)))
(if (= entype "MTEXT")
   (sub_high)
   (sub_ang)
)
  )
)
(defun sub_high()
  (setq 40_list (assoc 40 endata))
  (setq new_40_list (cons 40 new_high))
  (setq endata(subst new_40_list 40_list endata))
)
(defun sub_ang()
  (setq 51_list (assoc 51 endata))
  (setq new_51_list (cons 51 new_ang))
  (setq endata(subst new_51_list 51_list endata))
  (entmod endata)
)

skyry · 发表于 2003-1-3 15:05:00

第二个函数后面少了一句： (entmod endata)

吟屏 · 发表于 2003-1-3 15:12:00

skyry · 发表于 2003-1-3 15:25:00

好像还有很多问题￣
就是不知怎么改！？

skyry · 发表于 2003-1-3 15:27:00

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

帮忙找错！~：）

"text" 改为 "TEXT" 搞定！！

原因：

果然！谢了！：）

虽然你慢了点！不过还是谢了￣

还有一个！￣￣￣

不好意思￣￣我自己找到错了！

(if (= entype "MTEXT") (progn ...... )

不过，感觉还是不爽！

TEXT的字高是51,MTEXT的字高是50对吧！？￣