ssget提取多段线坐标问题，请大神解答！

重慶崽兒

如上图所示，用(ssget "_CP")创建选择集提取坐标时，不知道是为什么，有时候能够正确提取，但是有时候却只提取出了最外围多段线的坐标，要不就是里面的多段线少提取了一段。。。。。不知道是为什么，难道是多段线过多？还请大神解答

下面是我的代码：

1. (defun c:tt( / biao cunzai dingdianbiao en ent feidihao file geshu huidian huidianxx huidianxxx huidianyy huidianyyy i ii j jj mingzi name neibiao neihuidian path ss waiwei xx xxx yy yyy)
   
2.   (setq i 0)
   
3.   (setq geshu 0)
   
4.   (setq waiwei 0)
   
5.   (setq huidian 0)
   
6.   (setq feidihao 1)
   
7.   (command "CONVERT" "" "")
   
8.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
9.   (setq path (getfiled "保存" "" "TXT" 1))
   
10.   (setq file (open path "W"))
    
11.   (write-line "[属性描述]" file)
    
12.   (write-line "坐标系=80国家大地坐标系" file)
    
13.   (write-line "几度分带=3" file)
    
14.   (write-line "投影类型=高斯克吕格" file)
    
15.   (write-line "计量单位=米" file)
    
16.   (write-line "带号=36" file)
    
17.   (write-line "精度=0.01" file)
    
18.   (write-line "转换参数=,,,,,," file)
    
19.   (write-line "[地块坐标]" file)
    
20.   (repeat (sslength ss)
    
21.     (setq name (ssname ss i))
    
22.     (setq en (entget name))
    
23.     (setq j 0)
    
24.     (setq waiwei (1+ waiwei))
    
25.     (setq huidian (1+ geshu))
    
26.     (setq dingdianbiao nil)
    
27.     (write-line (strcat ",," "1" "," "外围" (itoa waiwei) "," "面" "," "H48G041086" "," "综合用地,,@") file)
    
28.     (repeat (length en)
    
29.       (setq biao (nth j en))
    
30.       (if (= 10 (car biao))
    
31.        (progn  
    
32.         (setq xx (caddr biao))
    
33.   (setq yy (cadr biao))
    
34.   (setq geshu (1+ geshu))
    
35.   (write-line (strcat "J" (itoa geshu) "," "1" "," (rtos xx 2 3) "," (rtos yy 2 3)) file)
    
36.   (setq dingdianbiao (append dingdianbiao (list (cdr biao))))
    
37.   (princ)
    
38.        )  
    
39.       )
    
40.       (setq j (1+ j))
    
41.     )
    
42.       (setq huidianxx (caddr (assoc 10 en)))
    
43.       (setq huidianyy (cadr (assoc 10 en)))
    
44.       (write-line (strcat "J" (itoa huidian) "," "1" "," (rtos huidianxx 2 3) "," (rtos huidianyy 2 3)) file)
    
45. 
    
46.       (entdel name)
    
47.       (setq cunzai (ssget "_CP" dingdianbiao '((0 . "LWPOLYLINE"))))
    
48.       (setq ii 0)
    
49.       (if cunzai
    
50.        (progn  
    
51.         (repeat (sslength cunzai)
    
52.           (setq mingzi (ssname cunzai ii))
    
53.     (setq ent (entget mingzi))
    
54.     (setq jj 0)
    
55.     (setq feidihao (1+ feidihao))
    
56.     (setq neihuidian (1+ geshu))
    
57.     (repeat (length ent)
    
58.             (setq neibiao (nth jj ent))
    
59.       (if (= 10 (car neibiao))
    
60.        (progn
    
61.               (setq xxx (caddr neibiao))
    
62.         (setq yyy (cadr neibiao))
    
63.         (setq geshu (+ geshu 1))
    
64.         (write-line (strcat "J" (itoa geshu) "," (itoa feidihao) "," (rtos xxx 2 3) "," (rtos yyy 2 3)) file)
    
65.         (princ)
    
66.        )
    
67.       )
    
68.       (setq jj (1+ jj))
    
69.     )
    
70.     (setq huidianxxx (caddr (assoc 10 ent)))
    
71.     (setq huidianyyy (cadr (assoc 10 ent)))
    
72.     (write-line (strcat "J" (itoa neihuidian) "," (itoa feidihao) "," (rtos huidianxxx 2 3) "," (rtos huidianyyy 2 3)) file)
    
73.     (princ)
    
74.     (setq ii (1+ ii))
    
75.   )
    
76.        )  
    
77.       )
    
78.       (entmake en)
    
79.       (setq i (1+ i))
    
80.   )
    
81.   (close file)
    
82. )

(defun c:tt( / biao cunzai dingdianbiao en ent feidihao file geshu huidian huidianxx huidianxxx huidianyy huidianyyy i ii j jj mingzi name neibiao neihuidian path ss waiwei xx xxx yy yyy)<br />   (setq i 0)<br />   (setq geshu 0)<br />   (setq waiwei 0)<br />   (setq huidian 0)<br />   (setq feidihao 1)<br />   (command "CONVERT" "" "")<br />   (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (setq path (getfiled "保存" "" "TXT" 1))<br />   (setq file (open path "W"))<br />   (write-line "[属性描述]" file)<br />   (write-line "坐标系=80国家大地坐标系" file)<br />   (write-line "几度分带=3" file)<br />   (write-line "投影类型=高斯克吕格" file)<br />   (write-line "计量单位=米" file)<br />   (write-line "带号=36" file)<br />   (write-line "精度=0.01" file)<br />   (write-line "转换参数=,,,,,," file)<br />   (write-line "[地块坐标]" file)<br />   (repeat (sslength ss)<br />     (setq name (ssname ss i))<br />     (setq en (entget name))<br />     (setq j 0)<br />     (setq waiwei (1+ waiwei))<br />     (setq huidian (1+ geshu))<br />     (setq dingdianbiao nil)<br />     (write-line (strcat ",," "1" "," "外围" (itoa waiwei) "," "面" "," "H48G041086" "," "综合用地,,@") file)<br />     (repeat (length en)<br />       (setq biao (nth j en))<br />       (if (= 10 (car biao))<br />        (progn  <br />         (setq xx (caddr biao))<br />   (setq yy (cadr biao))<br />   (setq geshu (1+ geshu))<br />   (write-line (strcat "J" (itoa geshu) "," "1" "," (rtos xx 2 3) "," (rtos yy 2 3)) file)<br />   (setq dingdianbiao (append dingdianbiao (list (cdr biao))))<br />   (princ)<br />        )  <br />       )<br />       (setq j (1+ j))<br />     )<br />       (setq huidianxx (caddr (assoc 10 en)))<br />       (setq huidianyy (cadr (assoc 10 en)))<br />       (write-line (strcat "J" (itoa huidian) "," "1" "," (rtos huidianxx 2 3) "," (rtos huidianyy 2 3)) file)<br /> <br />       (entdel name)<br />       (setq cunzai (ssget "_CP" dingdianbiao '((0 . "LWPOLYLINE"))))<br />       (setq ii 0)<br />       (if cunzai<br />        (progn  <br />         (repeat (sslength cunzai)<br />           (setq mingzi (ssname cunzai ii))<br />     (setq ent (entget mingzi))<br />     (setq jj 0)<br />     (setq feidihao (1+ feidihao))<br />     (setq neihuidian (1+ geshu))<br />     (repeat (length ent)<br />             (setq neibiao (nth jj ent))<br />       (if (= 10 (car neibiao))<br />        (progn <br />               (setq xxx (caddr neibiao))<br />         (setq yyy (cadr neibiao))<br />         (setq geshu (+ geshu 1))<br />         (write-line (strcat "J" (itoa geshu) "," (itoa feidihao) "," (rtos xxx 2 3) "," (rtos yyy 2 3)) file)<br />         (princ)<br />        ) <br />       )<br />       (setq jj (1+ jj))<br />     )<br />     (setq huidianxxx (caddr (assoc 10 ent)))<br />     (setq huidianyyy (cadr (assoc 10 ent)))<br />     (write-line (strcat "J" (itoa neihuidian) "," (itoa feidihao) "," (rtos huidianxxx 2 3) "," (rtos huidianyyy 2 3)) file)<br />     (princ)<br />     (setq ii (1+ ii))<br />   )<br />        )  <br />       )<br />       (entmake en)<br />       (setq i (1+ i))<br />   )<br />   (close file)<br /> )

重慶崽兒

自己顶一下，等大神
用(ssget "_WP")也出现过类似的问题，内部的多段线没提取完，但有时候又能提取完全。。。。。。。

自贡黄明儒

因为没在可视范围内，这样的对象就选不到

重慶崽兒

自贡黄明儒 发表于 2014-2-18 12:06
因为没在可视范围内，这样的对象就选不到

不知道黄大大能不能推荐几种好点的方式。。。

自贡黄明儒

我同你的行业差别大，不知道你要干什么，我编程时，习惯一次框选（如果可能的话）就搞定。你在ssget之后，加一句COmmand. zOOm. ss应该就可以了，我想

重慶崽兒

自贡黄明儒 发表于 2014-2-18 19:10
我同你的行业差别大，不知道你要干什么，我编程时，习惯一次框选（如果可能的话）就搞定。你在ssget之后，加 ...

是的，其实小弟也是想用一次框选来解决，但小弟能力有限，做不到先提取外围线的坐标，然后再提取内部多段线的坐标，所以只好退而求其次了。。。。。谢谢黄大大了！

重慶崽兒

自贡黄明儒 发表于 2014-2-18 19:10
我同你的行业差别大，不知道你要干什么，我编程时，习惯一次框选（如果可能的话）就搞定。你在ssget之后，加 ...

....谢谢黄大
   居然连(command "zoom" "e")这方法都没想到，真想扇我自己俩耳光。。。
  再次拜谢！

spp_wall

这个能在CAD里再标注点号么？

zhaoxt

同行啊哈哈，一看就是国家2000txt制作程序，我也做过这程序