[求助]：请教高手，..D..'.."度分秒数据如何分别提出以便赋值

jinsong-liao

各位大虾：
  在LSP编程中，需要将量取的角度XXDXX'XX"其中的多少度多少分多少秒值分别取出，
以便赋值,请问该如何处理？请指点。多谢了！

netbee

1、先将其由数值角度转换为字符串角度；
2、然后你再将该字符串分离；
3、最后再将字符串转换成数值即可。

jinsong-liao

先谢谢netbee斑竹，可是我不知道该用那个函数分离呀，能不能给我简单示范一下？

xyp1964

(angtos ang1 1 4); ang1 为量取的角度

(substr (angtos ang1 1 4) 1 2);度
(substr (angtos ang1 1 4) 4 2);分
(substr (angtos ang1 1 4) 7 2);秒

jinsong-liao

4楼楼主讲的我理解，但我的问题还是未弄明白，比如10d20‘30“，我需要将10取出，

放入表格度列，将20取出放入表格分列，将30放入表格秒列，取出的数据不能含度分秒单位，

我如何将10、20、30数据分别提出来？也就是说如何取出字符串中某一位置指定的字符。

                                 拜托高手们指点迷津！！！

netbee

SUBSTR
(substr string start [length])

The substr function starts at the start character position of string and continues for length characters.

Arguments

string

A string.

start

A positive integer indicating the starting position in string. The first character in the string is position 1.

length

A positive integer specifying the number of characters to search through in string. If length is not specified, the substring continues to the end of string.

Note: The first character of string is character number 1. This differs from other functions that process elements of a list (like nth and ssname) that count the first element as 0.

Return Values

A string.

Examples

Command: (substr "abcde" 2)

"bcde"

Command: (substr "abcde" 2 1)

"b"

Command: (substr "abcde" 3 2)

"cd"

本版有VLISP函数的中文说明及示例呀，你可以下载的。
http://www.xdcad.net/forum/showt ... d=429510#post429510

aeo

3.45678
3                                   度
(fix(0.4567 * 60) )           分
(fix (0.4567 * 3600) ) -  ?分 * 60

jinsong-liao

非常感谢netbee、xyp1964、ace等朋友的热心帮助，你们花费时间和精力，给素不相识
的求教者不厌其烦的答疑解惑。还要感谢晓东同志提供给大家一个学习、交流的舞台，有
你们的真诚、热心、奉献，必会培养一大批CAD应用高手！在这里得到支持、锻炼和提高，
我们这些初学者的心不是巴凉、巴凉的！而是热乎热乎的！！！
                        向你们致敬！

墨色寒冰

本版有VLISP函数的中文说明及示例呀，你可以下载的。
http://www.xdcad.net/forum/showthre...9510#post429510
多谢netbee斑竹体贴，还是看中文帮助方便