请教LISP问题

htys24101

请教专家们：我编了这样一个倒直角的LISP程序，不过有3个疑问：

1、该程序执行过程出现一个错误，不知道为什么；

2、能否先执行倒角，后指定文字注记的位置和注记文字；

3、如何设置注记文字的样式。

谢谢！

lisp代码如下：

(defun C)

(setvar "cmdecho"0)

(while

(setq d(getstring"\n输入距离："))

(setq pt(getpoint"\n指定文字注记位置："))

(setq wz(strcat "D=" d "m"))

(command "text"pt "2" "" wz)

(setvar"chamfera" (atof d))

(setvar"chamferb" (atof d))

(command "chamfer")

)

princ

)

hoopert

(defun C:test()
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq d (getstring"\n输入距离："))
(while D
 (setq pt (getpoint"\n指定文字注记位置："))
 (setq wz (strcat "D=" d "m"))
 (command "text"pt "2" "" wz)
 (setvar"chamfera" (atof d))
 (setvar"chamferb" (atof d))
 (princ "\n请选择要倒角的实体：")
 (command "chamfer" pause pause)
 (setq d nil)
 )
(setvar "cmdecho" cmd)
(princ)
)

hoopert

(defun C:test()
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq d (getstring"\n输入距离："))
(while D
 (setq wz (strcat "D=" d "m"))
 (setvar"chamfera" (atof d))
 (setvar"chamferb" (atof d))
 (princ "\n请选择要倒角的实体：")
 (command "chamfer" pause pause)
 (setq pt (getpoint"\n指定文字注记位置："))
 (command "text" pt "2" "" wz)
 (setq d nil)
 )
(setvar "cmdecho" cmd)
(princ)
)

hoopert

(if (not (tblsearch "style" "ST"))
 (command "style" "ST" "宋体" 0 1.0 0 "N" "N")
 )

(command "text" "S" "ST" pt "2" "" wz)

htys24101

非常感谢！