用AcedGrRead()函数实现一拖多

admin1

[img]https://images2015.cnblogs.com/blog/868538/201601/868538-20160112144708288-1087425322.gif[/img]

[code]实现代码：

#include "StdAfx.h"
#include "StdArx.h"
#include "..\..\Common\我的类\Arc.h"
#include <acedads.h>
#include "..\..\Common\Entity\LineUtil.h"
#include <geassign.h>
#include <dbents.h>
#include "..\..\Common\Others\ConvertUtil.h"
#include <gearc2d.h>
#include <dbcurve.h>
#include "..\..\Common\Interaction\SelectUtil.h"
#include "..\..\Common\Document\DwgDatabaseUtil.h"


void ZffMyProjectdrwarc()
{

　　AcDbEntity *pEntRef=NULL;
　　AcGePoint3d pickPoint;
　　AcDbBlockReference *pBlkRef=NULL;
　　AcDbObjectId blkDefId;
　　AcDbObjectIdArray blkRefIds;
　　int i,n=5;
　　int track=1,type;
　　ads_point pnt;
　　AcGePoint3d pt;
　　if (CSelectUtil::PromptSelectEntity(TEXT("\n选择块:"),AcDbBlockReference::desc(),pEntRef,pickPoint))
　　{
　　　　pBlkRef=AcDbBlockReference::cast(pEntRef);
　　　　blkDefId=pBlkRef->blockTableRecord();
　　　　pEntRef->close();
　　　　pBlkRef->close();
　　}
　　acedGetPoint(NULL,"\n请输入一点:",pnt);
　　pt.x=pnt[X];
　　pt.y=pnt[Y];
　　pt.z=pnt[Z];
　　AcGePoint2d pt12d=CConvertUtil::ToPoint2d(asPnt3d(pnt));
　　AcGePoint2d pt22d=CConvertUtil::ToPoint2d(pt);
　　AcDbObjectId lineId=CLineUtil::Add(asPnt3d(pnt),pt);
　　AcGeVector2d vec=pt22d-pt12d;
　　for (i=1;i<n+1;i++)
　　{
　　　　pBlkRef=new AcDbBlockReference(CConvertUtil::ToPoint3d(pt12d+i*vec/(n+1)),blkDefId);
　　　　blkRefIds.append(CDwgDatabaseUtil::PostToModelSpace(pBlkRef));
　　}
　　pBlkRef->close();

　　AcDbLine *pLine=NULL;
　　struct resbuf result;
　　while(track>0)
　　{
　　　　acedGrRead(track,&type,&result);
　　　　pt.x=result.resval.rpoint[X];
　　　　pt.y=result.resval.rpoint[Y];
　　　　pt.z=result.resval.rpoint[Z];
　　　　pt12d=CConvertUtil::ToPoint2d(asPnt3d(pnt));
　　　　pt22d=CConvertUtil::ToPoint2d(pt);
　　　　acdbOpenObject(pLine,lineId,AcDb::kForWrite);
　　　　pLine->setEndPoint(pt);
　　　　for (i=0;i<blkRefIds.length();i++)
　　　　{
　　　　　　acdbOpenObject(pBlkRef,blkRefIds[i],AcDb::kForWrite);
　　　　　　pBlkRef->setPosition(CConvertUtil::ToPoint3d(pt12d+(i+1)*(pt22d-pt12d)/(n+1)));
　　　　　　pBlkRef->close();
　　　　}

　　　　if (type==3)
　　　　{
　　　　　　track=0;
　　　　}
　　　　pLine->close();
　　}
　　AcGePoint2d ptOnArc;
　　AcDbObjectId arcId;
　　double startParam=0,endParam=0,paramInterval;
　　track=1;
　　while (track>0)
　　{
　　　　acedGrRead(track,&type,&result);
　　　　ptOnArc.x=result.resval.rpoint[X];
　　　　ptOnArc.y=result.resval.rpoint[Y];
　　　　if (ptOnArc.x!=pt.x||ptOnArc.y!=pt.y)
　　　　{
　　　　　　if (arcId.isNull())
　　　　　　{
　　　　　　　　acdbOpenObject(pLine,lineId,AcDb::kForWrite);
　　　　　　　　pLine->erase();
　　　　　　　　pLine->close();
　　　　　　　　arcId=CArc::Add(pt12d,pt22d,pt22d);
　　　　　　}
　　　　　　AcGeCircArc2d geArc(pt12d, ptOnArc, pt22d);
　　　　　　AcGePoint2d ptCenter = geArc.center();
　　　　　　double radius = geArc.radius();
　　　　　　AcGeVector2d vecStart(pt12d.x - ptCenter.x, pt12d.y - ptCenter.y);
　　　　　　AcGeVector2d vecEnd(pt22d.x - ptCenter.x, pt22d.y - ptCenter.y);
　　　　　　double startAngle = vecStart.angle();
　　　　　　double endAngle = vecEnd.angle();

　　　　　　AcDbArc *pArc2=new AcDbArc(CConvertUtil::ToPoint3d(ptCenter),radius,startAngle,endAngle);
　　　　　　AcGePoint3d ptclose;
　　　　　　pArc2->getClosestPointTo(CConvertUtil::ToPoint3d(ptOnArc),ptclose);
　　　　　　pArc2->close();
　　　　　　AcDbArc *pArc=NULL;
　　　　　　acdbOpenObject(pArc,arcId,AcDb::kForWrite);
　　　　　　if (CConvertUtil::ToPoint2d(ptclose).distanceTo(ptOnArc)<0.01)
　　　　　　{
　　　　　　　　pArc->setCenter(CConvertUtil::ToPoint3d(ptCenter));
　　　　　　　　pArc->setRadius(radius);
　　　　　　　　pArc->setStartAngle(startAngle);
　　　　　　　　pArc->setEndAngle(endAngle);
　　　　　　}
　　　　　　else
　　　　　　{
　　　　　　　　pArc->setCenter(CConvertUtil::ToPoint3d(ptCenter));
　　　　　　　　pArc->setRadius(radius);
　　　　　　　　pArc->setStartAngle(endAngle);
　　　　　　　　pArc->setEndAngle(startAngle);
　　　　　　}
　　　　　　AcDbCurve *pCurve=AcDbCurve::cast(pArc);
　　　　　　pCurve->getStartParam(startParam);
　　　　　　pCurve->getEndParam(endParam);
　　　　　　paramInterval=(endParam-startParam)/(n+1);
　　　　　　for (i=1;i<n+1;i++)
　　　　　　{
　　　　　　　　double param=startParam+i*paramInterval;
　　　　　　　　pCurve->getPointAtParam(param,pt);
　　　　　　　　acdbOpenObject(pBlkRef,blkRefIds[i-1],AcDb::kForWrite);
　　　　　　　　pBlkRef->setPosition(pt);
　　　　　　　　pBlkRef->close();
　　　　　　}
　　　　　　pCurve->close();
　　　　　　pArc->close();
　　　　　　if (type==3)
　　　　　　{
　　　　　　　　track=0;
　　　　　　}
　　　　}
　　}
}





