今天上午开始学习LISP，问个问题！

hours · 发表于 2004-1-30 15:29:00

在AUTOLISP中有没有专门检验是否为数值的函数！？有没有专问检验坐标点合法性的函数！？
谢谢！！！！

Student · 发表于 2004-1-30 15:43:00

以下是转载自Vlisp的参考
返回指定项的数据类型
(type item)
参数
item
符号。
返回值
item 的数据类型。如果项的值等于 nil（如未指定的符号）则返回 nil。返回的数据类型是下表所列的几种原子之一：
type 函数返回的数据类型
数据类型说明
ENAME 图元名
EXRXSUBR 外部 ObjectARX 应用程序
FILE 文件描述符
INT 整数
LIST 表
PAGETB 函数分页表
PICKSET 选择集
REAL 浮点数
SAFEARRAY Safearray
STR 字符串
SUBR 内部 AutoLISP 函数或由编译（FAS 或 VLX）文件加载的函数从 AutoCAD 命令提示中加载的 LISP 源文件函数也可能作为 SUBR 出现。
SYM 符号
VARIANT 变体
USUBR 从 LISP 中加载的用户定义函数
VLA-object ActiveX 对象
样例
例如，假设对变量进行如下赋值：
(setq a 123 r 3.45 s "Hello!" x '(a b c))
(setq f (open "name" "r"))
然后
(type 'a)    返回    SYM
(type a)    返回    INT
(type f)    返回    FILE
(type r)    返回    REAL
(type s)    返回    STR
(type x)    返回    LIST
(type +)    返回    SUBR
(type nil)    返回    nil
下面的例子中使用了 type 函数传递参数：
(defun isint (a)
   (if (= (type a) 'INT)    TYPE 是整数吗？
   T    是，则返回 T
   nil    否，则返回 nil
   )
)

龙龙仔 · 发表于 2004-1-30 15:45:00

確認項目是一個實數或整數
(numberp item)
引數
item
AutoLISP 表示式。
傳回值
T 表示 item 的演算結果是實數或整數，否則為 nil。
範例
指令：(setq a 123 b 'a)
A
指令：(numberp 4)
T
指令：(numberp 3.8348)
T
指令：(numberp "Howdy")
nil
指令：(numberp a)
T
指令：(numberp b)
nil
指令：(numberp (eval b))
T

hours · 发表于 2004-1-30 15:50:00

谢谢！！！刚开始学想找个函数还挺难呢！：）

今天上午开始学习LISP，问个问题！

发表回复

精选推荐