SEANT 发表于 2022-7-6 15:59:52

这确实很奇怪。我认为Civil 3D可能与Xline实现有所不同。
你有标准的AutoCAD设置吗？我上面发布的例程在运行时是否抛出错误？

russell84 发表于 2022-7-6 16:03:29

好吧，我也有acad 2007——我已经更改了对它的引用，并通过acad2007运行它——不幸的是，仍然是相同的错误。
 
我会再试试，然后尽快给你回复。
 
谢谢你的帮助

russell84 发表于 2022-7-6 16:06:02

一个快速的一个-如何插入一个块和规模与vb它。网
 
假设块名为“SWPIT”
插入点为（0，0，0）
 
??

SEANT 发表于 2022-7-6 16:12:26

看看这个帖子：
 
http://www.cadtutor.net/forum/showthread.php?t=29882
 
它有一些处理块引用的示例代码。区块引用。ScaleFactors属性控制缩放。

russell84 发表于 2022-7-6 16:16:10

谢谢你——我周末看了一眼——真的很有用！
 
嘿，你如何访问绘图工具并做到这一点？？
 
VBA代码

EndPt1 = ThisDrawing.Utility.PolarPoint(StartPt1, Ang1, Dist1)

 
我如何在VB中做到这一点。网
 
谢谢

russell84 发表于 2022-7-6 16:21:26

事实上，像这样的事情应该行得通
 

Public Function PolarPoint(ByVal basepoint As Point3d, ByVal angle As Double, ByVal distance As Double) As Point3d
Return New Point3d(basepoint.X + (distance * Math.Cos(angle)), basepoint.Y + (distance * Math.Sin(angle)), basepoint.Z)
End Function

 
干杯
页: 1 [2]
查看完整版本: vb。net需要帮助