天气与日历 切换到窄版

 找回密码
 立即注册
中国膜结构网
十大进口膜材评选 十大国产膜材评选 十大膜结构设计评选 十大膜结构公司评选
查看: 50|回复: 0

objcetArx按长度 选择线段

[复制链接]

该用户从未签到

主题

0

回帖

2912

积分

管理员

积分
2912
发表于 2024-6-22 09:46:18 | 显示全部楼层 |阅读模式
objcetArx 如何快速选择 长度大于多少的线段。 选择集里面那个那个组合是线段的长度?[code]ads_name sset, newss;
int result = acedSSGet(NULL, NULL, NULL, NULL, sset);
if (result != RTNORM) { return; }
Adesk::Int32 length = 0;
acedSSLength(sset, &length);
Acad::ErrorStatus es = Acad::eOk;
double dLength = 10.0; // 过滤线段的长度,假设为10米
acedSSAdd(NULL, NULL, newss);
for (int i = 0; i < length; i++)
{
    ads_name ename;
    acedSSName(sset, i, ename);
    AcDbObjectId objId = AcDbObjectId::kNull;
    es = acdbGetObjectId(objId, ename);
    if (es != Acad::eOk) { continue; }
    AcDbEntity* pEnt = NULL;
    es = acdbOpenObject(pEnt, objId, AcDb::kForRead);
    if (es != Acad::eOk) { continue; }
    if (pEnt->isKindOf(AcDbCurve::desc()))
    {
        AcDbCurve* pCurve = AcDbCurve::cast(pEnt);
        AcGePoint3d entPt;
        pCurve->getEndPoint(entPt);
        double length = 0.0;
        pCurve->getDistAtPoint(entPt, length);
        if (length >= dLength)
            acedSSAdd(ename, newss, newss);
        pCurve->close();
    }
    pEnt->close();
}
acedSSFree(sset);
acedSSSetFirst(newss, NULL); // 测试亮响
// ...
acedSSFree(newss);[/code]

 

 

 

 

objcetArx按长度 选择线段
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|中国膜结构网|中国膜结构协会|进口膜材|国产膜材|ETFE|PVDF|PTFE|设计|施工|安装|车棚|看台|污水池|中国膜结构网_中国空间膜结构协会

GMT+8, 2024-11-1 10:28 , Processed in 0.146378 second(s), 28 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表