[求助]：多段线控制点

whcdjh

多段线控制点

怎么提取多个多段线控制点????

我用list结果是:

      


按 ENTER 键继续:
                  LWPOLYLINE  图层: 0
                            空间: 模型空间
                   颜色: 253    线型: CONTINUOUS
                   句柄 = 8cfc6
              打开
    固定宽度     0.000
     
            长度   5.441
按 ENTER 键继续:

          于端点  X= 5484.000  Y=  298.000  Z=    0.000
          于端点  X= 5487.900  Y=  299.200  Z=    0.000
          于端点  X= 5489.000  Y=  300.000  Z=    0.000

            ARC       图层: 0
                            空间: 模型空间
                   颜色: 253    线型: CONTINUOUS
                   句柄 = 8cef8
              圆心 点， X= 5418.880  Y=  293.824  Z=    0.000
              半径    13.209
              起点 角度     67
              端点 角度    130
            长度    14.527

                  LWPOLYLINE  图层: 0
                            空间: 模型空间
                   颜色: 253    线型: CONTINUOUS
                   句柄 = 8cef2
              打开
    固定宽度     0.000
              面积   6.588
            长度   8.337

          于端点  X= 5412.000  Y=  297.000  Z=    0.000
          于端点  X= 5411.000  Y=  297.000  Z=    0.000
          于端点  X= 5410.000  Y=  298.000  Z=    0.000
          于端点  X= 5410.353  Y=  303.912  Z=    0.000

如果我只要X和Y的数据,应该怎么办???

谢谢!!!

whcdjh

就是点坐标~~~~

zbweixkj

论坛中的工程师专栏有xyp1964大师提供的test程序能满足你的要求，甚至于三维坐标都可以，我就是经常用他的东西，在此也谢谢他。

xyp1964

最初由 zbweixkj 发布
[B]论坛中的工程师专栏有xyp1964大师提供的test程序能满足你的要求，甚至于三维坐标都可以，我就是经常用他的东西，在此也谢谢他。 [/B]

2. [FONT=courier new];;;桩位标注
   
3. (defun c:test ()
   
4.   (CMDLASC0)
   
5.   (if (null no)
   
6.     (setq no 0)
   
7.   )
   
8.   (if (null ukw)
   
9.     (setq ukw "1")
   
10.   )
    
11.   (setq        no  (UREAL 7 "" "\n起始公里数" no)
    
12.         ukw (UKWORD 1 "1 2" "\n方式 : 1-递增/2-递减" ukw)
    
13.         no1 no
    
14.   )
    
15.   (if (setq pt (getpoint "\n起始桩号点<退出>: "))
    
16.     (progn
    
17.       (setq k1 (fix (/ no1 1000))
    
18.             k2 (- no1 (* k1 1000.0))
    
19.             tx (strcat "K" (rtos k1 2 0) "+" (rtos k2 2 2))
    
20.       )
    
21.       (mkla "桩位点" 1)
    
22.       (command "circle" pt (* sc 50))
    
23.       (setq pt-tx (polar pt (* pi 0.25) (* sc 100)))
    
24.       (mkla "桩位数" 4)
    
25.       (xyp-Text 2 pt-tx tx)
    
26.       (while (setq pt1 (getpoint pt "\n下一点<退出>: "))
    
27.         (setq dist (distance pt1 pt))
    
28.         (cond ((= ukw "1") (setq no1 (+ no1 dist)))
    
29.               ((= ukw "2") (setq no1 (- no1 dist)))
    
30.         )
    
31.         (setq k1 (fix (/ no1 1000))
    
32.               k2 (- no1 (* k1 1000.0))
    
33.               tx (strcat "K" (rtos k1 2 0) "+" (rtos k2 2 2))
    
34.         )
    
35.         (mkla "桩位点" 1)
    
36.         (command "circle" pt1 (* sc 50))
    
37.         (setq pt-tx (polar pt1 (* pi 0.25) (* sc 100))
    
38.               pt    pt1
    
39.         )
    
40.         (mkla "桩位数" 4)
    
41.         (xyp-Text 2 pt-tx tx)
    
42.       )
    
43.     )
    
44.   )
    
45.   (CMDLA1)
    
46. )[/FONT]

[FONT=courier new];;;桩位标注<br /> (defun c:test ()<br />   (CMDLASC0)<br />   (if (null no)<br />     (setq no 0)<br />   )<br />   (if (null ukw)<br />     (setq ukw "1")<br />   )<br />   (setq        no  (UREAL 7 "" "\n起始公里数" no)<br />         ukw (UKWORD 1 "1 2" "\n方式 : 1-递增/2-递减" ukw)<br />         no1 no<br />   )<br />   (if (setq pt (getpoint "\n起始桩号点<退出>: "))<br />     (progn<br />       (setq k1 (fix (/ no1 1000))<br />             k2 (- no1 (* k1 1000.0))<br />             tx (strcat "K" (rtos k1 2 0) "+" (rtos k2 2 2))<br />       )<br />       (mkla "桩位点" 1)<br />       (command "circle" pt (* sc 50))<br />       (setq pt-tx (polar pt (* pi 0.25) (* sc 100)))<br />       (mkla "桩位数" 4)<br />       (xyp-Text 2 pt-tx tx)<br />       (while (setq pt1 (getpoint pt "\n下一点<退出>: "))<br />         (setq dist (distance pt1 pt))<br />         (cond ((= ukw "1") (setq no1 (+ no1 dist)))<br />               ((= ukw "2") (setq no1 (- no1 dist)))<br />         )<br />         (setq k1 (fix (/ no1 1000))<br />               k2 (- no1 (* k1 1000.0))<br />               tx (strcat "K" (rtos k1 2 0) "+" (rtos k2 2 2))<br />         )<br />         (mkla "桩位点" 1)<br />         (command "circle" pt1 (* sc 50))<br />         (setq pt-tx (polar pt1 (* pi 0.25) (* sc 100))<br />               pt    pt1<br />         )<br />         (mkla "桩位数" 4)<br />         (xyp-Text 2 pt-tx tx)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

zbweixkj

谢谢xyp1964大师，我将此程序试用了一下，发现程序挺好用，只是在PL线中有圆弧线段时，不知为何结果与CAD中的list命令结果有一定的差异，如我做的一个图中用LIST量出是947m，而程序标出则为737m，麻烦你再看一下，期盼。。再次感谢。