黄玉宏 发表于 2009-7-31 16:59:00

[求助]VB后期绑定如何设置线宽？

<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt;">如题，在<span lang="EN-US">CAD中设置颜色X.Color=acRed，设置线宽X.Lineweight = acLnWt060；则VB中颜色表达为X.Color=1；那么线宽怎样设置，查不到acLnWt060对应的整数值！<p></p></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt;">先谢谢各位同行！<span lang="EN-US"><p></p></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt;">黄玉宏<span lang="EN-US"><span style="mso-spacerun: yes;">&nbsp;&nbsp; </span>二○○九年七月三十一日<p></p></span></p>

xds520007 发表于 2009-7-31 17:20:00

&nbsp; Set layerObj = ThisDrawing.Layers.Add("粗双点划线")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; layerObj.Linetype = "PHANTOM"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; layerObj.color = acCyan&nbsp; '青色<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; layerObj.Lineweight = acLnWt040&nbsp;&nbsp; '线宽0.4

黄玉宏 发表于 2009-7-31 18:06:00

<p>这个不行啊，这还是在CAD中直接使用或前期绑定，后期绑定不能写成ac**</p><p>谢谢！</p>

雪山飞狐_lzh 发表于 2009-7-31 18:43:00

<p>VBA里</p><p>msgbox acLnWt040</p><p>show一下OK</p>

黄玉宏 发表于 2009-7-31 22:31:00

<p>非常感谢版主，帮我解决了困绕多时的难题！</p><p>再次感谢！</p><p>黄玉宏</p><p>二○○九年七月三十一日</p>
页: [1]
查看完整版本: [求助]VB后期绑定如何设置线宽？