[LISP程序]：请高手帮忙看一下

lkc · 发表于 2005-2-22 18:19:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一个修改文字高度的lsp,不知道问题出在哪里了?
请各位高手帮忙看一下.谢谢

;;改文字高度

(defun c:th1 ( / ent ent_date old_gd_list old_gd new_gd new_gd_list)
(setq ent (entsel "\n请选择要改高度文字："))
(setq ent_date (entget (car ent)))
(princ ent_date)
(setq old_gd_list (assoc 40 ent_date))
(setq old_gd (cdr old_gd_list))
(princ "\n原文字高度为＝")
(princ old_gd)
(setq new_gd (getreal "请输入新的高度："))
(setq new_gd_list (cons '4o new_gd))
(setq ent_date (subst new_gd_list old_gd_list ent_date))
(princ ent_date)
(entmod ent_date)
(princ)
)
(prompt "\n******th--改文字高度******")
(princ)

Free-Lancer · 发表于 2005-2-22 20:23:15

(setq new_gd_list (cons '4o new_gd)) -> (setq new_gd_list (cons 40 new_gd))

ss1025 · 发表于 2005-2-23 15:35:51

如2楼，你把40敲成4o了。(setq new_gd_list (cons '40 new_gd))

阿谢 · 发表于 2005-3-12 23:52:53

呵呵，水平差了点，实在看不懂，高！

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

[LISP程序]：请高手帮忙看一下

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子