绘图中的问题
'直线绘制方法(AddLine)代码
Dim Lineobj As AcadLine
Dim startpoint(0 To 2) As Double, endpoint(0 To 2) As Double
startpoint(0) = x0#: startpoint(1) = y0#: startpoint(2) = z0#
endpoint(0) = x0#: endpoint(1) = y0#: endpoint(2) = z0#
Set Lineobj=acadapp.ActiveDoument.ModelSpace.
-AddLine(startpoint,endpoint)
'圆弧绘制方法(AddArc)代码
Dim Arcobj As AcadArc
Dim Center(0 To 2) As Double, radius As Double
Dim StartAngle As Double, EndAngle As Double
Center(0) = x0#: Center(1) = y0#: Center(2) = z0#
radius = RO
Set Arcobj=acadapp.ActiveDoument.ModelSpace.-
AddCircle(Center,radius,StartAngle,EndAngle)
'创建长度尺标注对象
RetVal=acadapp.ActiveDoument.ModelSpace.-
AddDimAligned(ExtLinelPoint, ExtLine2Point, TextPosition)
'创建角度标注对象
RetVal= acadapp.ActiveDoument.ModelSpace.-
AddDimAngular(Anglevertex,standpointint,SecondEndPoint,TextPoint)
' 创建半径尺标注对象用(AddDimRadial)方法
RetVal= acadapp.ActiveDoument.ModelSpace.-
AddDimRadial(Center,ChordPoint,LeaderLength)
'创建直径型标注对象
RetVal= acadapp.ActiveDoument.ModelSpace.-
AddDimDiametric(ChordPoint,FarChordPoint,LeaderLength)
上面的代码是在别人论文中找的，为什么在VB里面会显示成红色，这该怎么改才能实现那些功能？
[解决办法]
首先 acadapp 在哪里 AddDimAligned 这些方法你也没有
你给的东西 别人根本不知道是干嘛的 实现什么功能 出现什么效果 我估计只有上帝能帮你
[解决办法]
画出样式 在哪里 窗体 还是 pic控件 还是其他什么地方
[解决办法]
你可真算是人才 思维太不系统 要让一个 不知道的人 理解你的要求 别人才能帮你
[解决办法]
这个是不是要调用CAD啊
