帮忙找错！~：）

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)
)
应该是倒数第四行！可怎么该？各位帮帮忙~~

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

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

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)

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

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

帮忙找错！~：）

发表回复

精选推荐