[求助]：CreateLineElement1后如何修改线型比例“属性”

stoneball

我用VBA:Set oLineElement = CreateLineElement1(Nothing, ptArr)创建线，但线型比例不对，不知道该如何设置？
或者如何修改线的比例“属性”
我用手工绘的智能线是0.5比例的，但用程序绘的是1.0的，

！！！我如何用程序绘0.5比例的线！！！

图中白色是手绘的，兰色是程序创建的

我是新手

laixc66

把你的比例因子改掉就可以了！

cmx_stone

看图就知道了

stoneball

不对呀！！！
我用手工绘的智能线是0.5比例的，但用程序绘的是1.0的，我想用程序绘0.5比例的线
如果楼上的对，那怎样用VBA设置线形的比例呢？LineStyle Object只有四个属性，没有可以设置比例的？

谢谢！

  CadInputQueue.SendCommand "PLACE SMARTLINE "
    iLayer = IIf(Trim(rs.Fields("LayerNew").Value) <> "", Trim(rs.Fields("LayerNew").Value), 0)
    CadInputQueue.SendCommand "ACTIVE LEVEL " & iLayer
    CadInputQueue.SendCommand "ACTIVE COLOR " & CInt(rs.Fields("ColorNum").Value)
    sLinetypeObj = UCase(sLinetypeObj)
    If sLinetypeObj = "CONTINUOUS" Then
        sLinetype = "0"
    Else
        sLinetype = IIf(Trim(rs.Fields("LTypeNew").Value) <> "", Trim(rs.Fields("LTypeNew").Value), "0")
    End If
    CadInputQueue.SendCommand "ACTIVE STYLE " & sLinetype
    For i = 0 To UBound(ptArr)
        CadInputQueue.SendDataPoint ptArr(i), ActiveDesignFile.Views(1)
    Next
    CadInputQueue.SendReset
用上面的方法，如果SEED比例为0.5的话可绘0.5的线，但特别慢（因为要不停的设置层、线形等）

用下面的方法速度比较快，但同样的SEED也不能绘0.5的线
'    '生成线
   Set oLineElement = CreateLineElement1(Nothing, ptArr)
    iLayer = IIf(Trim(rs.Fields("LayerNew").Value) <> "", Trim(rs.Fields("LayerNew").Value), 0)
    Set oLineElement.Level = currentdgnDesignFile.Levels.FindByCode(iLayer)
    oLineElement.Color = CInt(rs.Fields("ColorNum").Value)
    oLineElement.LineWeight = 0
    sLinetypeObj = UCase(sLinetypeObj)
    If sLinetypeObj = "CONTINUOUS" Then
        sLinetype = "0"
    Else
        sLinetype = IIf(Trim(rs.Fields("LTypeNew").Value) <> "", Trim(rs.Fields("LTypeNew").Value), "0")
    End If
    Set oLineStyle = currentdgnDesignFile.LineStyles.Find(sLinetype)
    Set oLineElement.LineStyle = oLineStyle
'    '添加到新建的文件中
    currentdgnDesignFile.DefaultModelReference.AddElement oLineElement
    oLineElement.Redraw

laixc66

比例因子应该是SCALE FACTOR=“你需要输入的数字”

stoneball

用CadInputQueue.SendCommand 的方式绘出来是对的
但用CreateLineElement1，不管SCALE FACTOR是几，绘出来的比例总是1.0。

newshow

使用LTSCALE命令也可以达到用户所要的效果。不过那是从整体上针对一套图纸的。
这个问题其实我也搞得不是很清楚，经常在这两个方面多试几次。

stoneball

拜托啦，那LTSCALE好象是ACAD的命令。
我都快急死啦！！！！

laixc66

有个比较笨的方法：那你就生成以后再用Chang Element对它统一修改！

stoneball

laixc66 :
    用你的办法 我创建LINE后，如何进行Chang Element，能具体些吗？先谢过啦！Chang Element我还不知道怎样给它一个射定的比例系数呢？

nnwjchen

針對你的問題也可說明這是 MS VBA的一個缺陷吧.我曾爲此大傷腦筋,至今還沒有打到一個理想的方法.希望各位高手賜教!

stoneball

MS 会流这么大一个缺陷？也许有别的解决办法吧！救救我吧，我测试了用CreateLineElement1速度是那种方法的4-5倍，
!!!!!!但没法创建比例系数为0.5的线（至少我不会）!!!!!!!
那种方法速度实在无法忍受。我的机器是P42.8，512DDR的，项目上的机器甚至还在用P3(400/500)，他们就更没法忍受啦。怎么解决

laixc66

那你就用CreateLineElement1好了！

zergman

你试试在vba中调用mdl 中相应函数吧。
vba本身提供的功能很有限。

stoneball

我是处学者，能详细说一下我将很感激！谢谢