[求助]：cal 是什么函数？

yitian519 · 发表于 2007-8-22 17:46:02

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

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

×

(DEFUN GETARGC()
(SETQ X_EXP (GET_TILE "xexp"))
(SETQ Y_EXP (GET_TILE "yexp"))
(SETQ REALB (CAL (GET_TILE "cfstart")))
(SETQ REALE (CAL (GET_TILE "cfend")))
(SETQ EXPR  (CAL (GET_TILE "cfexp")))
(SETQ XXYY  (ATOI (GET_TILE "cfidr")))
(SETQ ANGMOD  (ATOI (GET_TILe "cfang")))
(IF (NOT (OR (AND (= XXYY 1) (= x_exp "")) (= y_exp "") (= expr 0)))
   (IF (OR (AND (> EXPR 0) (< REALB REALE))
   (AND (< EXPR 0) (> REALB REALE)))
   (DONE_DIALOG 1)
   (SET_TILE "error" "表达式或数据错误")
)
(SET_TILE "error" "表达式或数据错误")
  )
)

怎么理解？其中(CAL (GET_TILE "cfstart"))[/COLOR]

zml84 · 发表于 2007-8-22 18:44:58

见：http://www.acad.net.cn/viewthread.php?tid=390&extra=page%3D1

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

[求助] [求助]：cal 是什么函数？

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

相关帖子