[求助]：请高手指点怎么样才能从文本里展点号？

blue

我在文本里输入坐标 ，格式是这样的
点号，X坐标，Y坐标
……
怎么样才能提取X，Y坐标，然后标注点号？  我用atof把字符串转成实数,再用nth从0开始排序提取没有成功。
请哪位高手指点一下？  谢谢了。

zhynt

在文本里输入时采用表的形式：
（点号 （X Y））
然后用CAR、CADR等等来提取。

blue

谢谢zhynt 的回复，但如果格式是固定不变的，也就是说，中间只能用逗号分隔，那该怎么办？

laimaomao

我有个卓见
读入行的时候在内存里的应该是  "点号,x,y"   的吧？
把它看成一个字符串，查找第一个逗号的位置，提出点号的字符串长度，截取点号这一字符串，剩下的就是“X，Y”字符串，用同样的办法截取X坐标，和Y坐标，这样应该就行了吧！
试试吧！
拙见，见笑了！

blue

那怎么样区分数字与逗号呢?

eachy

这种情况用Autodesk Map3D 2005 可以直接展点。

f5612140

參考
(defun c:pln2 ()

  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq selnum (getvar "osmode"))
  (setvar "osmode" 0)
  (setq cc (getvar "cecolor"))
  (setq th (getvar "textsize"))

  (setq fl (getstring "\nEnter File name < *.pln>: "))
  (setq fil (open (strcat fl ".pln") "r"))

  (setq data (read-line fil))
  (setpt data)
  (setq p1 pt)
  (command "color" 1)
  (command "text" p1 th 0 nn)
  (setq data (read-line fil))
  (setpt data)
  (setq p2 pt)

  (command "color" 3)
  (command "donut" 0 (/ th 3) p1 "")
                                        ; (setq t 1)
  (while p2
    (setq ang (angle p1 p2))
    (setq anga (* (/ ang pi) 180))
    (setq dt (distance p1 p2))
    (command "color" 3)
    (command "line" p1 p2 "")
    (command "donut" 0 (/ th 3) p2 "")
    (command "color" 1)
    (command "text" p2 th 0 nn)
    (setq pt (polar p1 ang (/ dt 2)))
    (setq atp (polar pt (+ ang (/ pi 2)) (/ th 3)))
    (setq dtp (polar pt (- ang (/ pi 2)) (+ (/ th 3) th)))
;    (command "color" 6)
;    (command "text" "C" atp th anga (strcat (rtos anga 2 2) "%%D"))
;    (command "color" 4)
;    (command "text" "C" dtp th anga (RTOS dt 2 2))
;    (command "color" 1)
    (setq p1 p2)
                                        ;   (grread t)
    (setq data (read-line fil))
    (setq p2 nil)
    (if        (/= data nil)
      (progn
        (setpt data)
        (setq p2 pt)
      )
    )
  )

  (close fil)
  (setvar "osmode" selnum)
  (command "color" cc)

  (prin1)
)


(defun setpt (data /)

  (setq        q   ""
        qq  ""
        qqq '()
        i   1
  )
  (setq nn (strlen data))
  (repeat nn
    (setq q (substr data i 1))
   (if        (/= q ",")  ;改為 (if (/= q " ") 由空格分開[/COLOR]
      (setq qq (strcat qq q))
      (setq qqq        (cons qq qqq)
            qq        ""
      )
    )
    (setq i (+ i 1))
  )
  (setq qqq (cons qq qqq))
  (setq qqq (reverse qqq))

  (setq nn (car qqq))
  (setq x (atof (cadr qqq)))
  (setq y (atof (caddr qqq)))
  (setq pt (list x y))
  (prin1)
)

blue

谢谢f5612140 ，晓东论坛里还是高手多。

zhynt

这是我编的一个通用程序，可以完成这个功能：

2. 
   
3. ;;
   
4. ;;将由相同分隔字符分隔的字符串组成表（忽略“空”字串）
   
5. ;;
   
6. (defun zhy_string_tok (sstring sstr / n1 n2 m2 str_1 string_list)
   
7.   (setq string_list '())
   
8.   (setq n1 (strlen sstring))
   
9.   (setq n2 (strlen sstr))
   
10.   (while (setq m2 (zhy_string_find sstring sstr))
    
11.     (setq str_1 (substr sstring 1 (- m2 1)))
    
12.     (setq sstring (substr sstring (+ m2 n2)))
    
13.     (if        (/= str_1 "")
    
14.       (setq string_list (cons str_1 string_list))
    
15.     )
    
16.   )
    
17.   (if (/= sstring "")
    
18.     (setq string_list (cons sstring string_list))
    
19.   )
    
20.   (reverse string_list)
    
21. )
    

<br /> ;;<br /> ;;将由相同分隔字符分隔的字符串组成表（忽略“空”字串）<br /> ;;<br /> (defun zhy_string_tok (sstring sstr / n1 n2 m2 str_1 string_list)<br />   (setq string_list '())<br />   (setq n1 (strlen sstring))<br />   (setq n2 (strlen sstr))<br />   (while (setq m2 (zhy_string_find sstring sstr))<br />     (setq str_1 (substr sstring 1 (- m2 1)))<br />     (setq sstring (substr sstring (+ m2 n2)))<br />     (if        (/= str_1 "")<br />       (setq string_list (cons str_1 string_list))<br />     )<br />   )<br />   (if (/= sstring "")<br />     (setq string_list (cons sstring string_list))<br />   )<br />   (reverse string_list)<br /> )<br />

zhynt

例子：
命令: (zhy_string_tok "点号,X坐标,Y坐标" ",")
("点号" "X坐标" "Y坐标")

用法：
命令: (setq aa (zhy_string_tok "点号,X坐标,Y坐标" ","))
("点号" "X坐标" "Y坐标")

命令: (car aa)
"点号"

命令: (cadr aa)
"X坐标"

命令: (caddr aa)
"Y坐标"

当然，实际提取的XY坐标是字符串，可以用ATOF函数转换成实数型。

nckdkg

都是高手啊。看不懂