在用vb对cad进行二次开发时,关于点画线的问题?

cryyyy

经过我测试


点画线 只有在 长度 >50时 才会出现 点画线


如果点画线 长度<= 50,则 出现 细实线


请问:到底怎样解决这样的问题???

mikewolf2k

这应该是线型比例问题，其实都是点画线，只是比例不合适以致看不出来而已。这跟二次开发无关，直接画线也有这个问题。

cryyyy

那如何更改这个比例


假如说:让它在比较小的距离内就有一个点,使之更容易被人识别~!~该如何更改?

leeyeafu

可以参考以下代码段：


Dim ObjLine As AcadLine


Set ObjLine = Thisdrawing.ModelSpace.AddLine(StartPoint,EndPoint)


ObjLine.LineType = "CENTER"


ObjLine.LineTypeScale = 10


Thisdrawing.Application.Update


若线仍然看不清楚，可再加大线型比例。

cryyyy

leeyeafu发表于2005-4-19 9:45:00回复：（leeyeafu）使用AcadLine对象的LineTypeScale属性可以参考以下代码段： Dim ObjLine As AcadLine Set ObjLine = Thisdrawing.ModelSpace.AddLine(StartPoint,EndPoint) Obj

谢谢 非常 回头去试试

cryyyy

leeyeafu发表于2005-4-19 9:45:00回复：（leeyeafu）使用AcadLine对象的LineTypeScale属性可以参考以下代码段： Dim ObjLine As AcadLine Set ObjLine = Thisdrawing.ModelSpace.AddLine(StartPoint,EndPoint) Obj

具体要怎么做? 我做了不行 不懂得做 再次请教

caige

你在CAD里编程，不要在VB单独引用CAD编程，你用反了，

mikewolf2k

4楼方法是如何设置比例，不过我认为关键是如何获得合适的比例，这跟当前视图大小、屏幕分辨率都有关。

cryyyy

caige发表于2005-4-22 10:08:00你在CAD里编程，不要在VB单独引用CAD编程，你用反了，

用反了? 那到底应该怎样用呢?