[弹指神通]：獲取復線點擊子段的信息（圓弧﹐直線﹐長度﹐起點﹐終點﹐圓心點）

舟自横

[php]
(defun hy_pickcoordSEG(ename pt / obj PP PA n1 n2 p1 p2 dis mp bulge gongao
                       rad centerp golist);;;獲取點擊子段的信息
  (setq obj (vlax-ename->vla-object ename)
         pp (vlax-curve-getclosestpointto obj (trans pT 1 0))
          pa (vlax-curve-getparamatpoint obj pp))
  (setq n1 (fix pa) n2 (fix (+ 1 pa)))
  (if (> n2 (length (massoc 10 (entget ename)))) (setq n2 0))
  (setq p1 (vlax-curve-getpointatparam obj n1)
        p2 (vlax-curve-getpointatparam obj n2)
        )
  (setq dis (distance p1 p2))
  (SETQ MP (MAPCAR '(LAMBDA (x y) (/ (+ x y) 2)) p1 p2))
  (if (/= 0 (setq bulge (vla-getbulge obj n1)));;凸度=弓高/(* 0.5 弦長)
    (progn
      (setq gongao (abs (* (/ dis 2) bulge)));;弓高
      (setq rad (/ (+ (expt gongao 2) (expt (/ dis 2) 2)) (* 2 gongao )));GET THE RADIUS
      (cond ((> 0 bulge)
                  (setq centerp (polar mp (- (angle p1 p2) (* 0.5 pi)) (- rad gongao))
                        golist (list (cons 0 "ARC")
                                     (CONS "STP" (LIST p2))
                                     (CONS "ENP" (LIST p1))
                                     (CONS "CEN" (list centerp))))
             )
            ((< 0 bulge)
                 (setq centerp (polar mp (+ (angle p1 p2) (* 0.5 pi)) (- rad gongao))
                       golist (list (cons 0 "ARC")
                                     (CONS "STP" (LIST p1))
                                     (CONS "ENP" (LIST p2))
                                     (CONS "CEN" (list centerp))))
           )
            )
    )
    (setq golist (list (cons 0 "LINE")
                       (CONS "LEN" dis)
                       (CONS "STP" (list p1))
                       (CONS "ENP" (list p2))))
             
  )
  GOLIST
  )
[/php]
測試﹕(defun c:tt() (setq en (entsel "\n選復線的子段:"))
                               (hy_pickcoordSEG(car en) (cadr en))
)
如果選中圓弧段返回
((0 . "ARC") ("STP" (14.7963 9.04745 0.0)) ("ENP" (10.6489 9.02818 0.0)) ("CEN" (12.7237 8.81554 0.0)))
"STP" 代表圓弧的起點
"ENP" 代表圓弧的終點
"CEN" 代表圓弧的圓心
如果選中直線段返回
((0 . "LINE") ("LEN" . 2.24709) ("STP" (3.9658 10.5263 0.0)) ("ENP" (5.95223 11.5768 0.0)))
"LEN" 代表直線段長度
"STP" 代表直線段起點
"ENP" 代表直線段終點

eachy

未严格测试

2. 
   
3. (defun getsubseg (obj p / pn pa p1 p2)
   
4.   (setq        pn (vlax-curve-getclosestpointto obj p)
   
5.         pa (fix (vlax-curve-getparamatpoint obj pn))
   
6.         p1 (vlax-curve-getpointatparam obj pa)
   
7.         p2 (vlax-curve-getpointatparam obj (1+ pa))
   
8.   )
   
9.   (if (zerop (vla-getbulge obj pa))
   
10.     (list '(0 . "LINE") (cons "LEN" (distance p1 p2)) p1 p2)
    
11.     (list '(0 . "ARC") (cons "CEN" (osnap p1 "cen")) p1 p2)
    
12.   )
    
13. )
    
14. (defun c:tt (/ e)
    
15.   (if (setq e (entsel "\nPick Pline: "))
    
16.     (getsubseg (vlax-ename->vla-object (car e)) (cadr e))
    
17.   )
    
18. )

<br /> (defun getsubseg (obj p / pn pa p1 p2)<br />   (setq        pn (vlax-curve-getclosestpointto obj p)<br />         pa (fix (vlax-curve-getparamatpoint obj pn))<br />         p1 (vlax-curve-getpointatparam obj pa)<br />         p2 (vlax-curve-getpointatparam obj (1+ pa))<br />   )<br />   (if (zerop (vla-getbulge obj pa))<br />     (list '(0 . "LINE") (cons "LEN" (distance p1 p2)) p1 p2)<br />     (list '(0 . "ARC") (cons "CEN" (osnap p1 "cen")) p1 p2)<br />   )<br /> )<br /> (defun c:tt (/ e)<br />   (if (setq e (entsel "\nPick Pline: "))<br />     (getsubseg (vlax-ename->vla-object (car e)) (cadr e))<br />   )<br /> )

舟自横

斑竹的思路是很不错的用OSNAP抓点确实要简便许多但是
这样做有一个缺点就是取得的圆弧段的起点和终点不一定是分解
后圆的起点,终点.不知道斑竹有没有考虑过圆弧的顺逆问题..
也就是说只返回两端点但是不能判断哪个是起点哪个是终点
我的程序主要功能是取得各个子段的信息从而可以方便重新模拟出复线图形
还有就是个人认为:总觉得用抓点取得圆心比不上用几何计算出来的有安全感..呵呵..
发现有不完善的一个BUG 当取得的点是最后一子段的话参数已经超出范围故出错..程序中应加判断取消这个错误

eachy

这样改一改

2. 
   
3. (defun getsubseg (obj p / pn pa p1 p2 pcen v)
   
4.   (setq        pn (vlax-curve-getclosestpointto obj (trans p 1 0))
   
5.         pa (fix (vlax-curve-getparamatpoint obj pn))
   
6.         p1 (vlax-curve-getpointatparam obj pa)
   
7.         p2 (vlax-curve-getpointatparam obj (1+ pa))
   
8.   )
   
9.   (if (zerop (vla-getbulge obj pa))
   
10.     (list '(0 . "LINE") (cons "LEN" (distance p1 p2)) p1 p2)
    
11.     (progn
    
12.       (setq v         (vlax-curve-getsecondderiv obj pa)
    
13.             pcen (mapcar '+ p1 v)
    
14.       )
    
15.       (if (not (equal (distance pcen p1) (distance pcen p2) 0.000001))
    
16.         (setq pcen (mapcar '- p1 v))
    
17.       )
    
18.       (list
    
19.         '(0 . "ARC")
    
20.         (cons "CEN" pcen)
    
21.         p1
    
22.         p2
    
23.       )
    
24.     )
    
25.   )
    
26. )
    
27. (defun c:tt (/ e l)
    
28.   (if (setq e (entsel "\nPick Pline: "))
    
29.     (progn
    
30.       (setq l (getsubseg (vlax-ename->vla-object (car e)) (cadr e)))
    
31.       (command ".line" (nth 2 l) (cdr (nth 1 l)) "")
    
32.     )
    
33.   )
    
34. )

<br /> (defun getsubseg (obj p / pn pa p1 p2 pcen v)<br />   (setq        pn (vlax-curve-getclosestpointto obj (trans p 1 0))<br />         pa (fix (vlax-curve-getparamatpoint obj pn))<br />         p1 (vlax-curve-getpointatparam obj pa)<br />         p2 (vlax-curve-getpointatparam obj (1+ pa))<br />   )<br />   (if (zerop (vla-getbulge obj pa))<br />     (list '(0 . "LINE") (cons "LEN" (distance p1 p2)) p1 p2)<br />     (progn<br />       (setq v         (vlax-curve-getsecondderiv obj pa)<br />             pcen (mapcar '+ p1 v)<br />       )<br />       (if (not (equal (distance pcen p1) (distance pcen p2) 0.000001))<br />         (setq pcen (mapcar '- p1 v))<br />       )<br />       (list<br />         '(0 . "ARC")<br />         (cons "CEN" pcen)<br />         p1<br />         p2<br />       )<br />     )<br />   )<br /> )<br /> (defun c:tt (/ e l)<br />   (if (setq e (entsel "\nPick Pline: "))<br />     (progn<br />       (setq l (getsubseg (vlax-ename->vla-object (car e)) (cadr e)))<br />       (command ".line" (nth 2 l) (cdr (nth 1 l)) "")<br />     )<br />   )<br /> )

舟自横

这样圆弧的起点终点还是不对...圆弧的起点终点默认都是以逆时钟来画圆弧的..

eachy

是按 Pline 绘制的顺序，如果非要转换成 逆时针的，判断一下即可

舟自横

就是啊..呵呵..还是要判断的..圆弧生成的顺序和PLINE的顺序不一定是一致的..所以还是要判断凸度的正负来确定圆弧的顺逆..

eachy

最终方案
http://www.xdcad.net/forum/showthread.php?s=&threadid=469483