AcDbObjectId CArc::Add(const AcGePoint2d &ptStart,const AcGePoint2d &ptOnArc,const AcGePoint2d &ptEnd)
{
AcGePoint3d ptOnArc1;
AcGeCircArc2d geArc(ptStart, ptOnArc, ptEnd);
AcGePoint2d ptCenter = geArc.center();
double radius = geArc.radius();
double tol=0.01;
// 计算起始和终止角度
AcGeVector2d vecStart(ptStart.x - ptCenter.x, ptStart.y - ptCenter.y);
AcGeVector2d vecEnd(ptEnd.x - ptCenter.x, ptEnd.y - ptCenter.y);
double startAngle = vecStart.angle();
double endAngle = vecEnd.angle();

AcDbArc *pArc=new AcDbArc(CConvertUtil::ToPoint3d(ptCenter), radius, startAngle, endAngle);
pArc->getClosestPointTo(CConvertUtil::ToPoint3d(ptOnArc),ptOnArc1);

if (CConvertUtil::ToPoint2d(ptOnArc1).distanceTo(ptOnArc)<tol)
{
return CDwgDatabaseUtil::PostToModelSpace(pArc);
}
else
{
AcDbArc *pArc2=new AcDbArc(CConvertUtil::ToPoint3d(ptCenter),radius,endAngle,startAngle);
delete pArc;
return CDwgDatabaseUtil::PostToModelSpace(pArc2);

}
}[/code]

