[LISP程序]：向各位高手请教

tcy200489 · 发表于 2006-12-8 20:09:43

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

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

×

;;一个最简单的基准标注程序,可是不能用,请问是怎么回事?
(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)
)

Underway · 发表于 2006-12-8 22:42:33

p4 (polar p1 (-ang1 (/ pi 2)) p)
p5 (polar p1 (+ang1 (/ pi 2)) p)

===>
p4 (polar p1 (- ang1 (/ pi 2)) p)
p5 (polar p1 (+ ang1 (/ pi 2)) p)

tcy200489 · 发表于 2006-12-8 22:56:13

没改呀

zhynt · 发表于 2006-12-8 23:21:05

你没注意到“＋”“－”后面的“空格”？

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

[LISP程序]：向各位高手请教

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

相关帖子