cryyyy 发表于 2005-4-18 20:39:00

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

经过我测试


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


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


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

mikewolf2k 发表于 2005-4-18 21:48:00

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

cryyyy 发表于 2005-4-19 09:13:00

那如何更改这个比例


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

leeyeafu 发表于 2005-4-19 09:45:00

使用AcadLine对象的LineTypeScale属性

可以参考以下代码段：


Dim ObjLine As AcadLine


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


ObjLine.LineType = "CENTER"


ObjLine.LineTypeScale = 10


Thisdrawing.Application.Update


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

cryyyy 发表于 2005-4-19 11:12:00

leeyeafu发表于2005-4-19 9:45:00static/image/common/back.gif回复：（leeyeafu）使用AcadLine对象的LineTypeScale属性可以参考以下代码段：



Dim ObjLine As AcadLine


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


Obj


<BR>谢谢


非常


回头去试试

cryyyy 发表于 2005-4-20 20:51:00

leeyeafu发表于2005-4-19 9:45:00static/image/common/back.gif回复：（leeyeafu）使用AcadLine对象的LineTypeScale属性可以参考以下代码段：



Dim ObjLine As AcadLine


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


Obj

<BR>



具体要怎么做?


我做了不行


不懂得做


再次请教

caige 发表于 2005-4-22 10:08:00

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

mikewolf2k 发表于 2005-4-22 19:26:00

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

cryyyy 发表于 2005-4-24 15:20:00

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


<BR>用反了?


那到底应该怎样用呢?
页: [1]
查看完整版本: 在用vb对cad进行二次开发时,关于点画线的问题?