cal命令在LISP中如何调用,

bhf0114

谢谢各位老大,搞定了,以下是原程序: (defun C:ZD(/ p1 p2) (if (null cal)(arxload"geomcal")) (setq p1 (c:cal "(cur+cur)/2")) (setq p2 (c:cal "(cur+cur)/2")) (command "line" p1 p2 "")

)

mccad

这是帮助文件中的内容：

1. 计算算术和几何表达式
2.   命令行：   cal（或 'cal，用于透明使用）
3. CAL 是一种联机几何计算器，用于计算点（矢量）、实型或整型表达式的值。这些表达式可通过对象捕捉函数（例如：CEN、END 和 INS）获取现有的几何图形。可将 AutoLISP® 变量插入算术表达式并返回表达式的值，以给 AutoLISP 变量赋值。对于任何需要点、矢量或数字的 AutoCAD® 命令，均可使用这些算术或矢量表达式。
4. CAL 主题：
5. 理解表达式语法
6. 设置英尺和英寸的格式
7. 设置角度的格式
8. 使用点和矢量
9. 使用 AutoLISP 变量
10. 使用 AutoCAD 系统变量
11. 转换测量单位
12. 使用标准数值函数
13. 通过两点计算矢量
14. 计算矢量长度
15. 通过光标获取点
16. 获取上一个指定点
17. 在算术表达式中使用 AutoCAD“捕捉”模式
18. 在 UCS 和 WCS 之间转换点的坐标值
19. 计算直线上的点
20. 绕坐标轴旋转点
21. 获取交点
22. 计算距离
23. 获取半径
24. 获取角度
25. 计算法向矢量
26. 使用快捷函数

复制代码

bhf0114

这里真是个好地方

zjxsky

唉，原来如此，终于找到解决办法了，要不，lisp里调用了 cal，事先cad里须先运行一次cal，调用出来才行。