再次自动标注单个点的位置乐筑天下

Humbertogo 发表于 2006-4-6 12:22:46

再次自动标注单个点的位置

我正在使用一个自动标注单点位置的尺寸
我需要一些帮助AcadDim校正行间距
我添加了一些AcadDim校正需要具有相同的行间距0.475英寸
任何帮助将不胜感激。
**** Hidden Message *****

CADaver 发表于 2006-4-6 12:23:59

我还是很困惑，你能给我看一张想要的结果的照片吗？？？

Humbertogo 发表于 2006-4-6 12:31:23

对不起，但是我怎样才能添加图片呢..？

Bryco 发表于 2006-4-6 20:43:24

一种方法是在cad绘图按您喜欢的方式设置时对其进行alt+打印筛选。然后打开油漆、word或您选择的图形程序。将该图像保存在某个地方（Jpg更好，但bmp也可以。）然后当您发布时，单击其他选项并浏览到您的文件

Humbertogo 发表于 2006-4-7 05:56:18

这里是打印屏幕

CADaver 发表于 2006-4-7 09:39:08

将DIMDLI设置为0.475或在dimstyle对话框中

然后输入DIMALIGNED作为第一个尺寸。对于后续dim，使用DIMBASELINE。DIMBASELINE将继续放置偏移对齐的dim，直到按ENTER键。

Humbertogo 发表于 2006-4-7 09:55:06

当您使用vb...创建维度时，这是否有效？

Bryco 发表于 2006-4-7 10:56:18

Humbertogo，你需要计算一下这一点。下面的示例使用极点。
子 dbase（）
Dim DAl As AcadDimAl 作为 AcadDimAlignd
Dim Zero（
2） as double dim Pt（2
） as double dim Tp（2） as double
dim polarpt
dim offset as double
dim i as integer
dim dAng as Double
Dim util as acadUtility

Set util = ThisDrawing.Utility
Offset = 0.45

for i = 1 to 5
Pt（0） = i： Pt（1） = i
dAng = util.AngleFromXAxis（Zero， Pt）
Tp（0） = Pt（0） * 0.5： Tp（1） = Pt（1） * 0.5
PolarPt = util.PolarPoint（Tp， dAng + PI * 0.5， Offset）
Set DAl = ThisDrawing.ModelSpace.AddDimAligned（Zero， Pt， PolarPt）
Offset = Offset + 0.45
Next
End Sub
你仍然需要根据角度计算90度或减去它

Humbertogo 发表于 2006-4-7 11:43:31

谢谢Bryco这正是我需要的

页: [1]

乐筑天下's Archiver

再次自动标注单个点的位置