社区 › VB › 秒问题

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。字幕

Jeff_M 发表于 2008-9-26 16:22:27

这个小测试对我来说很有效….这张图。SendCommand“；“行”&amp；vbCr&amp&引用；0,0,0“&amp；vbCr&amp&引用@244&lt；N30D15和039；44“&引用；W“&amp；vbCr&amp；vbCr

MickD 发表于 2008-9-26 16:27:16

对，杰夫，但既然我能#039；我不能提前知道秒是多少，或者结束方向是什么，我可以35;039；不要那样编译它。它被挂在空中。

Jeff_M 发表于 2008-9-26 16:29:18

不要喋喋不休地使用send命令，但如果您获取3个文本框值，进行数学运算，转换为弧度（这是autocad想要的）并以这种方式绘制线，会怎么样？

Jeff_M 发表于 2008-9-26 16:30:10

是的，我意识到，当我发布时……见凯西&#039；s回应……或Duh#039；s

查看完整版本: 秒问题