秒问题

Matt__W · 发表于 2008-9-26 16:07:07

好的，我&#039；我被难住了
我怎么才能把它们串在一起；秒“；在命令中以度、分、秒为单位
当我试着把它串起来时&引用&quot；，它增加了一个额外的“；（“S”）
如果我把它作为两分钟标记（&#039；），it#039；Cad无法识别
I&#039；我尝试了很多变体，但都没有用
仅供参考-用于绘制土木支座，如所示；120DN15和039；44“；W

Cathy · 发表于 2008-9-26 16:08:02

你能贴出你想要的吗；到目前为止？

Jeff_M · 发表于 2008-9-26 16:11:17

给你…
Private Sub cmdAddLine\u Click（）
如果标签1。标题=&quot&引用；然后
标签1.Caption=&quot@&引用&amp；Val（txtboxDistance.text）&amp&引用&lt&引用&amp；lblStartDir。标题（&A）；Val（txtboxDegrees.text）&amp&引用；D“&amp；Val（txtboxMinutes.text）&amp&引用'&引用&amp；Val（txtboxSeconds.text）&amp；vbCr&amp；lblEndDir。Caption Else如果列表框1.AddItem Label1.Caption则结束。文本=&quot&引用
txtboxDegrees。文本=&quot&引用
txtbox分钟。文本=&quot&引用
TXTBox秒。文本=&quot&引用
optClear1.value=True&引用
结束Sub
Private Sub cmdStringInfoTogether\u Click（）
出错时继续下一步
ThisDrawing。SendCommand“；“行”&amp；vbCr&amp&引用；0,0,0“&amp；vbCr&amp；列表框1.List（0）
结束子对象

Jeff_M · 发表于 2008-9-26 16:12:39

当然，首先为txtboxDistance.text添加值。text.text

Jeff_M · 发表于 2008-9-26 16:14:07

...加上开始和结束方向（NSEW）的单选按钮数据选择。

MickD · 发表于 2008-9-26 16:17:52

我过去用过这样的东西&nbsp
私人施工报价&nbsp&nbsp；作为字符串=&quot&引用&引用&引用
Label1.Caption=&quot@&引用&amp；Val（txtboxDistance.text）&amp&引用&lt&引用&amp；lblStartDir。标题（&A）；Val（txtboxDegrees.text）&amp&引用；D“&amp；Val（txtboxMinutes.text）&amp&引用'&引用&amp；Val（txtboxSeconds.text）&amp；报价（&A）；vbCr&amp；lblEndDir。字幕