求教lsp程序问题!!!!!

dwt2601

求教lsp程序问题!!!!! (defun c:bhh ()
(setvar "cmdecho" 0)
(setq fz (ssget (list (cons 0 "lwpolyline,polyline,line"))))
(command "convertpoly" "h" fz "")
(setq n (sslength fz))
(setq i 0)
(setq n1 0
n2 0
n3 0
)
(repeat n
(setq aa (ssname fz i))
(setq bb (entget aa))
(setq xx (cdr (assoc 0 bb)))
(if (= xx "POLYLINE")
(progn
(setq b (cdr (assoc 70 bb)))
(setq cc (rem b 2))
(if (= cc 0)
(progn
(setq spt (vlax-curve-getstartpoint aa)
ept (vlax-curve-getendpoint aa)
)
(setq px1 (car spt))
(setq py1 (cadr spt)) (setq px2 (car ept))
(setq py2 (cadr ept)) (if (and (= px1 px2) (= py1 py2))
(progn
(command "pedit" "m" aa "" "c" "") ;;;;;在这里怎样加程序才能去掉多于点 (setq n1 (+ n1 1))
)
)
(if (or (/= px1 px2) (/= py1 py2))
(progn
(command "change" aa "" "p" "c" "4" "" "")
(setq n2 (+ n2 1))
)
)
) ;if
) ;
) ;progn
) ;if
(if (= xx "LINE")
(progn
(command "change" aa "" "p" "c" "5" "" "")
(setq n3 (+ n3 1))
)
)
(setq i (+ i 1))
)
(setq n1 (itoa n1)
n2 (itoa n2)
n3 (itoa n3)
)
(alert (strcat "\n共闭合房子" n1 "个,发现不闭合房子"
n2 "个,发现LINE线" n3
"条"
)
)
) ;;;上面程序是我处理polygon线画的房子，查出不闭合的将它闭合，有的房子用pline线画的，但是有的房子起点和终点在一个点上，请问我怎么样才能去掉那个多于点...
;;;;顺便再问一下各位大哥,怎样才能去掉一条线上任意一个点;;;;
;;;谢谢了,,,呵呵.............. 我来这个网站时间不长,但是觉得学到了很多知识,,很感谢各位哥哥的帮忙吧... 也许你们可能没我大,但是水平比我高就叫哥哥,,呵呵.............在工作上,我也用到了不少在明经上学到的知识... 很感谢大家..呵呵.....

dwt2601

mei ren a

dwt2601

ding

oyxx1023

起点和终点在同一个点上也可以设置闭合啊,干嘛要去掉一个点.

dwt2601

可以设置闭合,但就是要求去掉一个点

dwt2601

可以设置闭合,但就是要求去掉一个点


xie xie

oyxx1023

更新多义线的顶点数据不行吗?把顶点数据提取出来,去掉终点那个.


还有,我不知道你是程序是用来做什么的,照你的说法,你可以这样:如果多义线起终点重合的话,你也可以把它当成是闭合的房子啊.将房子总数加1不就完了.

dwt2601

我是做测绘的，不能那么做，必需去点，谁帮我改改吧。。

dwt2601

我是初学者，，怎么样更新多义线的顶点数据，请哪位好心的大哥，帮帮我吧。。谢谢了。。。。。。


我是做测绘的，， 要入库的，要求很严。。。

xyp1964

2. (defun c:bhh ()
3.           ;(CMDLA0)
4.    (setq fz (ssget '((0 . "*LINE"))))
5.    (command "convertpoly" "H" fz "")  ;转换成POLYLINE
6.    (setq  n   (sslength fz)
7.   i   -1
8.   n1 0
9.   n2 0
10.   n3 0
11.   n4 0        ;本身闭合
12.    )
13.    (while (setq aa (ssname fz (setq i (1+ i))))
14.        (setq bb (entget aa)
15.      xx (dxf 0 bb)
16.        )
17.        (if  (and (= xx "POLYLINE")
18.            (= (dxf 70 bb) 0)
19.   )
20.            (progn
21.   (setq spt (vlax-curve-getstartpoint aa)
22.              ept (vlax-curve-getendpoint aa)
23.   )
24.   (if (equal spt ept)
25.      (progn
26.          (command "pedit" "m" aa "" "c" "")
27.          (command "change" aa "" "p" "c" "2" "")
28.          (setq n1 (1+ n1))
29.      )
30.      (progn
31.          (command "change" aa "" "p" "c" "4" "")
32.          (setq n2 (1+ n2))
33.      )
34.   )
35.            )
36.        )
37.        (if  (and (= xx "POLYLINE")
38.            (= (dxf 70 bb) 1)
39.   )
40.            (progn
41.   (command "change" aa "" "p" "c" "2" "")
42.   (setq n4 (1+ n4))
43.            )       )
44.        (if  (= xx "LINE")
45.            (progn
46.   (command "change" aa "" "p" "c" "5" "")
47.   (setq n3 (+ n3 1))
48.            )
49.        )
50.    )
51.    (alert (strcat "\n原有闭合房子"
52.      (itoa n4)
53.      "个；本次闭合房子"
54.      (itoa n1)
55.      "个；发现不闭合房子"
56.      (itoa n2)
57.      "个；发现LINE线"
58.      (itoa n3)
59.      "条。"
60.    )
61.    )
62.           ;(CMDLA1)
63.    (princ)
64. )
65. (defun dxf (code elist) (cdr (assoc code elist)))

(defun c:bhh ()           ;(CMDLA0)    (setq fz (ssget '((0 . "*LINE"))))    (command "convertpoly" "H" fz "")  ;转换成POLYLINE    (setq  n   (sslength fz)   i   -1   n1 0   n2 0   n3 0   n4 0        ;本身闭合    )    (while (setq aa (ssname fz (setq i (1+ i))))        (setq bb (entget aa)      xx (dxf 0 bb)        )        (if  (and (= xx "POLYLINE")            (= (dxf 70 bb) 0)   )            (progn   (setq spt (vlax-curve-getstartpoint aa)              ept (vlax-curve-getendpoint aa)   )   (if (equal spt ept)      (progn          (command "pedit" "m" aa "" "c" "")          (command "change" aa "" "p" "c" "2" "")          (setq n1 (1+ n1))      )      (progn          (command "change" aa "" "p" "c" "4" "")          (setq n2 (1+ n2))      )   )            )        )        (if  (and (= xx "POLYLINE")            (= (dxf 70 bb) 1)   )            (progn   (command "change" aa "" "p" "c" "2" "")   (setq n4 (1+ n4))            )       )        (if  (= xx "LINE")            (progn   (command "change" aa "" "p" "c" "5" "")   (setq n3 (+ n3 1))            )        )    )    (alert (strcat "\n原有闭合房子"      (itoa n4)      "个；本次闭合房子"      (itoa n1)      "个；发现不闭合房子"      (itoa n2)      "个；发现LINE线"      (itoa n3)      "条。"    )    )           ;(CMDLA1)    (princ) ) (defun dxf (code elist) (cdr (assoc code elist)))