vb。net需要帮助

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代码

copy

[size=2][color=#008000]
EndPt1 = ThisDrawing.Utility.PolarPoint(StartPt1, Ang1, Dist1)
[/color][/size]

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

谢谢

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

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

copy

[size=2][color=#0000ff]
Public Function [/color][/size][size=2]PolarPoint([/size][size=2][color=#0000ff]ByVal [/color][/size][size=2]basepoint [/size][size=2][color=#0000ff]As [/color][/size][size=2]Point3d, [/size][size=2][color=#0000ff]ByVal [/color][/size][size=2]angle [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#6f002f]Double[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal [/color][/size][size=2]distance [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#6f002f]Double[/color][/size][size=2]) [/size][size=2][color=#0000ff]As [/color][/size][size=2]Point3d
[/size][size=2][color=#0000ff]Return New [/color][/size][size=2]Point3d(basepoint.X + (distance * Math.Cos(angle)), basepoint.Y + (distance * Math.Sin(angle)), basepoint.Z)
[/size][size=2][color=#0000ff]End Function
[/color][/size]

干杯

[编程交流] vb。net需要帮助

发表回复

精选推荐