关于vlax-curve-getPointAtDist捕捉点问题

xtdwynij

我想等分平分圆弧。用vlax-curve-getPointAtDist函数来捕捉，首先得出每段距离，然后得出全部点。再与圆心得相角度，然后用来生成圆弧！可是有可能是得出每段距离时有着误差，最后一次捕捉点好像根本就不存在一样，请各位高手们指点一下，代码如下：

2. (defun c:tt (/)
   
3.   (vl-load-com)
   
4.   (setq dqwgs (getint "\n请输入桥位的个数:"))
   
5.   (setq cqw 4.
   
6.         cqwgs dqwgs
   
7.   )
   
8.   (prompt "\n请选择:")
   
9.   (setq zccqwss (ssget '((8 . "0") (-4 . "<or")
   
10.                         (0 . "CIRCLE")
    
11.                         (0 . "ARC")
    
12.                         (0 . "LINE")
    
13.                         (-4 . "or>")
    
14.                        )
    
15.                 )
    
16.   )
    
17.   (setq zccqwn 0)
    
18.   (repeat (sslength zccqwss)
    
19.     (setq ent (ssname zccqwss zccqwn))
    
20.     (setq qwentget (entget ent))       ; 取得每一个选集中的图元名属性
    
21.     (cond
    
22.       ((= (cdr (assoc 0 qwentget)) "ARC")
    
23.         (setq zhobj (vlax-ename->vla-object ent)) ; 转换为VLA对象
    
24.         (setq cen1 (Vlax-Get zhobj 'Center)) ; 取得圆心
    
25.         (setq rr1 (vlax-get zhobj 'Radius)) ; 取得半径
    
26.         (setq arclen (vla-get-ArcLength zhobj))        ; 得到圆弧总长度
    
27.         (setq arcdist (/ (- arclen (* cqw cqwgs)) (1+ cqwgs))) ; 得出每段距离
    
28.         (setq arcstart (vlax-curve-getstartpoint zhobj)) ; 得出起点
    
29.         (setq arcpt1 (vlax-curve-getPointAtDist zhobj arcdist))        ; 得出初始终点
    
30.         (setq arccdist (+ arcdist cqw))        ; 初始距离
    
31.         (repeat (1+ cqwgs)
    
32.           (setq arc50 (angle cen1 arcstart)) ; 得出圆弧起点角度;注意是以圆心为起点测试角度
    
33.           (setq arc51 (angle cen1 arcpt1)) ; 得出圆弧终点角度
    
34.           (entmake (list (cons 0 "ARC") (cons 10 cen1) (cons 40 rr1) (cons 50 arc50) (cons 51 arc51)))
    
35.           (setq arcstart (vlax-curve-getPointAtDist zhobj arccdist))
    
36.           (setq arcpt1 (vlax-curve-getPointAtDist zhobj (+ arcdist arccdist)))
    
37.           (setq arccdist (+ arccdist arccdist))        ; 是不是最后一次捕捉点不到？每一段的距离算多了么
    
38.                                        ; 请指点
    
39.         )
    
40.         (entdel (vlax-vla-object->ename zhobj))        ; 这里就执行不了啦
    
41.       )                                       ; ======
    
42.     )
    
43.     (setq zccqwn (1+ zccqwn))
    
44.   )
    
45. )
    

(defun c:tt (/)<br />   (vl-load-com)<br />   (setq dqwgs (getint "\n请输入桥位的个数:"))<br />   (setq cqw 4.<br />         cqwgs dqwgs<br />   )<br />   (prompt "\n请选择:")<br />   (setq zccqwss (ssget '((8 . "0") (-4 . "<or")<br />                         (0 . "CIRCLE")<br />                         (0 . "ARC")<br />                         (0 . "LINE")<br />                         (-4 . "or>")<br />                        )<br />                 )<br />   )<br />   (setq zccqwn 0)<br />   (repeat (sslength zccqwss)<br />     (setq ent (ssname zccqwss zccqwn))<br />     (setq qwentget (entget ent))       ; 取得每一个选集中的图元名属性<br />     (cond<br />       ((= (cdr (assoc 0 qwentget)) "ARC")<br />         (setq zhobj (vlax-ename->vla-object ent)) ; 转换为VLA对象<br />         (setq cen1 (Vlax-Get zhobj 'Center)) ; 取得圆心<br />         (setq rr1 (vlax-get zhobj 'Radius)) ; 取得半径<br />         (setq arclen (vla-get-ArcLength zhobj))        ; 得到圆弧总长度<br />         (setq arcdist (/ (- arclen (* cqw cqwgs)) (1+ cqwgs))) ; 得出每段距离<br />         (setq arcstart (vlax-curve-getstartpoint zhobj)) ; 得出起点<br />         (setq arcpt1 (vlax-curve-getPointAtDist zhobj arcdist))        ; 得出初始终点<br />         (setq arccdist (+ arcdist cqw))        ; 初始距离<br />         (repeat (1+ cqwgs)<br />           (setq arc50 (angle cen1 arcstart)) ; 得出圆弧起点角度;注意是以圆心为起点测试角度<br />           (setq arc51 (angle cen1 arcpt1)) ; 得出圆弧终点角度<br />           (entmake (list (cons 0 "ARC") (cons 10 cen1) (cons 40 rr1) (cons 50 arc50) (cons 51 arc51)))<br />           (setq arcstart (vlax-curve-getPointAtDist zhobj arccdist))<br />           (setq arcpt1 (vlax-curve-getPointAtDist zhobj (+ arcdist arccdist)))<br />           (setq arccdist (+ arccdist arccdist))        ; 是不是最后一次捕捉点不到？每一段的距离算多了么<br />                                        ; 请指点<br />         )<br />         (entdel (vlax-vla-object->ename zhobj))        ; 这里就执行不了啦<br />       )                                       ; ======<br />     )<br />     (setq zccqwn (1+ zccqwn))<br />   )<br /> )<br />

出现以下几种情况，不知道是为什么？

newer

xtdwynij 发表于 2013-8-31 14:24
cqw为间距  cqwgs 为分段个数  间距为4个MM，分为四段。分为五段测试一样也是不行的！返回值为NIL (分段 ...

你要是用点取判断的话，那么必须保证点在弧线上，如果用参数去判断的话，必须保证参数在曲线上，所以，每次你循环取点的时候，加个代码，如果是点，去下点到弧线的最近点，用最近点取操作，如果用参数，在终止的时候，判断下是否和弧线的终点参数一样，不一样，取弧线的终点参数，因为浮点数有误差。

st788796

用角度等分来自: Android客户端

xtdwynij

st788796 发表于 2013-8-25 20:53
用角度等分

可是怎么得到二条线之间的角度呢？

st788796

先判断同心，再判断孰长孰短，应该是找出夹角最小的两个端点吧来自: Android客户端

eachy

是不是把弧均分为几段，中间留缺口？

xtdwynij

eachy 发表于 2013-8-25 21:49
是不是把弧均分为几段，中间留缺口？

是啊！可是得出来的每段值可以太多了，最后一个点得不到，也不知道为什么？总是出错！

newer

xtdwynij 发表于 2013-8-25 21:51
是啊！可是得出来的每段值可以太多了，最后一个点得不到，也不知道为什么？总是出错！

楼主，SSGET部分的，为什么要这样写：

1. (ssget '((8 . "0")(-4 . "<or") (0 . "CIRCLE") (0 . "ARC") (0 . "LINE") (-4 . "or>")))

(ssget '((8 . "0")(-4 . "<or") (0 . "CIRCLE") (0 . "ARC") (0 . "LINE") (-4 . "or>")))

而不是

1. (ssget '((8 . "0")(0 . "line,circle,arc")))

(ssget '((8 . "0")(0 . "line,circle,arc")))

xtdwynij

newer 发表于 2013-8-25 22:14
楼主，SSGET部分的，为什么要这样写：

经验不足，不知道还可以这样写的！！都是有空的时候才写的！谢谢指点！

newer

xtdwynij 发表于 2013-8-25 22:25
经验不足，不知道还可以这样写的！！都是有空的时候才写的！谢谢指点！

那以后就能记住了吧。

你这个问题，你想等分圆弧，然后在等分点位置再断开一段？

如果你不用程序，在CAD，自己手工画，你要怎么做？

xtdwynij

newer 发表于 2013-8-25 22:41
那以后就能记住了吧。

你这个问题，你想等分圆弧，然后在等分点位置再断开一段？

记得了，教一点就学一点！呵呵！用多段线或者圆在等分点上画。然后再统一删除。不过这样很麻烦！如果这样来生成程序的话也会慢一点！

Free-Lancer

前几天刚有过讨论等分圆弧的，也留一个缺口

newer

xtdwynij 发表于 2013-8-25 22:45
记得了，教一点就学一点！呵呵！用多段线或者圆在等分点上画。然后再统一删除。不过这样很麻烦！如果这样 ...

这是一种思路，也是一种编程方法，能让CAD做的让他做，免去你很多计算。能解决你这问题的方法有多种，效率都应该一样。

一个思路，找到等分点，点上画圆，然后TRIM,或BREAK.

xtdwynij

Free-Lancer 发表于 2013-8-25 22:50
前几天刚有过讨论等分圆弧的，也留一个缺口

各个圆弧上的点我都能够得出来，但总得觉得太慢了，还是生成较快！这个就是用来生成的，但终点我就得不到了！

xtdwynij

假如用生成来完成的话要怎么搞呢？

newer

xtdwynij 发表于 2013-8-26 10:46
假如用生成来完成的话要怎么搞呢？

那你手工用生成的办法，在CAD下面你要怎么做？