[VBA程序]：请教各位高手

tcy200489

;;一个最简单的基准标注程序,可是不能用,请问是怎么回事?
(defun c:jj ()
(graphscr)
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq dim_c (getvar "dimscale")) ;获得系统变量dimscale的值，
(setq p 15)
(setq r1 (* 5 dim_c));将圆半径按dimscale相应放大。
( setq
p1 (getpoint "\n 输入一点：")
p2 (getpoint p1 "\n 输入另一点：")
ang1 (angle p2 p1)

p4 (polar p1 (-ang1 (/ pi 2)) p)
p5 (polar p1 (+ang1 (/ pi 2)) p)
p3 (polar p2 ang1 (* r1 1))
text_h (* 4.5 dim_c) ;将字高相应放大。
t1 (getstring "\n序号：")
) ; 输入两点，设置半径和字高。
(command ".line" p1 p3 "");draw line
(command ".circle" p2 r1)
(command ".text" "m" p2 text_h 0 t1 )
(command ".line" p1 p4 "");draw line
(command ".line" p1 p5 "");draw line
( setvar "cmdecho" oce)
(princ)
)

zxq0220

左括弧后不要有空格，应该直接写函数名；涵数名后，变量之间一定要加空格。
如：(-ang1 (/ pi 2))应该写成(- ang1 (/ pi 2))

tcy200489

你真的是高手,向你学习