（XDGE几何库应用）将圆转换成多段线圆

newer

问： 如何将圆实体转换多段线圆

答：使用XDRX API的 AcGe几何库，可以很方便的做到，

1. (defun c:cir->pline ()
   
2.   (if (setq e (car (xdrx_entsel "\n选取圆实体<退出>:" '((0 . "CIRCLE")))))
   
3.     (progn
   
4.       (setq g-cir (xdge::constructor e)) ;;构建圆的几何实体
   
5.       (setq g-pline (xdge::constructor "kCompositeCrv3d" g-cir));;构建多段线几何实体
   
6.       (if (xdrx_entity_handoverTo e g-pline) ;;将数据库圆实体和内存的几何实体交换，交换后数据库实体变成内存实体的类型，属性保留。
   
7.         (progn
   
8.           (xdrx_prompt "\n成功转换到多段线圆.")
   
9.           (xdrx_setpropertyvalue e "constantwidth" 0.5) ;;多段线加粗
   
10.         )
    
11.       )
    
12.       (xdge::free g-cir g-pline) ;;释放几何实体内存
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    
17. 
    

(defun c:cir->pline ()<br />   (if (setq e (car (xdrx_entsel "\n选取圆实体<退出>:" '((0 . "CIRCLE")))))<br />     (progn<br />       (setq g-cir (xdge::constructor e)) ;;构建圆的几何实体<br />       (setq g-pline (xdge::constructor "kCompositeCrv3d" g-cir));;构建多段线几何实体<br />       (if (xdrx_entity_handoverTo e g-pline) ;;将数据库圆实体和内存的几何实体交换，交换后数据库实体变成内存实体的类型，属性保留。<br />         (progn<br />           (xdrx_prompt "\n成功转换到多段线圆.")<br />           (xdrx_setpropertyvalue e "constantwidth" 0.5) ;;多段线加粗<br />         )<br />       )<br />       (xdge::free g-cir g-pline) ;;释放几何实体内存<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

上面构建几何PLINE实体的代码，也可以写成下面

1.       (setq g-pline (xdge::constructor "kCompositeCrv3d"));;构建多段线几何“空”实体
   
2. 
   
3.       (setq g-pline (xdge::setpropertyvalue g-pline "setcurvelist" g-cir));;添加圆（AcGeCircArc3d）几何实体到g-pline中。
   
4. 
   

      (setq g-pline (xdge::constructor "kCompositeCrv3d"));;构建多段线几何“空”实体<br /> <br />       (setq g-pline (xdge::setpropertyvalue g-pline "setcurvelist" g-cir));;添加圆（AcGeCircArc3d）几何实体到g-pline中。<br /> <br />

/db_自贡黄明儒_

还是要转成两个半圆吗？

newer

/db_自贡黄明儒_ 发表于 2017-7-28 11:29

两段弧线组成的PLINE线。

newer

/db_自贡黄明儒_ 发表于 2017-7-28 11:29

ARX 几何库 AcGeCompositeCrv3d 对象的构造函数接受AcGeCircArc3d对象做参数构造多段线的几何实体模型。