[求助]：为什么有的实体读不出来面积？

ago9999

如何避免这类情况？
如何依次读出多段线的端点和分出是弧还是线段？
还有如何取出曲面的面积？

XDSoft

最初由 ago9999 发布
[B]如何避免这类情况？
如何依次读出多段线的端点和分出是弧还是线段？
还有如何取出曲面的面积？ [/B]

下面是 XDRX_API 关于 POLYLINE 实体的提供的所有ARX实现的函数供LISP调用

1. [font=courier]
   
2. 264. xdrx_polyline->2dpolyline
   
3. 
   
4. 功能：将LWPOLYLINE转换成2DPOLYLINE，转换后ID不变，扩展实体，扩展词典不变
   
5. 
   
6. 调用格式：(xdrx_polyline->2dpolyline <LWPOLYLINE实体名>)
   
7. 
   
8. 返回值：成功T 否 NIL
   
9. 
   
10. 265. xdrx_objectstack_push
    
11. 
    
12. 功能：将对象入系统栈，供以后调用
    
13. 
    
14. 调用格式：(xdrx_objectstack_push <对象名>)
    
15. 
    
16. 返回值：成功T 否NIL
    
17. 
    
18. 说明：系统栈数据结构：一个先入后出的表，一个数据入栈后，当前栈顶数据依次下压，
    
19.      对栈的操作只能取栈顶的元素。
    
20.      
    
21.      对象名：以ADS NAME实体名表示的对象名，以后同。
    
22.      
    
23. 266. xdrx_objectstack_pop
    
24. 
    
25. 功能：将栈顶数据弹出堆栈（删除栈顶元素）
    
26. 
    
27. 调用格式：(xdrx_objectstack_pop)
    
28. 
    
29. 返回值：若栈不空T,否NIL
    
30. 
    
31. 267. xdrx_objectstack_top
    
32. 
    
33. 功能：获得系统栈定的数据（对象）
    
34. 
    
35. 调用格式： (xdrx_objectstack_top)
    
36. 
    
37. 返回值：对象名   
    
38. 
    
39. 268. xdrx_polyline_numVerts
    
40. 
    
41. 功能：获得LWPOLYLINE的顶点数
    
42. 
    
43. 调用格式： (xdrx_polyline_numVerts <LWPOLYLINE对象名>)
    
44.            (xdrx_polyline_numVerts)
    
45.            
    
46. 返回值：成功返回整数，否 NIL
    
47. 
    
48. 说明：不给参数，使用当前系统对象栈顶的对象。
    
49. 
    
50. 269. xdrx_polyline_segtype
    
51. 
    
52. 功能：返回POLYLINE上的顶点下面曲线段的类型
    
53. 
    
54. 调用格式：(xdrx_polyline_segtype <LWPOLYLINE对象名> <顶点位置>)
    
55.           (xdrx_polyline_segtype <顶点位置>)
    
56. 
    
57. 返回值：字符串
    
58. 
    
59. 说明：顶点类型－ "kLine" ，"kPoint"，"Kempty"，"kArc"
    
60. 
    
61. 270. xdrx_polyline_getArcSegAt
    
62. 
    
63. 功能：获得一个弧段顶点的弧数据
    
64. 
    
65. 调用格式：(xdrx_polyline_getArcSegAt <LWPOLYLINE对象名> <顶点位置>)
    
66.           (xdrx_polyline_getArcSegAt <顶点位置>)
    
67.          
    
68. 返回值：  (圆心 半径 起始角 终止角)
    
69. 
    
70. 例子：Command: (xdrx_polyline_getarcsegat 2) ;;计算对象堆栈顶的LWPOLYLINE对象
    
71.                ((42260.6 17638.3 0.0) 5260.35 6.09389 1.66863)        
    
72. 
    
73. 
    
74. 271. xdrx_polyline_getLineSegAt
    
75. 
    
76. 功能：获得一个直线段顶点的直线段数据
    
77. 
    
78. 调用格式：(xdrx_polyline_getLineSegAt <LWPOLYLINE对象名> <顶点位置>)
    
79.           (xdrx_polyline_getLineSegAt <顶点位置>)
    
80.          
    
81. 返回值：  (起点 终点)
    
82. 
    
83. 例子 Command: (xdrx_polyline_getlinesegat (car (entsel)) 1)
    
84.      Select object: ((45221.1 5134.88 0.0) (47427.0 16648.4 0.0))
    
85.      
    
86. 272. xdrx_polyline_getPointAt
    
87. 
    
88. 功能：获得指定顶点位置的点
    
89. 
    
90. 调用格式：(xdrx_polyline_getPointgAt <LWPOLYLINE实体名> <顶点索引位置>)
    
91.           (xdrx_polyline_getPointgAt <顶点索引位置>)   
    
92.          
    
93. 返回值：点
    
94. 
    
95. 273. xdrx_polyline_getWidthsAt
    
96. 
    
97. 功能：获得顶点索引位置后曲线段的起始宽度，终止宽度。
    
98. 
    
