请教高手求中点问题

zhelindaxues

再仔细看了下 发现我理解错误 我还以为楼主需要2种情况。有点汗。。。

Andyhon

3. (defun tempSelNext (pt ent)
4.    (setq ss2 (ssget "C" pt pt filter))
5.    (ssdel ent ss2)
6.    (setq ent6 (ssname ss2 0)
7.          dxf6 (entget ent6)
8.        qidian (cdr (assoc 10 dxf6))
9.      duandian (cdr (assoc 11 dxf6))
10.    )
11.    (if (equal pt qidian 1e-12)
12.      (setq PtSel duandian)
13.      (setq PtSel qidian)
14.    )
15.    (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian duandian)
16. )
17. (defun tempSel (/ ss)
18.    (cond
19.     ((Not (setq ss (ssget filter))))
20.     ((= (sslength ss) 4))
21.     (T
22.       (alert "只能选4条线!")
23.       (tempSel)
24.    ))
25.    ss
26. )
27. ;;;
28. ;;; for Test only
29. ;;; 您得补强错误处理
30. (defun c:temp ()
31.    (setq filter '((0 . "LINE")))
32.    (cond
33.     ((not (setq ss (tempSel))))
34.     (T
35.      (setq ent1 (ssname ss 0)
36.            dxf1 (entget ent1)
37.          qidian (cdr (assoc 10 dxf1))
38.        duandian (cdr (assoc 11 dxf1))
39.             mp1 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian duandian)
40.             mp2 (tempSelNext duandian ent1)
41.             mp3 (tempSelNext PtSel ent6)
42.             mp4 (tempSelNext PtSel ent6)
43.      )
44.      (command "line" mp1 mp3 "")
45.      (command "line" mp2 mp4 "")
46.    ))
47. )

(defun tempSelNext (pt ent)    (setq ss2 (ssget "C" pt pt filter))    (ssdel ent ss2)    (setq ent6 (ssname ss2 0)          dxf6 (entget ent6)        qidian (cdr (assoc 10 dxf6))      duandian (cdr (assoc 11 dxf6))    )    (if (equal pt qidian 1e-12)      (setq PtSel duandian)      (setq PtSel qidian)    )    (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian duandian) ) (defun tempSel (/ ss)    (cond     ((Not (setq ss (ssget filter))))     ((= (sslength ss) 4))     (T       (alert "只能选4条线!")       (tempSel)    ))    ss ) ;;; ;;; for Test only ;;; 您得补强错误处理 (defun c:temp ()    (setq filter '((0 . "LINE")))    (cond     ((not (setq ss (tempSel))))     (T      (setq ent1 (ssname ss 0)            dxf1 (entget ent1)          qidian (cdr (assoc 10 dxf1))        duandian (cdr (assoc 11 dxf1))             mp1 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) qidian duandian)             mp2 (tempSelNext duandian ent1)             mp3 (tempSelNext PtSel ent6)             mp4 (tempSelNext PtSel ent6)      )      (command "line" mp1 mp3 "")      (command "line" mp2 mp4 "")    )) )