jxmjg

  法拉利膜材作为一种高性能的建筑材料，在建筑、汽车及广告等多个领域有着广泛的应用。以下是对法拉利膜材型号、特点及优点的详细分析：
[img]http://www.mjgou.com/data/attachment/forum/202403/13/223041uiqmeujen4jjj6zv.jpg[/img]
[b]一、法拉利膜材型号[/b]
法拉利膜材有多种型号，包括但不限于以下几种：1302 S2 Flexlight Advanced：这是一种高性能IV型柔性复合膜材，以其卓越的透光性、耐久性和易维护性而受到青睐。942、1202 S2、1002 S2、902 S2、1212 S2、912 S2：这些型号同样属于法拉利膜材系列，各自具有不同的特性和适用范围，但具体特点需根据具体型号进一步分析。需要注意的是，法拉利膜材的型号可能随着产品更新换代而有所变化，具体型号及其特性请参考最新产品资料。
[img=860,1255]http://www.mjgou.com/data/attachment/forum/202403/13/223254bbblwlbvbvsbwlsl.jpg[/img]
[b]二、法拉利膜材特点[/b]
法拉利膜材的特点主要体现在以下几个方面：
1、高强度与耐用性：法拉利膜材采用高强度材料制成，具有良好的抗拉强度和撕裂强度，能够承受较大的外力作用而不易破损。耐用性强，能够在恶劣气候条件下保持稳定的性能，延长使用寿命。
2、透光性与美观性：部分型号如1302 S2 Flexlight Advanced具有高透光性，能够在保持室内光线充足的同时，提供清晰的视野。膜材表面平整光滑，色彩丰富多样，能够满足不同建筑和装饰需求，提升整体美观性。
3、轻质与灵活性：法拉利膜材重量较轻，便于运输和安装，能够降低施工成本和时间。膜材具有一定的柔韧性，能够适应各种复杂形状和结构的设计要求。
4、环保与可回收性：法拉利膜材符合环保要求，部分材料可回收利用，减少了对环境的影响。
[img]http://www.mjgou.com/data/attachment/forum/202403/13/223128owhn0099rrds5h5y.jpg[/img]
[b]三、法拉利膜材优点[/b]
法拉利膜材的优点主要体现在以下几个方面：
1、提升建筑性能：高强度与耐用性使得法拉利膜材能够提升建筑的稳定性和安全性，延长使用寿命。透光性与美观性使得建筑内部光线充足、视野开阔，同时提升整体美观度。
2、降低施工成本：轻质特性使得运输和安装成本降低，施工效率提高。膜材的柔韧性使得施工更加灵活多变，能够适应各种复杂地形和结构要求。
3、节能环保：部分材料可回收利用，符合环保要求，减少了对环境的影响。良好的透光性能够减少室内照明需求，降低能耗。
4、广泛应用领域：
法拉利膜材不仅适用于建筑领域（如体育设施、商业设施、文化设施、交通设施等），还广泛应用于汽车及广告领域（如高档车辆贴膜保护和装饰、广告招贴等），展现出其多功能的特性。

综上所述，法拉利膜材以其高强度、耐用性、透光性、美观性、轻质灵活性以及环保可回收性等优点，在建筑、汽车及广告等多个领域发挥着重要作用。具体型号的选择应根据实际需求和应用场景进行综合考虑。
[url=http://www.mjgou.com/forum-17-1.html][size=89168][color=Red]法拉利膜材中国代理商 - 膜结构网[/color][/size][/url]