99. 调用格式：(xdrx_polyline_getWidthsAt <LWPOLYLINE实体名> <顶点索引位置>
    
100.           (xdrx_polyline_getWidthsAt <顶点索引位置>   
     
101.          
     
102. 返回值：(起始宽度 终止宽度)
     
103. 
     
104. 274. xdrx_polyline_getBulgeAt
     
105. 
     
106. 功能：获得指定索引位置弧段的凸度值。
     
107. 
     
108. 调用格式：(xdrx_polyline_getBulgeAt <LWPOLYLINE实体名> <顶点索引位置>)
     
109.           (xdrx_polyline_getBulgeAt <顶点索引位置>)
     
110.          
     
111. 返回值：实数
     
112. 
     
113. 275. xdrx_polyline_onSegAt
     
114. 
     
115. 功能：判断一个点是否在以指定的顶点索引开始的曲线段上，若是，返回该点的参数值。
     
116. 
     
117. 调用格式：(xdrx_polyline_onSegAt <LWPOLYLINE实体名> <顶点索引值> <测试点>)
     
118.           (xdrx_polyline_onSegAt <顶点索引值> <测试点>)
     
119.          
     
120. 返回值：若在，实数(该点处的曲线参数值),否NIL
     
121. 
     
122. 276. xdrx_polyline_elevation
     
123. 
     
124. 功能：获得POLYLINE的ELEV
     
125. 
     
126. 调用格式：(xdrx_polyline_elevation <LWPOLYLINE实体名>)
     
127.           (xdrx_polyline_elevation)  ;;对象栈顶
     
128.          
     
129. 返回值：实数
     
130. 
     
131. 277. xdrx_polyline_getConstantWidth
     
132. 
     
133. 功能：获得LWPOLYLINE的等宽度
     
134. 
     
135. 调用格式：(xdrx_polyline_elevation <LWPOLYLINE实体名>)
     
136.           (xdrx_polyline_elevation)  ;;对象栈顶
     
137.          
     
138. 返回值：实数
     
139. 
     
140. 278. xdrx_polyline_hasPlinegen
     
141. 
     
142. 功能：测试LWPOLYLINE实体是否是PLINEGEN      
     
143. 
     
144. 调用格斯：(xdrx_polyline_hasPlinegen <LWPOLYLINE实体名>)
     
145.           (xdrx_polyline_hasPlinegen)  ;;对象栈顶
     
146.          
     
147. 返回值：布尔值T或者NIL
     
148. 
     
149. 说明：如果LWPOLYLINE有PLINEGEN返回T,否NIL
     
150.       PLINEGEN是一个属性，引起线型生成是穿过整条POLYLINE，还是在每个单独的段起点终点闭合。
     
151.       
     
152. 279. xdrx_polyline_hasWidth
     
153. 
     
154. 功能：测试POLYLINE是否有宽度。
     
155. 
     
156. 调用格式：(xdrx_polyline_hasWidth <LWPOLYLINE实体名>)
     
157.           (xdrx_polyline_hasWidth)  ;;对象栈顶
     
158.          
     
159. 返回值：布尔值，有宽度T 否NIL
     
160. 
     
161. 280. xdrx_polyline_hasBulges
     
162. 
     
163. 功能：测试POLYLINE是否包含弧段
     
164. 
     
165. 调用格式：(xdrx_polyline_hasBulges <LWPOLYLINE实体名>)
     
166.           (xdrx_polyline_hasBulges)  ;;对象栈顶
     
167.          
     
168. 返回值：布尔值，有弧段T 否NIL
     
169. 
     
170. 281. xdrx_polyline_isOnlyLines
     
171. 
     
172. 功能：测试POLYLINE是否仅仅由直线段组成
     
173. 
     
174. 调用格式：(xdrx_polyline_isOnlyLines <LWPOLYLINE实体名>)
     
175.           (xdrx_polyline_isOnlyLines)  ;;对象栈顶
     
176.          
     
177. 返回值：布尔值，是T 否NIL
     
178. 
     
179. 282. xdrx_polyline_thickness
     
180. 
     
181. 功能：获得POLYLINE的thickness
     
182. 
     
183. 调用格式：(xdrx_polyline_thickness <LWPOLYLINE实体名>)
     
184.           (xdrx_polyline_thickness)  ;;对象栈顶
     
185.          
     
186. 返回值：实数
     
187. 
     
188. 283. xdrx_polyline_addVertexAt
     
189. 
     
190. 功能：在指定索引位置处增加一个顶点
     
191. 
     
192. 调用格式：(xdrx_polyline_addVertexat <LWPOLYLINE实体名> <index索引值> <点> [bulge值] [起始宽度][结束宽度])
     
193.           (xdrx_polyline_addVertexat <index索引值> <点> [bulge值] [起始宽度][结束宽度])
     
194.          
     
195. 返回值：成功T, 否 NIL
     
196. 
     
197. 说明：参数 [bulge值] [起始宽度][结束宽度]都为可选项，默认值都为0 ，后面的可选项若要设置必须前面的可选项也设置，但
     
198.       该可选项后面的若要默认值，可以省略。
     
199.       [bulge值]--实数，若加弧段给BULGE值。0退化为直线
     
200.       [起始宽度]，[结束宽度]--实数值或者整数值。
     
201.       
     
202. 284. xdrx_polyline_removeVertexAt
     
203. 
     
204. 功能：移去一个顶点
     
205. 
     
206. 调用格式：(xdrx_polyline_removeVertexAt <LWPOLYLINE实体名> <index索引值>)     
     
207.           (xdrx_polyline_removeVertexAt  <index索引值>)   
     
208.          
     
209. 返回值：成功T 失败NIL
     
210. 
     
211. 说明：移去一个定点，意味着该顶点后的曲线段也移去。
     
212. 
     
213. 285. xdrx_polyline_setBulgeAt
     
214. 
     
215. 功能：在指定的索引位置，设置BULGE值，即若该索引后的段是直线，则变成弧。
     
216.       若是弧，则改变到新的BULGE         
     
217.       
     
218. 调用格式：(xdrx_polyline_setBulgeAt <lwpolyline实体名> <index索引> <bulge值>)
     
219.           (xdrx_polyline_setBulgeAt <index索引> <bulge值>)
     
220. 
     
221. 返回值：成功T,失败NIL
     
222. 
     
223. 说明：参数bulge值为实数。
     
224. 
     
225. 286. xdrx_polyline_setConstantWidth
     
226. 
     
227. 功能：设置POLYLINE的等宽值
     
228. 
     
229. 调用格式：(xdrx_polyline_setConstantWidth <lwpolyline实体名> <宽度值>)
     
230.           (xdrx_polyline_setConstantWidth  <宽度值>)
     
231. 
     
232. 返回值：成功T ,失败NIL
     
233. 
     
234. 说明：参数<宽度值>为实数或者整数
     
235. 
     
236. 287. xdrx_polyline_setElevation
     
237. 
     
238. 功能：设置POLYLINE的ELEV
     
239. 
     
240. 调用格式：(xdrx_polyline_setElevation <lwpolyline实体名> <ELEV值>)
     
241.           (xdrx_polyline_setElevation <ELEV值>)
     
242.          
     
243. 返回值：成功T ,否NIL
     
244. 
     
245. 288. xdrx_polyline_setNormal
     
246. 
     
247. 功能：设置POLYLINE的拉伸矢量
     
248. 
     
249. 调用格式：(xdrx_polyline_setNormal <lwpolyline实体名> <向量>)
     
250.           (xdrx_polyline_setNormal <向量>)
     
251. 
     
252. 返回值：成功T 否NIL
     
253. 
     
254. 说明：<向量>以点的形式输入，如：(0 0 1)
     
255. 
     
256. 289. xdrx_polyline_setPlinegen
     
257. 
     
258. 功能：设置POLYLINE线型的PLINEGEN属性
     
259. 
     
260. 调用格式：(xdrx_polyline_setPlinegen <lwpolyline实体名> [plinegen flag])
     
261.           (xdrx_polyline_setPlinegen  [plinegen flag])
     
262. 
     
263. 返回值：成功T,否NIL
     
264. 
     
265. 说明：[plinegen flag]=T，线性穿过整条曲线，不给参数，线性在每个顶点起始，结束闭合线型。
     
266. 
     
267. 290. xdrx_polyline_setPointAt
     
268. 
     
269. 功能：修改指定索引处的顶点到新的顶点（不增加新顶点）
     
270. 
     
271. 调用格式：(xdrx_polyline_setPointAt <lwpolyline实体名> <indexs索引> <新顶点>)
     
272.           (xdrx_polyline_setPointAt <indexs索引> <新顶点>)
     
273. 
     
274. 返回值：成功T 失败返回NIL
     
275. 
     
276. 291. xdrx_polyline_setThickness
     
277. 
     
278. 功能：设置POLYLINE的THICKNESS
     
279. 
     
280. 调用格式：(xdrx_polyline_setThickness  <lwpolyline实体名> <thickness值>)   
     
281.           (xdrx_polyline_setThickness  <thickness值>)
     
282.          
     
283. 返回值：成功T 失败NIL
     
284. 
     
285. 292. xdrx_polyline_setWidthsAt
     
286. 
     
287. 功能：修改指定索引值处下面段的起始、结束宽度
     
288. 
     
289. 调用格式：(xdrx_polyline_setWidthsAt <lwpolyline实体名> <index索引> <起始宽度><结束宽度>)
     
290.           (xdrx_polyline_setWidthsAt <index索引> <起始宽度><结束宽度>)
     
291.          
     
292. 返回值：成功T 失败NIL
     
293. 
     
294. 说明：<起始宽度><结束宽度>：实数或者整数
     
295. 
     
296. 293. xdrx_polyline_ConvertFrom
     
297. 
     
298. 功能：从2DPOLYLINE(R13老多义线)转换得到LWPOLYLINE
     
299. 
     
300. 调用格式：(xdrx_polyline_ConvertFrom <2dpolyline实体>)
     
301. 
     
302. 返回值：成功T 失败返回NIL
     
303. 
     
304. 说明：转换后，删除原来老POLY,用新LWPOLY代替
     
305. [/font]

复制代码