[求助]：如何消除多义线重复的顶点？

matichen · 发表于 2002-8-5 12:22:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我用xdrx_GetPolyVtx取多义线的顶点表，用于构造ssget集。但是由于存在重复点，构造常失败。。如何消除这种重复顶点。？

XDSoft · 发表于 2002-8-5 18:09:39

最初由 matichen 发布
[B]我用xdrx_GetPolyVtx取多义线的顶点表，用于构造ssget集。但是由于存在重复点，构造常失败。。如何消除这种重复顶点。？ [/B]

首先你要判断出哪些是重复的，然后就好办了，XDRX_API提供了

284. xdrx_polyline_removeVertexAt

功能：移去一个顶点

调用格式：(xdrx_polyline_removeVertexAt <LWPOLYLINE实体名> <index索引值>)
      (xdrx_polyline_removeVertexAt  <index索引值>)

返回值：成功T 失败NIL

说明：移去一个定点，意味着该顶点后的曲线段也移去。

判断是否有重复顶点，使用XDRX_API也是很方便的，XDRX_API提供了ObjectARX 库关于POLYLINE实体的所用函数。

[FONT=courier new]
268. xdrx_polyline_numVerts
功能：获得LWPOLYLINE的顶点数
调用格式： (xdrx_polyline_numVerts <LWPOLYLINE对象名>)
(xdrx_polyline_numVerts)
返回值：成功返回整数，否 NIL
说明：不给参数，使用当前系统对象栈顶的对象。
269. xdrx_polyline_segtype
功能：返回POLYLINE上的顶点下面曲线段的类型
调用格式：(xdrx_polyline_segtype <LWPOLYLINE对象名> <顶点位置>)
(xdrx_polyline_segtype <顶点位置>)
返回值：字符串
说明：顶点类型－ "kLine" ，"kPoint"，"Kempty"，"kArc"
270. xdrx_polyline_getArcSegAt
功能：获得一个弧段顶点的弧数据
调用格式：(xdrx_polyline_getArcSegAt <LWPOLYLINE对象名> <顶点位置>)
(xdrx_polyline_getArcSegAt <顶点位置>)
返回值： (圆心半径起始角终止角)
例子：Command: (xdrx_polyline_getarcsegat 2) ;;计算对象堆栈顶的LWPOLYLINE对象
((42260.6 17638.3 0.0) 5260.35 6.09389 1.66863)
271. xdrx_polyline_getLineSegAt
功能：获得一个直线段顶点的直线段数据
调用格式：(xdrx_polyline_getLineSegAt <LWPOLYLINE对象名> <顶点位置>)
(xdrx_polyline_getLineSegAt <顶点位置>)
返回值： (起点终点)
例子 Command: (xdrx_polyline_getlinesegat (car (entsel)) 1)
Select object: ((45221.1 5134.88 0.0) (47427.0 16648.4 0.0))
272. xdrx_polyline_getPointgAt
功能：获得指定顶点位置的点
调用格式：(xdrx_polyline_getPointgAt <LWPOLYLINE实体名> <顶点索引位置>)
(xdrx_polyline_getPointgAt <顶点索引位置>)
返回值：点
273. xdrx_polyline_getWidthsAt
功能：获得顶点索引位置后曲线段的起始宽度，终止宽度。
调用格式：(xdrx_polyline_getWidthsAt <LWPOLYLINE实体名> <顶点索引位置>
(xdrx_polyline_getWidthsAt <顶点索引位置>
返回值：(起始宽度终止宽度)
274. xdrx_polyline_getBulgeAt
功能：获得指定索引位置弧段的凸度值。
调用格式：(xdrx_polyline_getBulgeAt <LWPOLYLINE实体名> <顶点索引位置>)
(xdrx_polyline_getBulgeAt <顶点索引位置>)
返回值：实数
275. xdrx_polyline_onSegAt
功能：判断一个点是否在以指定的顶点索引开始的曲线段上，若是，返回该点的参数值。
调用格式：(xdrx_polyline_onSegAt <LWPOLYLINE实体名> <顶点索引值> <测试点>)
(xdrx_polyline_onSegAt <顶点索引值> <测试点>)
返回值：若在，实数(该点处的曲线参数值),否NIL
276. xdrx_polyline_elevation
功能：获得POLYLINE的ELEV
调用格式：(xdrx_polyline_elevation <LWPOLYLINE实体名>)
(xdrx_polyline_elevation) ;;对象栈顶
返回值：实数
277. xdrx_polyline_getConstantWidth
功能：获得LWPOLYLINE的等宽度
调用格式：(xdrx_polyline_elevation <LWPOLYLINE实体名>)
(xdrx_polyline_elevation) ;;对象栈顶
返回值：实数
278. xdrx_polyline_hasPlinegen
功能：测试LWPOLYLINE实体是否是PLINEGEN
调用格斯：(xdrx_polyline_hasPlinegen <LWPOLYLINE实体名>)
(xdrx_polyline_hasPlinegen) ;;对象栈顶
返回值：布尔值T或者NIL
说明：如果LWPOLYLINE有PLINEGEN返回T,否NIL
PLINEGEN是一个属性，引起线型生成是穿过整条POLYLINE，还是在每个单独的段起点终点闭合。
279. xdrx_polyline_hasWidth
功能：测试POLYLINE是否有宽度。
调用格式：(xdrx_polyline_hasWidth <LWPOLYLINE实体名>)
(xdrx_polyline_hasWidth) ;;对象栈顶
返回值：布尔值，有宽度T 否NIL
280. xdrx_polyline_hasBulges
功能：测试POLYLINE是否包含弧段
调用格式：(xdrx_polyline_hasBulges <LWPOLYLINE实体名>)
(xdrx_polyline_hasBulges) ;;对象栈顶
返回值：布尔值，有弧段T 否NIL
281. xdrx_polyline_isOnlyLines
功能：测试POLYLINE是否仅仅由直线段组成
调用格式：(xdrx_polyline_isOnlyLines <LWPOLYLINE实体名>)
(xdrx_polyline_isOnlyLines) ;;对象栈顶
返回值：布尔值，是T 否NIL
282. xdrx_polyline_thickness
功能：获得POLYLINE的thickness
调用格式：(xdrx_polyline_thickness <LWPOLYLINE实体名>)
(xdrx_polyline_thickness) ;;对象栈顶
返回值：实数
283. xdrx_polyline_addVertexAt
功能：在指定索引位置处增加一个顶点
调用格式：(xdrx_polyline_addVertexat <LWPOLYLINE实体名> <index索引值> <点> [bulge值] [起始宽度][结束宽度])
(xdrx_polyline_addVertexat <index索引值> <点> [bulge值] [起始宽度][结束宽度])
返回值：成功T, 否 NIL
说明：参数 [bulge值] [起始宽度][结束宽度]都为可选项，默认值都为0 ，后面的可选项若要设置必须前面的可选项也设置，但
该可选项后面的若要默认值，可以省略。
[bulge值]--实数，若加弧段给BULGE值。0退化为直线
[起始宽度]，[结束宽度]--实数值或者整数值。
284. xdrx_polyline_removeVertexAt
功能：移去一个顶点
调用格式：(xdrx_polyline_removeVertexAt <LWPOLYLINE实体名> <index索引值>)
(xdrx_polyline_removeVertexAt <index索引值>)
返回值：成功T 失败NIL
说明：移去一个定点，意味着该顶点后的曲线段也移去。
285. xdrx_polyline_setBulgeAt
功能：在指定的索引位置，设置BULGE值，即若该索引后的段是直线，则变成弧。
若是弧，则改变到新的BULGE
调用格式：(xdrx_polyline_setBulgeAt <lwpolyline实体名> <index索引> <bulge值>)
(xdrx_polyline_setBulgeAt <index索引> <bulge值>)
返回值：成功T,失败NIL
说明：参数bulge值为实数。
286. xdrx_polyline_setConstantWidth
功能：设置POLYLINE的等宽值
调用格式：(xdrx_polyline_setConstantWidth <lwpolyline实体名> <宽度值>)
(xdrx_polyline_setConstantWidth <宽度值>)
返回值：成功T ,失败NIL
说明：参数<宽度值>为实数或者整数
287. xdrx_polyline_setElevation
功能：设置POLYLINE的ELEV
调用格式：(xdrx_polyline_setElevation <lwpolyline实体名> <ELEV值>)
(xdrx_polyline_setElevation <ELEV值>)
返回值：成功T ,否NIL
288. xdrx_polyline_setNormal
功能：设置POLYLINE的拉伸矢量
调用格式：(xdrx_polyline_setNormal <lwpolyline实体名> <向量>)
(xdrx_polyline_setNormal <向量>)
返回值：成功T 否NIL
说明：<向量>以点的形式输入，如：(0 0 1)
289. xdrx_polyline_setPlinegen
功能：设置POLYLINE线型的PLINEGEN属性
调用格式：(xdrx_polyline_setPlinegen <lwpolyline实体名> [plinegen flag])
(xdrx_polyline_setPlinegen [plinegen flag])
返回值：成功T,否NIL
说明：[plinegen flag]=T，线性穿过整条曲线，不给参数，线性在每个顶点起始，结束闭合线型。
290. xdrx_polyline_setPointAt
功能：修改指定索引处的顶点到新的顶点（不增加新顶点）
调用格式：(xdrx_polyline_setPointAt <lwpolyline实体名> <indexs索引> <新顶点>)
(xdrx_polyline_setPointAt <indexs索引> <新顶点>)
返回值：成功T 失败返回NIL
291. xdrx_polyline_setThickness
功能：设置POLYLINE的THICKNESS
调用格式：(xdrx_polyline_setThickness <lwpolyline实体名> <thickness值>)
(xdrx_polyline_setThickness <thickness值>)
返回值：成功T 失败NIL
292. xdrx_polyline_setWidthsAt
功能：修改指定索引值处下面段的起始、结束宽度
调用格式：(xdrx_polyline_setWidthsAt <lwpolyline实体名> <index索引> <起始宽度><结束宽度>)
(xdrx_polyline_setWidthsAt <index索引> <起始宽度><结束宽度>)
返回值：成功T 失败NIL
说明：<起始宽度><结束宽度>：实数或者整数
293. xdrx_polyline_ConvertFrom
功能：从2DPOLYLINE(R13老多义线)转换得到LWPOLYLINE
调用格式：(xdrx_polyline_ConvertFrom <2dpolyline实体>)
返回值：成功T 失败返回NIL
说明：转换后，删除原来老POLY,用新LWPOLY代替
[/FONT]

复制代码

matichen · 发表于 2002-8-5 20:45:40

看晕菜了。。。还是不太明白啊，就是不知如何判断重复点。能帮忙写段lisp去掉重复点吗，我才学几天lisp，懂得太少，

XDSoft · 发表于 2002-8-5 23:24:42

最初由 matichen 发布
[B]看晕菜了。。。还是不太明白啊，就是不知如何判断重复点。能帮忙写段lisp去掉重复点吗，我才学几天lisp，懂得太少， [/B]

你用上面的API函数，循环处理每个顶点，判断前后两个点间的距离是否小于一个你认为是重合的数，如果小于（说明重合），那么用xdrx_polyline_removeVertexAt函数删除顶点。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何消除多义线重复的顶点？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：如何消除多义线重复的顶点？