[转载]AutoCAD几何计算器用于快速定位的实例 [复制链接]

引　言 l\;mP.!  
G=HxD4l  
　　几何计算器是AutoCAD R12提供的一个十分有用的工具。和普通的计算器一样，几何计算器可以完成+、-、*和/的运算以及三角函数的运算。这使得用户在使用AutoCAD绘图过程中，可以在不中断命令的情况下用计算机进行算术运算，AutoCAD则将运算的结果直接作为命令的参数使用。但重要的是，和一般的计算器不同，AutoCAD几何计算器可以作几何运算。它可以作坐标点和坐标点之间的加减运算，可以使用AutoCAD的OSNAP模式捕捉屏幕上的坐标点参与运算，还可以自动计算几何坐标点。如计算两条相交直线的交点，计算直线上的等分点等。此外，AutoCAD几何计算器还具有计算矢量和法线的功能。当然，AutoCAD几何计算器还有其它的功能，这里就不一一罗列。 @1?]$?u&  
,Kf8T9z`  
　　在使用AutoCAD绘图中，常常需要确定一些无法直接给出坐标的点。例如，任意两点间的中点;和任意方向直线相切的圆的圆心;以及直线上任意等分点等。这就是我们通常所说的CAD绘图的定位问题。实际上，在许多计算机绘图场合，定位是否方便和精确往往直接影响作图的效率和速度。因此，应该充分利用AutoCAD几何计算器的几何运算功能，来实现AutoCAD绘图中的快速定位。 kj!7|1i2  
rHgdvDc  
　　在命令提示Command：下键入CAL或激活下拉式菜单的辅助菜单项拾取其中几何计算菜单项都可启动AutoCAD几何计算器。CAL命令也是一个透明命令，可以在其它的命令下随时启动几何计算器。此外，还可以在AutoLISP程序中使用CAL命令。 qf`xH"$  
}K80G~O2<  
　　下面是利用AutoCAD几何计算器的几何运算功能实现在AutoCAD绘图中经常遇到的几个快速定位的实例。 Y\e]2  
SWjQ.aM  
　　1.在两实体间确定中点 :LiDJF  
4ylDD|) rO  
　　这里不需先在两个实体之间画一条辅助线再用OSNAP的MID模式得到中点。例如，要从一个圆心和一直线的端点之间的中心为起点画一直线。操作过程如下： C<t'f(4s`u  
(F[/~~  
　　Command: line +1Rrkok  
^I<T+X+<  
　　From point: 'cal (启动几何计算器) Eu/y">;v#  
)ko{S[gG  
　　>> Expression: (cen+end)/2 (输入表达式，这里计算器把OSNAP的cen和end模式当作点坐标的临时存储单元) <cv2-?L{  
W0MnGzZ  
　　>> Select entity for CEN snap:(用光标捕捉圆心) )d(0Y<e@  
0\Yx.\X,  
　　>> Select entity for END snap:(用光标捕捉直线的端点) |1+(Ny.%k  
s"',370  
　　To point: +'['HQ)  
+#qt^NO  
　　其它的目标捕捉模式如int、ins 、tan等等均可在几何计算表达式中使用。如果用表达式(cur+cur)/2代替表达式(cen+end)/2，则可以在计算机要求输入点时，再设定OSNAP方式来捕捉所需的点。 sh(kRrdY3  
P%+or*  
　　2.确定一条直线上的任意等分点和与直线端点定长的点 MkW1FjdP  
5`"*y iv  
　　使用几何计算器提供的plt和pld函数可以完成这个操作。假设屏幕上有一端点为A和B的直线，要在直线上获得分直线段AB为1比2的点。仍以画直线为例，操作过程如下： 3Wb2p'V7$?  
*$Lz2 ]  
　　Command: line i=1 }lkq  
nl'J.dJe  
　　From point: 'cal Q6.*"`  
}or2 $\>m  
　　>> Expression: plt(end,end,1/3) JC&6q>$  
2#b<d?"  
　　>> Select entity for END snap:(用光标捕捉端点A) `xX4!^0Hm  
r'd:SaU+  
　　>> Select entity for END snap:(用光标捕捉端点B后即得到距A点为1/3线段长的点) Q&upxE4-~  

VXkAFgO  
　　To point: O+o;aa6  
'l' X^LMD  
　　如果要得到直线上距端点A为5的点，使用函数pld(end,end,5)代替上面操作过程中的plt(end,end,1/3)即可。 *"ykTqa  
'Gl;Ir^  
　　3.用相对坐标来确定点 3|~(?4aE  
Bn1L?>G  
　　在绘图中，经常要相对一条线画出另一条线，下面就是操作过程： b~/Wnp5  
u%=bHg  
　　Command: line oE!hF}O  
]HyHz9QkL  
　　From point: 'cal @TA8^ND  
BZJKiiD  
　　>> Expression: end+[2,3](作点和点的相加运算) #u8*CA9  
Na. nA  
　　>> Select entity for END snap:(捕捉一基准直线的端点后即可获得距端点相对位移(2，3)的点) T/wM(pr'   
v~V;+S=gz  
　　To point: Gg}5$||^C  
NokXE  
　　这个功能和AutoCAD R13中提供的From目标捕捉模式相似。 (Bt;DM#>  
QT1:>k  
　　4.作和一斜线相切的圆以及过圆上一点作圆的切线 ~>#LOT `  
gH{:`E k7  
　　利用AutoCAD正交模式可容易地画出和垂直线或水平线相切的圆。画一个和斜线相切的圆则需要准确地确定圆心。操作过程如下： 1UW s_|X!  
k;;nE o~6
 
　　Command: circle ;'=VrE6  
7.Ml9{M/i  
　　3P/2P/TTR/: 'cal S)"##-~`T  
s?^,iQ+tp  
　　>> Expression: cur+3*nee(cur表示用光标在屏幕上拾取一个点，nee函数用来计算两端点矢量的法线，3是圆的半径) 1Q&cVxA"\  
0NQ7#A  
　　>> Enter a point:nea(用光标在直线上捕捉一个点作为圆和直线的切点) H\)gE>  
<#xrrRhm}  
　　to >> Select one endpoint for NEE:(用光标捕捉直线的一个端点) w::r?.9  
<G\ <QV8W  
　　>> Select another endpoint for NEE:(用光标捕捉直线上的另一个端点) >.J'L5 x$  
fDU+3b  
　　Diameter/ <1.6745>: 3(给出圆的半径后即可画出这个圆) F~z_>1lpP&  
UvPp~N7,  
　　改变光标捕捉直线两个端点的顺序可在直线的另一侧画圆。 fd?bU|I_2  
6oj4Rg+(  
　　假设过圆和一直线的交点作圆的切线的操作过程如下： <K.Bq]
 
5R,la\!bQ  
　　Command: line f\h%; X  
GhqgRzX  
　　From point: int(捕捉交点) 4)c+t"h  
C
xJfrI_W  
　　of iY0,WT}&n  
R'G'&H{N  
　　To point: 'cal 0SJ{@*  
_/|8%])  
　　>> Expression: int+3*nor(cen,int) ':,>eL#+uV  
\HCOR, `T  
　　>> Select entity for INT snap:(用光标捕捉交点) `6rrXU6|  
uyL72($  
　　>> Select entity for CEN snap:(用光标捕捉圆心)  LsQs:O  
LkaG8#m1R  
　　>> Select entity for INT snap:(再用光标捕捉交点即画出从交点出发长度为3的已知圆的切线) M'^(3#ZU  
mYjf5  
　　To point: jo_o`j  
|xq}'.C  
　　5.过一条斜线上的已知点作斜线的垂线 Jf
_]Z  
q z=yMIy=  
　　因为是非水平非垂直的直线所以不能用AutoCAD的正交模式画直线的垂线。利用几何计算器可直接画出和斜线垂直并且为确定长度的直线。实际上这是一个如何确定垂线的另一个端点的问题。其操作过程如下： 机械设计 ha_@Yqgh  
=f
o4x|{O  
　　Command: line kfVZ=`p}  
dF$KrwDK  
　　From point: mid(设过直线的中点作垂线) Tc:sldtCk  
q1UBKhpnH  
　　of -dl}_   
?#4+r_dP  
　　To point: 'cal =Q@6c   
ab{;Z5O  
　　>> Expression: mid+5*nee(5是垂线的长度) #xlZU  
:ezA+=ENg  
　　>> Select entity for MID snap:(用光标选择斜线捕捉中点) fb/qoZ  
l#Yx
TY  
　　>> Select one endpoint for NEE:(用光标捕捉直线的端点) 'w}p[(  
3KtAK9PT  
　　>> Select another endpoint for NEE:(用光标捕捉直线的另一个端点) CP +4k.)*O  
Hr8\QgD<4  
　　to point: AQ-mE9>P  
R3$@N  
　　同样，改变光标捕捉直线端点的顺序，也可在直线的另一侧画垂线。

楼主的资料不错！楼主辛苦了，

thx for sharing