(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 "")<BR> <BR> ) 这是帮助文件中的内容：计算算术和几何表达式
命令行： cal（或 'cal，用于透明使用）
CAL 是一种联机几何计算器，用于计算点（矢量）、实型或整型表达式的值。这些表达式可通过对象捕捉函数（例如：CEN、END 和 INS）获取现有的几何图形。可将 AutoLISP® 变量插入算术表达式并返回表达式的值，以给 AutoLISP 变量赋值。对于任何需要点、矢量或数字的 AutoCAD® 命令，均可使用这些算术或矢量表达式。
CAL 主题：
理解表达式语法
设置英尺和英寸的格式
设置角度的格式
使用点和矢量
使用 AutoLISP 变量
使用 AutoCAD 系统变量
转换测量单位
使用标准数值函数
通过两点计算矢量
计算矢量长度
通过光标获取点
获取上一个指定点
在算术表达式中使用 AutoCAD“捕捉”模式
在 UCS 和 WCS 之间转换点的坐标值
计算直线上的点
绕坐标轴旋转点
获取交点
计算距离
获取半径
获取角度
计算法向矢量
使用快捷函数 这里真是个好地方 唉，原来如此，终于找到解决办法了，要不，lisp里调用了 cal，事先cad里须先运行一次cal，调用出来才行。
页:
1
[2]