[求助]：一个程序的问题，较急！！

秦始皇 · 发表于 2004-11-26 09:21:48

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

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

×

哪位能帮一下，这个程序为何文字那儿有错？？
(defun jx ()
  (setq l 30 b 20)
  (setq ax1 100 ay1 100)
  (setq ax3 (+ ax1 l) ay3 (+ ay1 b))
  (setq a1 (list ax1 ay1)
      a2 (list ax3 ay1)
      a3 (list ax3 ay3)
      a4 (list ax1 ay3)
  )
  (command "line" a1 a2 a3 a4 "c")
  (command "dtext" (110,85) 5  0  "qinyong" " ")
)

初学编程，望各位老大帮助。

JOSDENNIS · 发表于 2004-11-26 09:41:06

(defun jx (/ A1 A2 A3 A4 AX1 AX3 AY1 AY3 B L)
(setq l 30 b 20)
(setq ax1 100 ay1 100)
(setq ax3 (+ ax1 l) ay3 (+ ay1 b))
(setq a1 (list ax1 ay1)
a2 (list ax3 ay1)
a3 (list ax3 ay3)
a4 (list ax1 ay3)
)
(command "line" a1 a2 a3 a4 "c")
(command "text" '(110 85) 5 0 "qinyong")
)

秦始皇 · 发表于 2004-11-26 14:58:33

多谢指点。

zihzih · 发表于 2004-11-26 21:29:00

也可这样：
(command "text" “110,85" 5 0 "qinyong")

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

[求助] [求助]：一个程序的问题，较急！！

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

相关帖子

浏览过的版块