lisp变量的问题

hwang21

写了几个小程序，可能由于懒惰的原因，几个程序中用了相同的变量，但是类型不同。

由于要重复利用的原因，又不能设置为局部变量，这样以来首先加载的程序便不能正确运行，提示类型错误。

请教专家能否解决，最好不是一个一个的修改变量名称。

谢谢

ZZXXQQ

在使用前强制重新赋值或加变量类型判断语句。

hwang21

继续请教专家

变量类型如何判断？比如说如何判断

1、(setq en (getpoint))

2、(setq en (entget (car (entsel))))

en是类型1还是类型2?谢谢

rongyifei

在lisp中,变量都不需要定义类型,变量类型是根据后面的数值类型来判断的,

不过为了不出错,最好在使用前强制重新赋值或者使用局部变量

hwang21

不是说了吗，有些情况不好重新赋值，更不能用局部变量的。

我想加一个判断语句，如上例子，如果en为一个点，则强行赋值为默认值，否则就用那个串行作为运行初始值。请问如何判断？有没有比下面更简单的方法？

(if (+ (car en)  1)

(....)

(....)

)

就是说，看en的第一个元素能否加1。

原则上，这种方法可行，但如果我有很多变量，就很麻烦

ZZXXQQ

hwang21发表于2006-7-26 20:35:00 继续请教专家 变量类型如何判断？比如说如何判断 1、(setq en (getpoint)) 2、(setq en (entget (car (ent...

(= (TYPE EN) 'ENAME) ;实体

(= (TYPE EN) 'EXSUBR) ;外部函数

(= (TYPE EN) 'EXRSUBR) ;外部ARX函数

(= (TYHE EN) 'FILE) ;文件描述符

(= (TYPE EN) 'INT) ;整数

(= (TYPE EN) 'LIST) ;表

(= (TYPE EN) 'PAGETB) ;虚拟分页函数

(= (TYPE EN) 'PICKSET) ;选择集

(= (TYPE EN) 'REAL) ;实数

(= (TYPE EN) 'STR) ;字符串

(= (TYPE EN) 'SUBR) ;内部函数

(= (TYPE EN) 'SYM) ;符号

zhang8755

用局部变量的方式解决。把变量名加到函数定义中