请高手们指点下。怎样取得多义线的各各端点坐标、若有弧的话求其弧的中心坐标。谢谢

nxchenjk

请高手们指点下。怎样取得多义线的各各端点坐标、若有弧的话求其弧的中心坐标。谢谢

highflybird

lisp文件., 顶点坐标 的组码为10

zzl9105

highflybird 发表于 2011-9-2 23:23
很久以前写的了。

简单点的，有没有求得一根直线，或者多段折线的两个端点的坐标，注意只是两端点坐标，如何取得，谢谢

GSD

这个好，感谢分享源码。

highflybird

很久以前写的了。

1. ;;;******************************************************
   
2. 
   
3. ;;;一个求多义线各段参数(如果是弧段则有半径弧长)的lisp程序
   
4. ;;;编号  1:凸度，2:弦长或直段长，3:半径，4:弧长，5:圆心--
   
5. ;;;加载程序，运行bulge，则显示上述参数-------------------
   
6. (defun C:Bulge (/        sel        ent        lst        obj        vex        ifclose
   
7.                 i        par        1stPt        EndPt        judge        tu        pt1
   
8.                 pt2        dis        radius        h        h1        half-angle
   
9.                 arc-length        pa        cen
   
10.                )
    
11. 
    
12.   (if (setq sel (ssget '((0 . "LWPOLYLINE"))))
    
13.     (progn
    
14.       (setq ent (ssname sel 0))
    
15.       (setq lst (entget ent))
    
16.       (setq obj (vlax-ename->vla-object ent))
    
17.       (setq vex (cdr (assoc 90 lst)))
    
18.       (setq ifclose (cdr (assoc 70 lst)))
    
19.       (setq i        0
    
20.             par        nil
    
21.       )
    
22.       (setq 1stPt (vlax-Curve-GetPointAtParam ent 0))
    
23.       (setq EndPt (vlax-Curve-GetPointAtParam ent (1- vex)))
    
24.       (if (or (equal 1stPt EndPt 1e-8) (= ifclose 0))
    
25.         (setq vex (1- vex))
    
26.       )
    
27.       (repeat vex
    
28.         (setq tu (vla-GetBulge obj i))
    
29.         (setq pt1 (vlax-Curve-GetPointAtParam ent i))
    
30.         (if (and (= i (1- vex)) judge)
    
31.           (setq pt2 (vlax-Curve-GetPointAtParam ent 0))
    
32.           (setq pt2 (vlax-Curve-GetPointAtParam ent (1+ i)))
    
33.         )
    
34.         (setq dis (distance pt1 pt2))
    
35.         (if (/= tu 0)
    
36.           (progn
    
37.             (setq radius (/ (* (1+ (* tu tu)) dis 0.25) (abs tu)))
    
38.             (setq h  (* dis (abs tu) 0.5)
    
39.                   h1 (- radius h)
    
40.             )
    
41.             (setq half-angle (atan (/ dis 2) h1))
    
42.             (setq arc-length (* 2 half-angle radius))
    
43.             (setq cen (midp pt1 pt2))
    
44.             (setq cen (polar cen
    
45.                              (+        (angle pt1 pt2)
    
46.                                 (if (or        nil
    
47.                                         (and (> h1 0) (> tu 0))
    
48.                                         (and (< h1 0) (< tu 0))
    
49.                                     )
    
50.                                   (* pi 0.5)
    
51.                                   (* pi -0.5)
    
52.                                 )
    
53.                              )
    
54.                              (abs h1)
    
55.                       )
    
56.             )
    
57.             (setq pa (list tu dis radius arc-length cen))
    
58.             (setq par (cons pa par))
    
59.           )
    
60.           (progn
    
61.             (setq pa (list tu dis))
    
62.             (setq par (cons pa par))
    
63.           )
    
64.         )
    
65.         (setq i (1+ i))
    
66.       )
    
67.       (setq par (reverse par))
    
68.       (princ "\n下面为此曲线的各段列表,3,4,5编号为弧段才有:")
    
69.       (princ "\n1:凸度 2:弦长(或直线长) 3:半径 4:弧长 5:圆心")
    
70.       (foreach n par
    
71.         (princ "\n")
    
72.         (princ n)
    
73.       )
    
74.       (princ)
    
75.     )
    
76.     (alert "你没有选中物体或者选择的不是多义线!")
    
77.   )
    
78.   (princ)
    
79. )
    
80. ;;;******************************************************

;;;******************************************************<br /> <br /> ;;;一个求多义线各段参数(如果是弧段则有半径弧长)的lisp程序<br /> ;;;编号  1:凸度，2:弦长或直段长，3:半径，4:弧长，5:圆心--<br /> ;;;加载程序，运行bulge，则显示上述参数-------------------<br /> (defun C:Bulge (/        sel        ent        lst        obj        vex        ifclose<br />                 i        par        1stPt        EndPt        judge        tu        pt1<br />                 pt2        dis        radius        h        h1        half-angle<br />                 arc-length        pa        cen<br />                )<br /> <br />   (if (setq sel (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq ent (ssname sel 0))<br />       (setq lst (entget ent))<br />       (setq obj (vlax-ename->vla-object ent))<br />       (setq vex (cdr (assoc 90 lst)))<br />       (setq ifclose (cdr (assoc 70 lst)))<br />       (setq i        0<br />             par        nil<br />       )<br />       (setq 1stPt (vlax-Curve-GetPointAtParam ent 0))<br />       (setq EndPt (vlax-Curve-GetPointAtParam ent (1- vex)))<br />       (if (or (equal 1stPt EndPt 1e-8) (= ifclose 0))<br />         (setq vex (1- vex))<br />       ) <br />       (repeat vex<br />         (setq tu (vla-GetBulge obj i))<br />         (setq pt1 (vlax-Curve-GetPointAtParam ent i))<br />         (if (and (= i (1- vex)) judge)<br />           (setq pt2 (vlax-Curve-GetPointAtParam ent 0))<br />           (setq pt2 (vlax-Curve-GetPointAtParam ent (1+ i)))<br />         )<br />         (setq dis (distance pt1 pt2))<br />         (if (/= tu 0)<br />           (progn<br />             (setq radius (/ (* (1+ (* tu tu)) dis 0.25) (abs tu)))<br />             (setq h  (* dis (abs tu) 0.5)<br />                   h1 (- radius h)<br />             )<br />             (setq half-angle (atan (/ dis 2) h1))<br />             (setq arc-length (* 2 half-angle radius))<br />             (setq cen (midp pt1 pt2))<br />             (setq cen (polar cen<br />                              (+        (angle pt1 pt2)<br />                                 (if (or        nil<br />                                         (and (> h1 0) (> tu 0))<br />                                         (and (< h1 0) (< tu 0))<br />                                     )<br />                                   (* pi 0.5)<br />                                   (* pi -0.5)<br />                                 )<br />                              )<br />                              (abs h1)<br />                       )<br />             )<br />             (setq pa (list tu dis radius arc-length cen))<br />             (setq par (cons pa par))<br />           )<br />           (progn<br />             (setq pa (list tu dis))<br />             (setq par (cons pa par))<br />           )<br />         )<br />         (setq i (1+ i))<br />       )<br />       (setq par (reverse par))<br />       (princ "\n下面为此曲线的各段列表,3,4,5编号为弧段才有:")<br />       (princ "\n1:凸度 2:弦长(或直线长) 3:半径 4:弧长 5:圆心")<br />       (foreach n par<br />         (princ "\n")<br />         (princ n)<br />       )<br />       (princ)<br />     )<br />     (alert "你没有选中物体或者选择的不是多义线!")<br />   )<br />   (princ)<br /> )<br /> ;;;******************************************************

nxchenjk

谢谢你的出手。呵呵

awd37

谢谢。。。。

yixinexin

支持一下!学习了，谢谢版主大大

SLC-Wing

学习了！哈哈！！！

qyming

学习了，啥。。。。

insufficient

很有用 非常感谢

beigoong

学习了学习了