[求助]：如何在lisp程序中使用几何计算器cal函数？如何在lisp程序中捕捉垂直点？

gyf · 发表于 2002-12-25 08:49:33

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

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

×

如何在lisp程序中使用几何计算器cal函数？如何在lisp程序中捕捉垂直点？

e2002 · 发表于 2002-12-25 08:55:56

不需要这样,而是使用osnap函数

lt_zzy · 发表于 2002-12-25 08:57:52

(setvar "osmode" 128)
就可以捕捉垂直点

gyf · 发表于 2002-12-25 19:00:43

thanks

ll_j · 发表于 2002-12-25 19:02:38

最初由 gyf 发布
如何在lisp程序中使用几何计算器cal函数？如何在lisp程序中捕捉垂直点？

在程序中加载了geomcal.arx后就可以像使用其它函数一样使用cal。

调用联机的几何图形计算器并返回表达式的值
(cal expression)
参数 expression 为字符串，必须用引号包括此字符串。关于此参数的有效值的详细信息，请参见 AutoCAD 命令参考中的 'CAL。
下例的 AutoLISP 表达式中，在函数 trans 中使用 CAL：
(trans (cal "[1,2,3]+MID") 1 2)
外部定义函数 geomcal ARX 应用程序

复制代码

程序中也可以调用c:cal，格式与cal函数相同，用此函数使得对文本四则运算变为可能，如(cal "1+2*3")，其中字符串可以从文本中提取。
需要提醒的是，在程序中不可重复加载geomcal.arx，否则Acad会跳出，需要使用cal的程序，可以在程序尾部加上以下代码（适用于R14及R2002）：

(if (or (= (type c:cal) 'LIST) (= (type c:cal) 'SUBR)) (arxload "geomcal.arx"))

复制代码

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

[求助] [求助]：如何在lisp程序中使用几何计算器cal函数？如何在lisp程序中捕捉垂直点？

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

相关帖子

Re: [求助]：如何在lisp程序中使用几何计算器cal函数？如何在lisp程序中捕捉垂直点？