[求助]：有没有点房程序？

david96007

单位集资建房，马上要点房了，但选择方案多种多样，点房时候随即性很强，自己看好的很可能被别人选走，自己的一系列选择要随时调整，于是产生了一个“程序”点房的念头！

要实现程序点房，我的基本思路如下：画好房子的“立面图”，然后在自己选择的房子里进行编号。点房过程中，为区别已点房间和未点房间，将已点房间进行填充，如填充到自己选择的房子，则相应序号归零，后续序号减一！

需要手工操作的是将自己的目标房间一一顺序编号，点房时还要时时填充！

估计我的想法前无古人！

怎么用lsp实现？请大家帮忙了！


捣鼓到凌晨一点，弄了一个差不多的！

需配合附件的图使用，如楼层、单元不同，可以copy、删除，或自己画，然后把“0”的属性match一下就可以了（建议进行copy和删除）！

2. 
   
3. 
   
4. (textscr)
   
5. (princ "\n\n  程    序    说    明")
   
6. (princ "\n\n本程序共由5个命令组成，分别是：xf、df、cc、cv、gl;")
   
7. (princ "\n\nxf  可以用鼠标顺序点取房间(请点选房间中的数字0或其他)，形成房间排队序号;")
   
8. (princ "\n\ndf  模拟点房现场情况，他人已选房间打叉，如为自己的目标，则自动删除并重新排序;")
   
9. (princ "\n\ncc  用于删除已选房间序号，可以用鼠标框选;")
   
10. (princ "\n\ncv  用于修改已选房间序号，可以在以排好队的序号中插入新的序号，大于新序号的已\n\n  选房间序号会跟随变动,如选择了已排好队的序号，且输入了新序号，")
    
11. (princ "\n\n  则排队顺序将根据新输入序号重新排列;")
    
12. (princ "\n\ngl  清除已编序号及已点房的红叉;")
    
13. (princ "\n\n使用前请认真阅读此说明!如有不明之处请来电咨询！电话:68801755")
    
14. 
    
15. (princ "\n\n本程序仅供娱乐学习之用,本人对程序发结果不负任何责任!")
    
16. 
    
17. (princ "\n\n限于本人水平有限，程序中错误在所难免，欢迎批评指正!")
    
18. 
    
19. (princ "\n\n王磊 2006年10月16日")
    
20. 
    
21. 
    
22. (defun c:xf (/ ent fanghao pt fh ss ll n fh_max gh_1 fh_c fanghao_c)
    
23.   (setq        ent        (entsel "选择房间:")
    
24.         fanghao        (entget (car ent))
    
25.         pt        (cdr ent)
    
26.   )
    
27.   (setq fh (atoi (cdr (assoc 1 fanghao))))
    
28.   (if (= 0 fh)
    
29.     (progn (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao"))))
    
30.            (setq ll        (sslength ss)
    
31.                  n        0
    
32.                  fh_max        fh
    
33.            )
    
34.            (while (< n ll)
    
35.              (setq fanghao_1 (entget (ssname ss n))
    
36.                    fh_1             (atoi (cdr (assoc 1 fanghao_1)))
    
37.              )
    
38.              (if (< fh_max fh_1)
    
39.                (setq fh_max fh_1)
    
40.              )
    
41.              (setq n (1+ n))
    
42.            )
    
43.            (setq fanghao (subst        (cons 1 (itoa (1+ fh_max)))
    
44.                                 (assoc 1 fanghao)
    
45.                                 fanghao
    
46.                          )
    
47.                  fanghao (subst (cons 62 3) (assoc 62 fanghao) fanghao)
    
48.            )
    
49.            (entmod fanghao)
    
50.     )
    
51.     (progn (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))
    
52.            (setq ll        (sslength ss)
    
53.                  n        0
    
54.                  fh_max        fh
    
55.            )
    
56.            (while (< n ll)
    
57.              (setq fanghao_1 (entget (ssname ss n))
    
58.                    fh_1             (atoi (cdr (assoc 1 fanghao_1)))
    
59.              )
    
60.              (if (< fh_max fh_1)
    
61.                (setq fh_max fh_1)
    
62.              )
    
63.              (setq n (1+ n))
    
64.            )
    
65.            (setq n 0)
    
66.            (while (< n ll)
    
67.              (setq fanghao_C (entget (ssname ss n))
    
68.                    fh_C             (atoi (cdr (assoc 1 fanghao_C)))
    
69.              )
    
70.              (if (> fh_c fh)
    
71.                (progn (setq fh_c (1- fh_c))
    
72.                       (setq fanghao_c (subst (cons 1 (itoa fh_c))
    
73.                                              (assoc 1 fanghao_c)
    
74.                                              fanghao_c
    
75.                                       )
    
76.                             fanghao_c (subst (cons 62 3)
    
77.                                              (assoc 62 fanghao_c)
    
78.                                              fanghao_c
    
79.                                       )
    
80.                       )
    
81.                       (entmod fanghao_c)
    
82.                )
    
83.                ()
    
84.              )
    
85.              (setq n (1+ n))
    
86.            )
    
87.            (setq fanghao (subst (cons 1 (itoa fh_max)) (assoc 1 fanghao) fanghao)
    
88.                  fanghao (subst (cons 62 3) (assoc 62 fanghao) fanghao)
    
89.            )
    
90.            (entmod fanghao)
    
91.     )
    
92.   )
    
93.   (princ)
    
94. )
    
