[求助]：写的文字出错

szx025 · 发表于 2007-3-10 10:16:08

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

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

×

(defun C:zxh (/ ap lp ku  p1  p2 p3 )
;;保存系统变量设置
(setq old_OS  (getvar "OSMODE")
   old_CMD (getvar "CMDECHO")
)
(setvar "CMDECHO" 0)
(command "-osnap" "INT")
(setq ap (getpoint "第一点:"))
(setq lp (getpoint ap "第二点:"))
(setvar "OSMODE" 0)
(setq ku (angle ap lp))
(setq p1 (polar lp ku 500));;圆心
(setq p2 (polar p1 (* 1.2 pi) 420));;文字起点
(setq p3 (polar p1 (* 1.8 pi) 420));;文字终点
(command "line" ap lp "")
(command "circle" p1 500 "")
(command "text" "j" "f" p2 p3 500)
;;恢复系统变量设置
(setvar "CMDECHO" old_CMD)
(setvar "OSMODE" old_OS)
(princ)
)
本人写的一个画轴线的小程序,图能画出,但我想要写的文字出错,
这句(command "text" "j" "f" p2 p3 500)不能执行.请高手指正

Underway · 发表于 2007-3-10 10:34:38

(command "circle" p1 500 "")

===>
(command "circle" p1 500)

szx025 · 发表于 2007-3-10 11:10:50

问题解决,谢谢

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

[求助] [求助]：写的文字出错

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

相关帖子