巧妙运用AutoCAD中的cal函数

wang2003

巧妙运用AutoCAD中的cal函数
: y! m# o: F$ Y1 v- z  PAutoCAD作为一个专业绘图软件在机械、电子、建筑及航空等领域得到了广泛的应用，但是大多数AutoCAD的使用者只知道AutoCAD具有强大的绘图功能，却很少有人注意到AutoCAD中的一个非常有用的命令：几何计算器cal。和普通的计算器一样，cal几何计算器可以完成加、减、乘、除运算以及三角函数的运算。这使得用户在使用AutoCAD绘图过程中，可以在不中断命令的情况下用计算机进行算术运算，AutoCAD则将运算的结果直接作为命令的参数使用。
/ X- V" S  v7 }. [2 q( x! R3 r! B但重要的是，与一般的计算器不同，AutoCAD几何计算器可以作几何运算。它可以作坐标点和坐标点之间的加减运算，可以使用AutoCAD的OSNAP模式捕捉屏幕上的坐标点参与运算，还可以自动计算几何坐标点。如计算两条相交直线的交点，计算直线上的等分点等。此外，AutoCAD几何计算器还具有计算矢量和法线的功能。
一、Cal函数的408.0342运用
在AutoCAD中，cal命令类似于一个普通的计算器，可以用来计算与加、减、乘、除等有关的标准数学表达式，并遵从运算表达式的标准数学运算次序。而且，cal命令还是一个透明名令，可以用来提供一个点或一个数。当我们透明执行该命令时，其计算结果被解释为AutoCAD命令的一个输入值。下面是透明执行计算器功能的一个实例。
2 v- e' l% ]5 d9 \, D以（200，200）为圆心绘制半径为[(425-260)*(1/3)+sin(45)]的圆。
(1)在命令行输入：C，并按ENTER键；
(2)命令行提示： “指定圆的圆心或[三点（3P）/两点（2P）/相切、相切、半径（T）]:”,输入（100，100）并按ENTER键；
. h! ?" \: L  |1 i# b4 a1 ?" J% i(3)命令行提示：“指定圆的半径或直径：”，此时输入：“cal”，并按ENTER键,然后输入表达式：(425-260)*(1/3)+sin(45)并按ENTER键；
(4)命令行显示：41.9571。即AutoCAD以表达式的值41.9571为圆的半径绘制了一个圆。
) Q$ o5 ]1 x/ r) |9 N. ~二、Cal函数在找点中的运用
在使用AutoCAD绘图中，常常需要确定一些无法直接给出坐标的点。例如，任意两点间的中点，和任意方向直线相切的圆的圆心，以及直线上任意等分点等。这里可以充分利用AutoCAD的cal函数的几何运算功能，在AutoCAD绘图中实现这些点的快速定位。
下面是利用AutoCAD的cal函数的几何运算功能实现在AutoCAD绘图中经常遇到的一个快速定位的实例。
  |4 J& Z# R. `3 c: h; W例如，要从一个圆心距一直线的端点之间的2/3处为起点画一直线。操作过程如下：
% ?) q" ~2 q* l/ a& Z0 h0 O6 S+ y. X; {Command: line From point: 'cal （起动几何计算器）
9 ~& n, w7 [1 A% _) l8 q- P/ VExpression: plt(cen,end,2/3)(输入表达式，这里计算器把OSNAP的cen和end模式当作点坐标的临时存储单元)
Select entity for CEN sanp用光标捕捉圆心)
) l% P+ ^  I6 Q+ W& R. DSelect entity for END snap:(用光标捕捉直线的端点)
7 i$ M0 D6 ^4 }  m1 ~6 cTo point:
4 N: h# |+ K% j* i  S5 }( D* n" N其他的目标捕捉模式，如int、ins及tan等均可在几何计算表达式中使用。
三、Cal函数在AutoLISP中的运用
' q7 ]# ?/ l$ V2 ~- {( m/ L& S! s0 D一些AutoCAD的高级用户经常运用AutoLISP对AutoCAD进行二次开发，但是AutoLISP所自带的函数运算式的表达方法与我们通用的函数运算式的表达方法不一样，这就给开发过程带来了一定的麻烦。大家都知道，AutoCAD R12及以上版本均内含了一个功能强大的几何计算器cal，它提供了各种常用的函数功能。
但是很少有资料提及的是：几何计算器cal可以作为一个函数直接在AutoLISP中调用，除此之外，它还能接受AutoLISP变量进行运算。
6 g" m, H! T/ b! W8 \5 H' q& U这里以绘制一个y=2x-100sin(x)的函数曲线为例，给出cal函数在AutoLISP中的应用。函数曲线绘制程序如下：
(defun Psin(d) ;其中d是函数的步长
(setq i 0)
(setq e 360)
(setq x i)
(setq y (cal "2*x-100*sin(x)")
6 S# {! _9 N0 M7 e(setq p1 (list x y))
(while (< i e)
(setq i (+ i d))
5 a! {- q7 D1 x" v- v) R(setq x i)
(setq y (cal "2*x-100*sin(x)"))
7 w' C7 n8 J2 A# l(setq p2 (list x y))
(command "_line" p1 p2 "")
- P' P, z9 N8 h0 P: i8 }(setq p1 p2)
+ i! l) C% l* ?+ U( y)
0 J% J* W1 Q9 x; {# b" H. \)
从上面的例子可以看出，由于使用了cal函数，AutoLISP程序中的函数表达式变得方便简捷，尤其是可以采用这个方法编制通用函数曲线输入绘制程序，以弥补AutoCAD没有函数曲线绘制命令的缺陷。但是在使用过程中要注意这两种函数的表达方法所使用的单位并不完全一致，在AutoLISP中角度使用的是弧度，而利用cal函数时使用的角度单位与AutoCAD中的默认单位一致。
四、小结
" _0 u9 f; Z- H4 A/ F灵活运用AutoCAD自带的功能强大的cal几何计算器，不但可以执行标准数学功能，而且可以计算点、矢量表达式以及实数和整数表达式，还可将AutoLISP变量插入算术表达式并返回表达式的值，以给AutoLISP变量赋值。无论是初级使用者还是运用AutoLISP进行二次开发的高级用户，在AutoCAD的使用中巧妙地运用cal函数都可以收到事半功倍的效果。
  K8 R9 a; W# t7 G- u7 U& z) R
$ B; s6 G+ l! n& z0 t8 e; j$ ^2 a我给大家做个示例：沿路径拉伸圆。大R60 、小R40
) B4 _1 l& M8 [2 l& q

wang2003

不好意思，刚题目有误。应该是大圆直径60，小圆直径40。

肖耀宗

我们刚刚开始CAD,想不到还能这么画,真奇妙^^

scliukejun

http://www.3dportal.cn/discuz/viewthread.php?tid=250487
4 ~9 a$ f! M" s+ z7 }: C以上论题所用原理正如楼主所述

luxun2783

收下了，呵呵，善于发现问题，有一个好奇心还是很重要的