[VBA程序]：画线

flydyt

请问各位,通过线上一点画这条线的垂线怎么实现.谢谢

efan2000

先求出直线的角度，然后使用PolorPoint求出过这点与直线成90度的任意距离的点，最后再通过这两点画出直线。

lsjjm

还可以该点拷贝后再rao该点旋转90度.

flydyt

先谢谢.PolorPoint是什么函数VBA中怎么没有,如是自定义的,能不能给上传一份.谢谢

efan2000

内部函数。
RetVal = PolarPoint(Point, Angle, Distance)

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_PolarPoint()
   
5.     ' This example finds the coordinate of a point that is a given
   
6.     ' distance and angle from a base point.
   
7.    
   
8.     Dim polarPnt As Variant
   
9.     Dim basePnt(0 To 2) As Double
   
10.     Dim angle As Double
    
11.     Dim distance As Double
    
12.    
    
13.     basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
    
14.     angle = 0.1744444   ' 45 degrees
    
15. 
    
16.     distance = 5
    
17.     polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance)
    
18.    
    
19.     ' Create a line from the base point to the polar point
    
20.     Dim lineObj As AcadLine
    
21.     Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, polarPnt)
    
22.     ZoomAll
    
23.    
    
24. End Sub
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_PolarPoint()<br />     ' This example finds the coordinate of a point that is a given<br />     ' distance and angle from a base point.<br />     <br />     Dim polarPnt As Variant<br />     Dim basePnt(0 To 2) As Double<br />     Dim angle As Double<br />     Dim distance As Double<br />     <br />     basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#<br />     angle = 0.1744444   ' 45 degrees<br /> <br />     distance = 5<br />     polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance)<br />     <br />     ' Create a line from the base point to the polar point<br />     Dim lineObj As AcadLine<br />     Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, polarPnt)<br />     ZoomAll<br />     <br /> End Sub<br />   [/FONT]<br />

eachy

vlax-curve-getsecondderiv 好不好用

flydyt

谢谢