请求一个根据多段线顶点的信息生成多段线的程序。

Lisphk

工作中，相关部门总是提供一个文本文件里面记录着多段线的顶点坐标表，从来不给我们电子文档。我们都要根据坐标一个一个的把多段线画出来，能不能给写一个工具，自动生成多段线呢？

谢谢！

数据如下，就是用LIST命令列出的多段线信息：

1. 
   
2.             LWPOLYLINE  图层: 竣工落图地形
   
3.                             空间: 模型空间
   
4.                    句柄 = E70A
   
5.             闭合
   
6.     固定宽度    0.0000
   
7.               面积   948.8353
   
8.          周长   143.2095
   
9. 
   
10.           于端点  X=89145.7383  Y=42547.7105  Z=   0.0000
    
11.           于端点  X=89163.3181  Y=42566.5083  Z=   0.0000
    
12.           于端点  X=89168.9188  Y=42558.2746  Z=   0.0000
    
13.           于端点  X=89185.8763  Y=42566.3530  Z=   0.0000
    
14.           于端点  X=89200.3447  Y=42550.8176  Z=   0.0000
    
15.           于端点  X=89186.8097  Y=42547.8659  Z=   0.0000
    
16.           于端点  X=89182.9204  Y=42537.1465  Z=   0.0000
    
17.           于端点  X=89175.6084  Y=42539.9429  Z=   0.0000
    
18.           于端点  X=89162.0736  Y=42535.7483  Z=   0.0000
    

复制代码

eachy

提供文本格式

Lisphk

eachy 发表于 2013-5-9 10:53

                               
登录/注册后可看大图

提供文本格式

谢eachy大师，来了。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:tt.txt 
下载次数:20  文件大小:738 Bytes 
下载权限: 不限 以上  [免费赚D豆]

eachy

Lisphk 发表于 2013-5-9 11:20

                               
登录/注册后可看大图

谢eachy大师，来了。

要的是给你的那个表,不是 List

Lisphk

eachy 发表于 2013-5-9 11:54

                               
登录/注册后可看大图

要的是给你的那个表,不是 List

eachy大师，他们经常给我们两种格式，一种是上面我贴的，就是多段线的直接LIST，另外一个是下面我贴的，就是X,Y坐标呼唤的，这两种都帮我写一个吧，谢谢！
下面这个其实画图的时候X是Y，Y是X。

1. 
   
2.           X=42547.7105  Y=89145.7383    Z=   0.0000
   
3.           X=42566.5083  Y=89163.3181    Z=   0.0000
   
4.           X=42558.2746  Y=89168.9188    Z=   0.0000
   
5.           X=42566.3530  Y=89185.8763    Z=   0.0000
   
6.           X=42550.8176  Y=89200.3447    Z=   0.0000
   
7.           X=42547.8659  Y=89186.8097    Z=   0.0000
   
8.           X=42537.1465  Y=89182.9204    Z=   0.0000
   
9.           X=42539.9429  Y=89175.6084    Z=   0.0000
   
10.           X=42535.7483  Y=89162.0736    Z=   0.0000
    

复制代码

对，有时候还给我们提供界址点坐标的，就是WORD的表格，X,Y也是反的，那个现在手头一时找不到，那个我找出后，再帮我写个。:kiss:

newer

呵呵，这东西我一般这么做，直接给你做个X和Y呼唤的演示吧。不过，期待EACHY大师的程序，我这个方法不一定什么时候都通用。

eachy

TXT 格式的,DOC文件请提供样本
声明：本程序仅对特定格式，请仔细查看后再行使用！[pcode=lisp,true](defun c:tt (/ fl fn )
  (if (setq fl (getfiled "Select Coordinates File" "" "txt" 8))
    (progn
      (setq fn (open fl "r"))
      (vl-catch-all-apply
        (function
          (lambda (/ n lst)
            (while (setq n (read-line fn))
              (setq n (vl-string-trim " " (strcase n)))
              (if (wcmatch n "*X=*Y=*")
                (setq lst (cons (strcat n ")") lst))
              )
            )
            (if        lst
              (progn
                (setq lst
                       (mapcar
                         '(lambda (x)
                            (strcat
                              "("
                              (vl-string-trim
                                " "
                                (vl-string-translate
                                  "XYZ="
                                  "    "
                                  (substr x (1+ (vl-string-search "X" x)))
                                )
                              )
                            )
                          )
                         lst
                       )
                )
              )
            )            
            (apply 'vl-cmdf (cons ".pline" (mapcar 'read lst)))
            (vl-cmdf "c")
            (vl-cmdf ".zoom" "e")
          )
        )
      )
      (close fn)
    )
  )
  (princ)
)[/pcode]

eachy

忘了换 XY[pcode=lisp,true](apply 'vl-cmdf (cons ".pline" (reverse (vl-remove 0. (mapcar 'read lst)))))[/pcode]