[编程申请]：统计一区域实体数量，并修改指定位置的统计文字

ahwu

向各位老师和师兄求教：
⒈如何统计一区域内（两点确定的矩形范围内）实体（如块）的数量，并修改指定位置的统计文字。
⒉图层1有首尾相连的线段组成的线条若干条，图层2有一些线段、园弧、样条曲线，如何统计一区域内（两点确定的矩形范围内）图层2各线和图层1各线的交点的数量，并修改指定位置的统计文字。

XDSoft

问两个问题：

1、两个应用的窗口是否是交叉选还是窗口选？
2、修改指定位置的文字，是统计出来后，新写到指定的位置，还是修改原来有的，如果原来有的，是否需要叠加？我想如果要和原来相加，可以另外用个工具，集成到一起通用性不太好。


另外：这两个应用你用到什么地方？

ahwu

1、这是两个独立的问题，是分别单独选取一个窗口。
2、修改指定位置的文字，是统计出来后，修改原来有的，不要求叠加。
⒊要求用lisp编写,不使用晓东工具箱，因我一直无法安装起来，谢谢！！！！！！！！！

XDSoft

最初由 ahwu 发布
[B]1、这是两个独立的问题，是分别单独选取一个窗口。
2、修改指定位置的文字，是统计出来后，修改原来有的，不要求叠加。
⒊要求用lisp编写,不使用晓东工具箱，因我一直无法安装起来，谢谢！！！！！！！！！ [/B]

1、窗口穿过的实体就包括，还是必须是窗口内的？

2、想法让晓东工具箱能用吧，如果你是R14或者2002，肯定可以用，其实实质就是XDRX_API加载的问题，不装工具箱，能加载XDRX_API*.ARX就可以，如果加载ARX，搜索下论坛，论坛做过FLASH教学。

ahwu

1、必须是窗口内的 ,两点是用数据提供的，不要求另外框选。

2、我用的是R2000，请文XDRX_API*.ARX中的*号表示什么？

XDSoft

最初由 ahwu 发布
[B]1、必须是窗口内的 ,两点是用数据提供的，不要求另外框选。

2、我用的是R2000，请文XDRX_API*.ARX中的*号表示什么？ [/B]

1、两点不是让用户屏幕拾取吗？取两点后，就确定了矩形窗口啊

2、对于R14版本，是xdrx_api14.arx，对于2002，是xdrx_api15.arx
   
      XDRX_API已经不支持2000了，请升级到2002

ahwu

1、因我的矩形窗口是固定的，编程时写入这两点坐标即可，如每次都要选取，那很麻烦。

2、谢谢提示，我将尽快请升级到2002

XDSoft

最初由 ahwu 发布
[B]1、因我的矩形窗口是固定的，编程时写入这两点坐标即可，如每次都要选取，那很麻烦。

2、谢谢提示，我将尽快请升级到2002 [/B]

1、从你的帖子来看，（如果不让用户取点的话）没有说明怎么输入这两个点啊？

2、2002有足够的理由让你升级，快点吧：）

ahwu

1、比如说是"0,0"和"100,100“两个点,在编程时直接用这两个点数据赋值就行了，我是个初学者，老师让你费心了！！！！！！！！

XDSoft

最初由 ahwu 发布
[B]1、比如说是"0,0"和"100,100“两个点,在编程时直接用这两个点数据赋值就行了，我是个初学者，老师让你费心了！！！！！！！！ [/B]

比如？ 用的时候都是0，0，100，100？

我认为还是用户屏幕取点比较方便。

ahwu

我所要求选的范围都是固定的，用的时候都是0，0和100，100，请直接将数据加在程序中。谢谢！

eachy

2. 
   
3. (defun c:tj_block (/ e tf num pt)
   
4.   (xdrx_begin)
   
5.   (xdrx_ucson)
   
6.   (setq tf T)
   
7.   (while tf
   
8.     (setq e (xdrx_entsel "\n点取要统计块<退出>: " '((0 . "INSERT"))))
   
9.     (if        e
   
10.       (progn
    
11.         (setq ss (ssget        "w"
    
12.                         '(0 0 0)
    
13.                         '(100 100 0)
    
14.                         (list (cons 2 (xdrx_getentdxf 2)))
    
15.                  )
    
16.         )
    
17.         (setq num (sslength ss))
    
18.         (setq pt (getpoint "\n标注位置: "))
    
19.         (command ".text" pt "" "" (rtos num 2 0) "")
    
20.       )
    
21.       (setq tf nil)
    
22.     )
    
23.   )
    
24.   (xdrx_ucsoff)
    
25.   (xdrx_end)
    
26.   (princ)
    
27. )
    
28. ;[COLOR=BLUE];  lay1    图层一
    
29. ;;  lay2    图层二
    
30. ;;  自行替换为要统计图层[/COLOR]
    
31. (defun c:tj_inters (/ ss1 ss2 pt)
    
32.   (xdrx_begin)
    
33.   (xdrx_ucson)
    
34.   (setq        ss1 (ssget "w"
    
35.                    '(0 0 0)
    
36.                    '(100 100 0)
    
37.                    '((8 . "lay1"))
    
38.             )
    
39.         ss2 (ssget "w"
    
40.                    '(0 0 0)
    
41.                    '(100 100 0)
    
42.                    '((8 . "lay2"))
    
43.             )
    
44.   )
    
45.   (setq pt (getpoint "\n标注位置: "))
    
46.   (command ".text"
    
47.            pt
    
48.            ""
    
49.            ""
    
50.            (rtos (length (xdrx_getinters ss1 ss2)) 2 0)
    
51.            ""
    
52.   )
    
53.   (xdrx_ucsoff)
    
54.   (xdrx_end)
    
55.   (princ)
    
56. )
    

<br /> (defun c:tj_block (/ e tf num pt)<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   (setq tf T)<br />   (while tf<br />     (setq e (xdrx_entsel "\n点取要统计块<退出>: " '((0 . "INSERT"))))<br />     (if        e<br />       (progn<br />         (setq ss (ssget        "w"<br />                         '(0 0 0)<br />                         '(100 100 0)<br />                         (list (cons 2 (xdrx_getentdxf 2)))<br />                  )<br />         )<br />         (setq num (sslength ss))<br />         (setq pt (getpoint "\n标注位置: "))<br />         (command ".text" pt "" "" (rtos num 2 0) "")<br />       )<br />       (setq tf nil)<br />     )<br />   )<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br /> ;[COLOR=BLUE];  lay1    图层一<br /> ;;  lay2    图层二<br /> ;;  自行替换为要统计图层[/COLOR]<br /> (defun c:tj_inters (/ ss1 ss2 pt)<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   (setq        ss1 (ssget "w"<br />                    '(0 0 0)<br />                    '(100 100 0)<br />                    '((8 . "lay1"))<br />             )<br />         ss2 (ssget "w"<br />                    '(0 0 0)<br />                    '(100 100 0)<br />                    '((8 . "lay2"))<br />             )<br />   )<br />   (setq pt (getpoint "\n标注位置: "))<br />   (command ".text"<br />            pt<br />            ""<br />            ""<br />            (rtos (length (xdrx_getinters ss1 ss2)) 2 0)<br />            ""<br />   )<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br />