[VBA程序]：怎么输入度分秒符号？

mlr_nj · 发表于 2005-4-18 18:51:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教各位大侠：
在vba中怎么实现度分秒符号的输入
比如：
dim dd as double
dim mm as double
dim ss as double
dim text as string
dd=10
mm=11
ss=12
问题是怎样让text＝10°11′12″
text=str(dd)&"°"&str(mm)&"'"&str(ss)&"""是不行的。
有谁输入过？

gcgerkaven · 发表于 2005-4-19 01:02:07

可以呀？！

雪山飞狐(lzh) · 发表于 2005-4-19 20:01:52

text = Str(dd) & "°" & Str(mm) & "'" & Str(ss) & """"

mlr_nj · 发表于 2005-4-19 22:24:51

谢谢斑竹，成功了。代码如下：
Sub ss()
a = "10" & "'" & "2" & """"
Dim p1(2) As Double
p1(0) = 0: p1(1) = 10: p1(2) = 0
Dim s As AcadText
ThisDrawing.ModelSpace.AddText a, p1, 3
End Sub

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：怎么输入度分秒符号？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块