(XD::Pnts:Perimeter)点表构成多边形的周长

st788796

2. 
   
3. (defun XD::Pnts:Perimeter (pts / dis)
   
4.   (apply (function +)
   
5.          (mapcar (function (lambda (p1 p2)
   
6.                              (distance p1 p2)
   
7.                            )
   
8.                  )
   
9.                  (cons (last pts) pts)
   
10.                  pts
    
11.          )
    
12.   )
    
13. )

<br /> (defun XD::Pnts:Perimeter (pts / dis)<br />   (apply (function +)<br />          (mapcar (function (lambda (p1 p2)<br />                              (distance p1 p2)<br />                            )<br />                  )<br />                  (cons (last pts) pts)<br />                  pts<br />          )<br />   )<br /> )

XDSoft

写法有很多

1、DIST函数计算

1. (defun XD::PNTS:Peremiter (pts)
   
2.   (apply
   
3.     '+
   
4.     (mapcar
   
5.       '(lambda (x)
   
6.          (apply
   
7.            'distance
   
8.            x
   
9.          )
   
10.        )
    
11.       (xd::list:snakepair pts)
    
12.     )
    
13.   )
    
14. )

(defun XD::PNTS:Peremiter (pts)<br />   (apply<br />     '+<br />     (mapcar<br />       '(lambda (x)<br />          (apply<br />            'distance<br />            x<br />          )<br />        )<br />       (xd::list:snakepair pts)<br />     )<br />   )<br /> )

2、getpropertyvalue 实体查询

1. (defun XD::PNTS:Peremiter (pts)
   
2.   (setq len (xdrx_getpropertyvalue (xdrx_polyline_make pts) "length"))
   
3.   (xdrx_entity_delete (entlast))
   
4.   len
   
5. )
   

(defun XD::PNTS:Peremiter (pts)<br />   (setq len (xdrx_getpropertyvalue (xdrx_polyline_make pts) "length"))<br />   (xdrx_entity_delete (entlast))<br />   len<br /> )<br />

3、使用ARX几何库查询（构建每段的AcGeLineSeg3d,然后SetCurvelist）

1. (defun XD::Pnts:Peremiter (pts)
   
2.   (setq g (xdge::constructor "kCompositeCrv3d")
   
3.         gl (mapcar
   
4.              '(lambda (x)
   
5.                 (xdge::constructor "kLineSeg3d" (car x) (cadr x))
   
6.               )
   
7.              (xd::list:snakepair pts)
   
8.            )
   
9.   )  (xdge::setpropertyvalue g "setcurvelist" gl)
   
10.   (setq len (xdge::getpropertyvalue g "length"))
    
11.   (xdge::free (list g gl))
    
12.   len
    
13. )
    

(defun XD::Pnts:Peremiter (pts)<br />   (setq g (xdge::constructor "kCompositeCrv3d")<br />         gl (mapcar<br />              '(lambda (x)<br />                 (xdge::constructor "kLineSeg3d" (car x) (cadr x))<br />               )<br />              (xd::list:snakepair pts)<br />            )<br />   )  (xdge::setpropertyvalue g "setcurvelist" gl)<br />   (setq len (xdge::getpropertyvalue g "length"))<br />   (xdge::free (list g gl))<br />   len<br /> )<br />

4、ARX几何库查询最新写法，直接点表构建AcGeCompositeCrv3d，使用几何库的好处是不仅仅可以求LENGTH，支持的几何量都可以查询，

1. (defun XD::Pnts:Peremiter(pts)
   
2.    (setq g (xdge::constructor "kCompositecrv3d" pts)
   
3.          len (xdge::getpropertyvalue g "length")
   
4.    )
   
5.    (xdge::free g)
   
6.    len
   
7. )
   
8. 
   

(defun XD::Pnts:Peremiter(pts)<br />    (setq g (xdge::constructor "kCompositecrv3d" pts)<br />          len (xdge::getpropertyvalue g "length")<br />    )<br />    (xdge::free g)<br />    len<br /> )<br /> <br />

5、ARX几何库查询最新写法变种（省略的变量赋值），API 2016.0609版本以后支持

1. (defun XD::Pnts:Peremiter(pts)
   
2.    (setq g (xdge::constructor "kCompositecrv3d" pts))
   
3.    (xdge::getpropertyvalue g "length")
   
4.    (xdge::free g)
   
5.    length
   
6. )
   
7. 
   

(defun XD::Pnts:Peremiter(pts)<br />    (setq g (xdge::constructor "kCompositecrv3d" pts))<br />    (xdge::getpropertyvalue g "length")<br />    (xdge::free g)<br />    length<br /> )<br /> <br />

6、getpropertyvalue 实体查询的变种（省略变量赋值）

1. (defun XD::PNTS:Peremiter (pts)
   
2.   (xdrx_getpropertyvalue (xdrx_polyline_make pts) "length")
   
3.   (xdrx_entity_delete (entlast))
   
4.   length
   
5. )
   

(defun XD::PNTS:Peremiter (pts)<br />   (xdrx_getpropertyvalue (xdrx_polyline_make pts) "length")<br />   (xdrx_entity_delete (entlast))<br />   length<br /> )<br />

上面代码顺序的过程，也是API发展的过程

st788796

XDSoft 发表于 2016-6-9 18:01
写法有很多

1、DIST函数计算

对了解xdapi很有帮助，1 楼是基本功

st788796

补充一句，一楼是按闭合线计算的，api是按点表本身（闭合或非闭合）计算，闭合使用xd::pnts:close预处理