[LISP函数]：请指示

zyhjiao

(defun *error*(st)
  (princ (strcat "Error: " st))
  (princ)
)

(defun C:chh(/ test ss len n en1 a oldr newr ent nn)
  (setvar "CMDECHO" 0)
  (setq test T nn 0)
  (while test
    (setq ss (ssadd))
    (setq ss (ssget))
    (if (= nil ss)
      (setq test nil)
      (progn
        (setq len (sslength ss))
        (setq n 1 s 1)
        (while (<= n len)
          (setq en1 (ssname ss (1- n)))
          (setq a (entget en1))
          (if  (= "TEXT" (cdr (assoc 0 a)))
            (progn
              (if (= s 1)
                (progn
                  (setq oldr (cdr (assoc 40 a)))
                  (setq newr (getreal (strcat "\nNew high <" (rtos oldr 2 1) ">:")))
                  (if (= newr nil) (setq newr oldr))
                  (setq s nil)
                )
              )
              (setq ent (subst (cons 40 newr) (assoc 40 a) a))
              (entmod ent)
              (setq nn (1+ nn))
            )
          )
          (setq n (1+ n))
        )
      )
    )
  )
  (princ (strcat (itoa nn) " changed !"))
  (princ)
)
请问有谁可以指点一下,这个文件怎么用,说是改变文字高度的,可是我加载这个文件后就是不能用,不知道是怎么回事!

xcajcj

这个程序的确可以修改文字高度，但它只能修改单行文本，不能修改多行文字。因为下面这段语句：(if (= "TEXT" (cdr (assoc 0 a)))它过滤了非“TEXT”对象，所以它只能处理“TEXT”对象，不能处理非“TEXT”对象。

hi71400

将(if (= "TEXT" (cdr (assoc 0 a)))
改成：(if (or (= "TEXT" (cdr (assoc 0 a))(= "MTEXT" (cdr (assoc 0 a))))
就可以对Mtext有效了。