95. (defun c:gl (/ ss ll n fanghao_c fh_c)
    
96.   (setq ss (ssget "_x" '((0 . "LINE") (8 . "ydf") (62 . 1))))
    
97.   (command "erase" ss "")
    
98.   (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))
    
99.   (setq        ll (sslength ss)
    
100.         n  0
     
101.   )
     
102.   (while (< n ll)
     
103.     (setq fanghao_C (entget (ssname ss n))
     
104.           fh_C            (atoi (cdr (assoc 1 fanghao_C)))
     
105.     )
     
106.     (setq fanghao_c (subst (cons 1 (itoa 0)) (assoc 1 fanghao_c) fanghao_c)
     
107.           fanghao_c (subst (cons 62 250) (assoc 62 fanghao_c) fanghao_c)
     
108.     )
     
109.     (entmod fanghao_c)
     
110.     (setq n (1+ n))
     
111.   )
     
112. )
     
113. 
     
114. (defun c:df
     
115.        (/ ent fanghao pt pt1 pt2 pt3 pt4 fh ss ll n fh_c fanghao_c)
     
116.   (setq        ent        (entsel)
     
117.         fanghao        (entget (car ent))
     
118.         pt        (cdr (assoc 11 fanghao))
     
119.         pt1        (polar pt (* 3.14159 (/ 26.0 180)) 80)
     
120.         pt2        (polar pt (* 3.14159 (/ -26.0 180)) 80)
     
121.         pt3        (polar pt (* 3.14159 (/ 206.0 180)) 80)
     
122.         pt4        (polar pt (* 3.14159 (/ 154.0 180)) 80)
     
123.   )
     
124.   (setq fh (atoi (cdr (assoc 1 fanghao))))
     
125.   (entmake (list '(0 . "LINE")
     
126.                  '(62 . 1)
     
127.                  '(8 . "ydf")
     
128.                  (cons 10 pt1)
     
129.                  (cons 11 pt3)
     
130.            )
     
131.   )
     
132.   (entmake (list '(0 . "LINE")
     
133.                  '(8 . "ydf")
     
134.                  '(62 . 1)
     
135.                  (cons 10 pt2)
     
136.                  (cons 11 pt4)
     
137.            )
     
138.   )
     
139.   (if (> fh 0)
     
140.     (progn (setq fanghao (subst (cons 1 (itoa 0)) (assoc 1 fanghao) fanghao)
     
141.                  fanghao (subst (cons 62 250) (assoc 62 fanghao) fanghao)
     
142.            )
     
143.            (entmod fanghao)
     
144.            (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))
     
145.            (setq ll (sslength ss)
     
146.                  n  0
     
147.            )
     
148.            (while (< n ll)
     
149.              (setq fanghao_C (entget (ssname ss n))
     
150.                    fh_C             (atoi (cdr (assoc 1 fanghao_C)))
     
151.              )
     
152.              (if (> fh_c fh)
     
153.                (progn (setq fh_c (1- fh_c))
     
154.                       (setq fanghao_c (subst (cons 1 (itoa fh_c))
     
155.                                              (assoc 1 fanghao_c)
     
156.                                              fanghao_c
     
157.                                       )
     
158.                       )
     
159.                       (entmod fanghao_c)
     
160.                )
     
161.              )
     
162.              (setq n (1+ n))
     
163.            )
     
164.     )
     
165.   )
     
166.   (princ)
     
167. )
     
168. 
     
