[求助]统计图上所有多义线面积(含非封闭)并写到文字上

honsonnien

图上有上千个多义线所生成的面积(含非封闭)，应如何选取某范围后提取

1、面积等于1000、

2、大于等于500小于1000

3、小于500后，

统计数量后生成文字。

如：

面积等于1000 数量=800

面积大于等于500及小于1000 数量=150

面积小于500 数量=250

谢谢~~

gufeng

你是要选择图上的多义线还是文字面积?

honsonnien

gufeng发表于2010-8-7 23:48:00你是要选择图上的多义线还是文字面积?

选择图上的多义线~提取其面积~~

qihuiqiang

qq534206572

zhli85

用插件直接查询你所选的范围就行了

gufeng

[money=15]

2. (defun c:Test (/ <500NUM     =1000NUM  >=500<1000NUM
3.    OBJ      OBJ_AREA  OBJ_I      OBJ_VLA
4.    OLDCMDECHO  PT   TEXT_H      TEXT_JL
5.   )
6. (setq obj (ssget '((0 . "*POLYLINE"))))
7. (if obj
8. (progn
9. (vl-load-com)
10. (setq oldcmdecho (getvar "cmdecho"))
11. (setvar "cmdecho" 0) ;_禁止回显
12. (setq text_h 3) ;_文字的高度
13. (setq text_jl 10) ;_文字的行间距,使用的是单选文字
14. (setq =1000Num 0) ;_面积 =1000 的个数
15. (setq >=500<1000Num 0) ;_面积等(and >=500 <1000) 的个数
16. (setq <500Num 0) ;_面积 <500 的个数
17. (setq obj_i -1)
18. (repeat (sslength obj)
19. (setq obj_vla (vlax-ename->vla-object
20. (ssname obj (setq obj_i (1+ obj_i)))
21. )
22. ) ;_Vla对象
23. (setq obj_area (vla-get-Area obj_vla)) ;_面积
24. (cond
25. ((= obj_area 1000)
26. (setq =1000Num (1+ =1000Num))
27. )
28. ((and (>= obj_area 500) (< obj_area 1000))
29. (setq >=500<1000Num (1+ >=500<1000Num))
30. )
31. ((< obj_area 500)
32. (setq <500Num (1+ <500Num))
33. )
34. )
35. )
36. (setq pt (getpoint "\n指定文字插入点:"))
37. (command "-text"
38. "j"
39. "ml"
40. pt
41. text_h
42. 0
43. (strcat "面积等于1000 数量=" (itoa =1000Num))
44. )
45. (command "-text"
46. "j"
47. "ml"
48. (setq pt (polar pt (* pi 1.5) text_jl))
49. text_h
50. 0
51. (strcat "\n面积大于等于500及小于1000 数量="
52. (itoa >=500<1000Num)
53. )
54. )
55. (command "-text"
56. "j"
57. "ml"
58. (polar pt (* pi 1.5) text_jl)
59. text_h
60. 0
61. (strcat "\n面积小于500 数量=" (itoa <500Num))
62. )
63. (setvar "cmdecho" oldcmdecho)
64. )
65. )
66. (princ)
67. )

(defun c:Test (/ <500NUM     =1000NUM  >=500<1000NUM    OBJ      OBJ_AREA  OBJ_I      OBJ_VLA    OLDCMDECHO  PT   TEXT_H      TEXT_JL   ) (setq obj (ssget '((0 . "*POLYLINE")))) (if obj (progn (vl-load-com) (setq oldcmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) ;_禁止回显 (setq text_h 3) ;_文字的高度 (setq text_jl 10) ;_文字的行间距,使用的是单选文字 (setq =1000Num 0) ;_面积 =1000 的个数 (setq >=500<1000Num 0) ;_面积等(and >=500 <1000) 的个数 (setq <500Num 0) ;_面积 <500 的个数 (setq obj_i -1) (repeat (sslength obj) (setq obj_vla (vlax-ename->vla-object (ssname obj (setq obj_i (1+ obj_i))) ) ) ;_Vla对象 (setq obj_area (vla-get-Area obj_vla)) ;_面积 (cond ((= obj_area 1000) (setq =1000Num (1+ =1000Num)) ) ((and (>= obj_area 500) (< obj_area 1000)) (setq >=500<1000Num (1+ >=500<1000Num)) ) ((< obj_area 500) (setq <500Num (1+ <500Num)) ) ) ) (setq pt (getpoint "\n指定文字插入点:")) (command "-text" "j" "ml" pt text_h 0 (strcat "面积等于1000 数量=" (itoa =1000Num)) ) (command "-text" "j" "ml" (setq pt (polar pt (* pi 1.5) text_jl)) text_h 0 (strcat "\n面积大于等于500及小于1000 数量=" (itoa >=500<1000Num) ) ) (command "-text" "j" "ml" (polar pt (* pi 1.5) text_jl) text_h 0 (strcat "\n面积小于500 数量=" (itoa <500Num)) ) (setvar "cmdecho" oldcmdecho) ) ) (princ) )

[/money]