lisp小程序的问题，请各位帮忙

hzzhao · 发表于 2002-7-30 11:08:00

我写了一个程式如下：
(defun text_change (name number name_new)
  (setq name_old (sslength name))
  (while (> name_old 0)
(setq temp (ssname name (setq name_old (1- name_old))))
(entmod (subst (cons number name_new)
               (assoc nember (setq int (entget temp)))
               int
         )
)
  )
)
可我先在命令行里输(setq se (ssget))
然后选择文字
接着再输(text_change se 40 8)
这个程式不知道存在什么问题我一直找不出来，请各位指点一下．谢谢．

龙龙仔 · 发表于 2002-7-30 12:40:00

;;;usage: (text_change (ssget) 40 8)
(defun TEXT_CHANGE (NAME NUMBER NAME_NEW)
  (setq NAME_OLD (sslength NAME))
  (while (> NAME_OLD 0)
(setq TEMP (ssname NAME (setq NAME_OLD (1- NAME_OLD))))
(entmod (subst (cons NUMBER NAME_NEW)
               (assoc NUMBER (setq INT (entget TEMP)));;錯字 nember
               INT
         )
)
  )
  (princ)
)

lisp小程序的问题，请各位帮忙

发表回复

精选推荐