169. (defun c:cc (/ ss ll n fanghao ss_n ll_n fanghao_c fh_c m)
     
170.   (princ "\n选择已选取的序号:")
     
171.   (setq        ss (ssget '((0 . "TEXT") (8 . "fanghao") (62 . 3)))
     
172.         ll (sslength ss)
     
173.         n  0
     
174.   )
     
175.   (while (< n ll)
     
176.     (setq fanghao (entget (ssname ss n)))
     
177.     (setq fh (atoi (cdr (assoc 1 fanghao))))
     
178.     (setq fanghao (subst (cons 1 (itoa 0)) (assoc 1 fanghao) fanghao)
     
179.           fanghao (subst (cons 62 250) (assoc 62 fanghao) fanghao)
     
180.     )
     
181.     (entmod fanghao)
     
182.     (setq ss_n (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))
     
183.     (setq ll_n (sslength ss_n))
     
184.     (setq m 0)
     
185.     (while (< m ll_n)
     
186.       (setq fanghao_C (entget (ssname ss_n m))
     
187.             fh_C      (atoi (cdr (assoc 1 fanghao_C)))
     
188.       )
     
189.       (if (> fh_c fh)
     
190.         (progn (setq fh_c (1- fh_c))
     
191.                (setq fanghao_c (subst (cons 1 (itoa fh_c))
     
192.                                       (assoc 1 fanghao_c)
     
193.                                       fanghao_c
     
194.                                )
     
195.                )
     
196.                (entmod fanghao_c)
     
197.         )
     
198.       )
     
199.       (setq m (1+ m))
     
200.     )
     
201.     (setq n (1+ n))
     
202.   )
     
203. )
     
204. 
     
205. (defun c:cv (/ ent fanghao fh fh_n ss_n ll_n m fh_c fanghao_c)
     
206.   (setq        ent        (entsel "选择房间:")
     
207.         fanghao        (entget (car ent))
     
208.   )
     
209.   (setq fh (atoi (cdr (assoc 1 fanghao))))
     
210.   (setq fh_n (getint "\n输入新序号:"))
     
211.   (if (= fh 0)
     
212.     (progn (setq ss_n (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))
     
213.            (setq ll_n (sslength ss_n))
     
214.            (setq m 0)
     
215.            (while (< m ll_n)
     
216.              (setq fanghao_C (entget (ssname ss_n m))
     
217.                    fh_C             (atoi (cdr (assoc 1 fanghao_C)))
     
218.              )
     
219.              (if (>= fh_c fh_n)
     
220.                (progn (setq fh_c (1+ fh_c))
     
221.                       (setq fanghao_c (subst (cons 1 (itoa fh_c))
     
222.                                              (assoc 1 fanghao_c)
     
223.                                              fanghao_c
     
224.                                       )
     
225.                       )
     
226.                       (entmod fanghao_c)
     
227.                )
     
228.              )
     
229.              (setq m (1+ m))
     
230.            )
     
231.            (setq fanghao (subst (cons 1 (itoa fh_n)) (assoc 1 fanghao) fanghao)
     
232.                  fanghao (subst (cons 62 3) (assoc 62 fanghao) fanghao)
     
233.            )
     
234.            (entmod fanghao)
     
235.     )
     
236.     (progn (c:cc) (c:cv))
     
237.   )
     
238.   (princ)
     
239. )

<br /> <br /> (textscr)<br /> (princ "\n\n  程    序    说    明")<br /> (princ "\n\n本程序共由5个命令组成，分别是：xf、df、cc、cv、gl;")<br /> (princ "\n\nxf  可以用鼠标顺序点取房间(请点选房间中的数字0或其他)，形成房间排队序号;")<br /> (princ "\n\ndf  模拟点房现场情况，他人已选房间打叉，如为自己的目标，则自动删除并重新排序;")<br /> (princ "\n\ncc  用于删除已选房间序号，可以用鼠标框选;")<br /> (princ "\n\ncv  用于修改已选房间序号，可以在以排好队的序号中插入新的序号，大于新序号的已\n\n  选房间序号会跟随变动,如选择了已排好队的序号，且输入了新序号，")<br /> (princ "\n\n  则排队顺序将根据新输入序号重新排列;")<br /> (princ "\n\ngl  清除已编序号及已点房的红叉;")<br /> (princ "\n\n使用前请认真阅读此说明!如有不明之处请来电咨询！电话:68801755")<br /> <br /> (princ "\n\n本程序仅供娱乐学习之用,本人对程序发结果不负任何责任!")<br /> <br /> (princ "\n\n限于本人水平有限，程序中错误在所难免，欢迎批评指正!")<br /> <br /> (princ "\n\n王磊 2006年10月16日")<br /> <br /> <br /> (defun c:xf (/ ent fanghao pt fh ss ll n fh_max gh_1 fh_c fanghao_c)<br />   (setq        ent        (entsel "选择房间:")<br />         fanghao        (entget (car ent))<br />         pt        (cdr ent)<br />   )<br />   (setq fh (atoi (cdr (assoc 1 fanghao))))<br />   (if (= 0 fh)<br />     (progn (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao"))))<br />            (setq ll        (sslength ss)<br />                  n        0<br />                  fh_max        fh<br />            )<br />            (while (< n ll)<br />              (setq fanghao_1 (entget (ssname ss n))<br />                    fh_1             (atoi (cdr (assoc 1 fanghao_1)))<br />              )<br />              (if (< fh_max fh_1)<br />                (setq fh_max fh_1)<br />              )<br />              (setq n (1+ n))<br />            )<br />            (setq fanghao (subst        (cons 1 (itoa (1+ fh_max)))<br />                                 (assoc 1 fanghao)<br />                                 fanghao<br />                          )<br />                  fanghao (subst (cons 62 3) (assoc 62 fanghao) fanghao)<br />            )<br />            (entmod fanghao)<br />     )<br />     (progn (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))<br />            (setq ll        (sslength ss)<br />                  n        0<br />                  fh_max        fh<br />            )<br />            (while (< n ll)<br />              (setq fanghao_1 (entget (ssname ss n))<br />                    fh_1             (atoi (cdr (assoc 1 fanghao_1)))<br />              )<br />              (if (< fh_max fh_1)<br />                (setq fh_max fh_1)<br />              )<br />              (setq n (1+ n))<br />            )<br />            (setq n 0)<br />            (while (< n ll)<br />              (setq fanghao_C (entget (ssname ss n))<br />                    fh_C             (atoi (cdr (assoc 1 fanghao_C)))<br />              )<br />              (if (> fh_c fh)<br />                (progn (setq fh_c (1- fh_c))<br />                       (setq fanghao_c (subst (cons 1 (itoa fh_c))<br />                                              (assoc 1 fanghao_c)<br />                                              fanghao_c<br />                                       )<br />                             fanghao_c (subst (cons 62 3)<br />                                              (assoc 62 fanghao_c)<br />                                              fanghao_c<br />                                       )<br />                       )<br />                       (entmod fanghao_c)<br />                )<br />                ()<br />              )<br />              (setq n (1+ n))<br />            )<br />            (setq fanghao (subst (cons 1 (itoa fh_max)) (assoc 1 fanghao) fanghao)<br />                  fanghao (subst (cons 62 3) (assoc 62 fanghao) fanghao)<br />            )<br />            (entmod fanghao)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:gl (/ ss ll n fanghao_c fh_c)<br />   (setq ss (ssget "_x" '((0 . "LINE") (8 . "ydf") (62 . 1))))<br />   (command "erase" ss "")<br />   (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))<br />   (setq        ll (sslength ss)<br />         n  0<br />   )<br />   (while (< n ll)<br />     (setq fanghao_C (entget (ssname ss n))<br />           fh_C            (atoi (cdr (assoc 1 fanghao_C)))<br />     )<br />     (setq fanghao_c (subst (cons 1 (itoa 0)) (assoc 1 fanghao_c) fanghao_c)<br />           fanghao_c (subst (cons 62 250) (assoc 62 fanghao_c) fanghao_c)<br />     )<br />     (entmod fanghao_c)<br />     (setq n (1+ n))<br />   )<br /> )<br /> <br /> (defun c:df<br />        (/ ent fanghao pt pt1 pt2 pt3 pt4 fh ss ll n fh_c fanghao_c)<br />   (setq        ent        (entsel)<br />         fanghao        (entget (car ent))<br />         pt        (cdr (assoc 11 fanghao))<br />         pt1        (polar pt (* 3.14159 (/ 26.0 180)) 80)<br />         pt2        (polar pt (* 3.14159 (/ -26.0 180)) 80)<br />         pt3        (polar pt (* 3.14159 (/ 206.0 180)) 80)<br />         pt4        (polar pt (* 3.14159 (/ 154.0 180)) 80)<br />   )<br />   (setq fh (atoi (cdr (assoc 1 fanghao))))<br />   (entmake (list '(0 . "LINE")<br />                  '(62 . 1)<br />                  '(8 . "ydf")<br />                  (cons 10 pt1)<br />                  (cons 11 pt3)<br />            )<br />   )<br />   (entmake (list '(0 . "LINE")<br />                  '(8 . "ydf")<br />                  '(62 . 1)<br />                  (cons 10 pt2)<br />                  (cons 11 pt4)<br />            )<br />   )<br />   (if (> fh 0)<br />     (progn (setq fanghao (subst (cons 1 (itoa 0)) (assoc 1 fanghao) fanghao)<br />                  fanghao (subst (cons 62 250) (assoc 62 fanghao) fanghao)<br />            )<br />            (entmod fanghao)<br />            (setq ss (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))<br />            (setq ll (sslength ss)<br />                  n  0<br />            )<br />            (while (< n ll)<br />              (setq fanghao_C (entget (ssname ss n))<br />                    fh_C             (atoi (cdr (assoc 1 fanghao_C)))<br />              )<br />              (if (> fh_c fh)<br />                (progn (setq fh_c (1- fh_c))<br />                       (setq fanghao_c (subst (cons 1 (itoa fh_c))<br />                                              (assoc 1 fanghao_c)<br />                                              fanghao_c<br />                                       )<br />                       )<br />                       (entmod fanghao_c)<br />                )<br />              )<br />              (setq n (1+ n))<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun c:cc (/ ss ll n fanghao ss_n ll_n fanghao_c fh_c m)<br />   (princ "\n选择已选取的序号:")<br />   (setq        ss (ssget '((0 . "TEXT") (8 . "fanghao") (62 . 3)))<br />         ll (sslength ss)<br />         n  0<br />   )<br />   (while (< n ll)<br />     (setq fanghao (entget (ssname ss n)))<br />     (setq fh (atoi (cdr (assoc 1 fanghao))))<br />     (setq fanghao (subst (cons 1 (itoa 0)) (assoc 1 fanghao) fanghao)<br />           fanghao (subst (cons 62 250) (assoc 62 fanghao) fanghao)<br />     )<br />     (entmod fanghao)<br />     (setq ss_n (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))<br />     (setq ll_n (sslength ss_n))<br />     (setq m 0)<br />     (while (< m ll_n)<br />       (setq fanghao_C (entget (ssname ss_n m))<br />             fh_C      (atoi (cdr (assoc 1 fanghao_C)))<br />       )<br />       (if (> fh_c fh)<br />         (progn (setq fh_c (1- fh_c))<br />                (setq fanghao_c (subst (cons 1 (itoa fh_c))<br />                                       (assoc 1 fanghao_c)<br />                                       fanghao_c<br />                                )<br />                )<br />                (entmod fanghao_c)<br />         )<br />       )<br />       (setq m (1+ m))<br />     )<br />     (setq n (1+ n))<br />   )<br /> )<br /> <br /> (defun c:cv (/ ent fanghao fh fh_n ss_n ll_n m fh_c fanghao_c)<br />   (setq        ent        (entsel "选择房间:")<br />         fanghao        (entget (car ent))<br />   )<br />   (setq fh (atoi (cdr (assoc 1 fanghao))))<br />   (setq fh_n (getint "\n输入新序号:"))<br />   (if (= fh 0)<br />     (progn (setq ss_n (ssget "_x" '((0 . "TEXT") (8 . "fanghao") (62 . 3))))<br />            (setq ll_n (sslength ss_n))<br />            (setq m 0)<br />            (while (< m ll_n)<br />              (setq fanghao_C (entget (ssname ss_n m))<br />                    fh_C             (atoi (cdr (assoc 1 fanghao_C)))<br />              )<br />              (if (>= fh_c fh_n)<br />                (progn (setq fh_c (1+ fh_c))<br />                       (setq fanghao_c (subst (cons 1 (itoa fh_c))<br />                                              (assoc 1 fanghao_c)<br />                                              fanghao_c<br />                                       )<br />                       )<br />                       (entmod fanghao_c)<br />                )<br />              )<br />              (setq m (1+ m))<br />            )<br />            (setq fanghao (subst (cons 1 (itoa fh_n)) (assoc 1 fanghao) fanghao)<br />                  fanghao (subst (cons 62 3) (assoc 62 fanghao) fanghao)<br />            )<br />            (entmod fanghao)<br />     )<br />     (progn (c:cc) (c:cv))<br />   )<br />   (princ)<br /> )

GTJ116600

好主意，有想法

cy956

实际上就是：  “房号---原始排序----已选未选” 的即时重排序，这个原始排序是你既定的。

可能研究选房标准更有意思，如朝向、景观、户型、楼层（包括根据前面已经挑好的，判断不想在谁的楼上或者想在谁的楼下）。。。。、，这个你可以去网上找商品房的定价标准，可以按权重算分。

拉契

楼主弄个演示看看，弄个演示更直观……