命令pedit实现的连接LINE/ARC到POLYLINE的代码

admin1

[code]下面是使用命令pedit实现的连接LINE/ARC到POLYLINE的代码：

[mw_shl_code=cpp,true]//-----------------------------------------------------------------------------
//----- acrxEntryPoint.cpp
//-----------------------------------------------------------------------------
#include "StdAfx.h"
#include "acedCmdNF.h"
#include "resource.h"
//-----------------------------------------------------------------------------
#define szRDS _RXST("")
//-----------------------------------------------------------------------------
//----- ObjectARX EntryPoint
class CMyJoinApp : public AcRxArxApp {

public:
  CMyJoinApp() : AcRxArxApp() {}
  virtual AcRx::AppRetCode On_kInitAppMsg(void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kInitAppMsg(pkt);
    return (retCode);
  }
  virtual AcRx::AppRetCode On_kUnloadAppMsg(void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kUnloadAppMsg(pkt);
    return (retCode);
  }
  virtual void RegisterServerComponents() {}

  static void RivilisMyJoin() {
    ads_name en1;  ads_point p;
    while (acedEntSel(_T("\nSelect first segment: "), en1, p) == RTNORM)
    {
      bool bConvertToPoly = false;
      AcDbObjectId id1; acdbGetObjectId(id1, en1);
      if (id1.objectClass() == AcDbLine::desc() ||
          id1.objectClass() == AcDbArc::desc())
      {
        bConvertToPoly = true;
      }
      ads_name en2;
      if (acedEntSel(_T("\nSelect next segment: "), en2, p) == RTNORM)
      {
        if (bConvertToPoly)
          acedCommandS(RTSTR, _T("_PEDIT"), RTENAME, en1, RTSTR, _T("_YES"), RTSTR, _T("_Join"),
            RTENAME, en2, RTSTR, _T(""), RTSTR, _T(""), RTNONE);
        else
          acedCommandS(RTSTR, _T("_PEDIT"), RTENAME, en1, RTSTR, _T("_Join"),
            RTENAME, en2, RTSTR, _T(""), RTSTR, _T(""), RTNONE);
      }
    }
  }
};

//-----------------------------------------------------------------------------
IMPLEMENT_ARX_ENTRYPOINT(CMyJoinApp)

ACED_ARXCOMMAND_ENTRY_AUTO(CMyJoinApp, Rivilis, MyJoin, MyJoin, ACRX_CMD_MODAL, NULL)[/mw_shl_code]


下面是不用命令实现的连接LINE/ARC到POLYLINE的代码

本帖隐藏的内容
[mw_shl_code=cpp,true]//-----------------------------------------------------------------------------
//----- acrxEntryPoint.cpp
//-----------------------------------------------------------------------------
#include "StdAfx.h"
#include "resource.h"

//-----------------------------------------------------------------------------
#define szRDS _RXST("")

//-----------------------------------------------------------------------------
//----- ObjectARX EntryPoint
class CJoinToPlineApp : public AcRxArxApp {

public:
  CJoinToPlineApp () : AcRxArxApp () {}

  virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kInitAppMsg (pkt) ;
    return (retCode) ;
  }

  virtual AcRx::AppRetCode On_kUnloadAppMsg (void *pkt) {
    AcRx::AppRetCode retCode = AcRxArxApp::On_kUnloadAppMsg (pkt) ;
    return (retCode) ;
  }

  virtual void RegisterServerComponents () {
  }

  static void JoinToPlineJoinToPline () {
    // Фильтр для выбора отрезков (LINE) и дуг (ARC)
    ACHAR* promptPtrs[] = {
      _T("\nSelect lines and arcs for join in poyline (ENTER - exit): "),
      _T("\nRemove lines and arcs from selection set: ")
    };

    ads_name ss;
    resbuf *rbFilter = acutBuildList(RTDXF0,_T("LINE,ARC"),RTNONE);
    int rc = acedSSGet(_T(":$"),promptPtrs,NULL,rbFilter,ss);
    acutRelRb(rbFilter);

    if (rc != RTNORM) return;

    AcDbObjectIdArray ids;
    if (ObjectIdArrayFromSelSet(ss, ids) != Acad::eOk) return;
    while (ids.length() > 0)
    {
      AcDbEntity *p = MakeJonedPoly(ids);
      if (p) {
        AcDbBlockTableRecordPointer pSpace(acdbCurDwg()->currentSpaceId(), AcDb::kForWrite);
        if (pSpace.openStatus() != Acad::eOk) return;
        pSpace->appendAcDbEntity(p);
        p->close();
      } else {
        acutPrintf(_T("\nError in data!"));
        return;
      }
    }

  }

  /// <summary>
  /// AcDbObjectIdArray from SelectionSet
  /// </summary>
  /// <param name="sset">SelectionSet</param>
  /// <param name="ids">AcDbObjectIdArray</param>
  /// <returns></returns>
  static Acad::ErrorStatus ObjectIdArrayFromSelSet(ads_name sset, AcDbObjectIdArray &ids)
  {
    Acad::ErrorStatus es = Acad::eOk;
    long nset = -1;
    if (acedSSLength(sset,&nset) != RTNORM) return Acad::eAmbiguousInput;
    ids.setLogicalLength(nset);
    ads_name en;
    AcDbObjectId id;
    for (long i=0; i < nset; i++) {
      if (acedSSName(sset,i,en) == RTNORM) {
        if ((es = acdbGetObjectId(id,en)) != Acad::eOk) return es;
        ids = id;
      }
    }
    return Acad::eOk;
  }

  /// <summary>
  /// Create polyline from lines and arcs.
  /// Those ids will remove from input array
  /// </summary>
  /// <param name="ids">Array of id's</param>
  /// <param name="FUZZ">The accuracy of determining the distance between points</param>
  /// <returns></returns>
  static AcDbPolyline* MakeJonedPoly(
    AcDbObjectIdArray &ids,
    double FUZZ = AcGeContext::gTol.equalPoint())
  {
    AcDbPolyline *p = new AcDbPolyline();
    p->setDatabaseDefaults();
    AcDbObjectId idFirst = ids[0];
    AcGePoint3d nextPt = AcGePoint3d::kOrigin;
    AcGePoint3d prevPt = AcGePoint3d::kOrigin;

    AcDbObjectPointer<AcDbCurve> c(idFirst,AcDb::kForRead);
    if (c.openStatus() == Acad::eOk) {
      AcGePoint3d ptStart, ptEnd;
      c->getStartPoint(ptStart); c->getEndPoint(ptEnd);
      p->addVertexAt(0, asPnt2d(asDblArray(ptStart)), BulgeFromArc(c, false), 0, 0);
      p->addVertexAt(1, asPnt2d(asDblArray(ptEnd)), 0, 0, 0);
      nextPt = ptEnd;
      prevPt = ptStart;
    }

    ids.remove(idFirst);
    int prevCnt = ids.length() + 1;

    while (ids.length() > 0 && ids.length() < prevCnt)
    {
      prevCnt = ids.length();
      for (int i = 0; i < ids.length(); i++) {
        AcDbObjectId id = ids;
        AcDbObjectPointer<AcDbCurve> cv(id,AcDb::kForRead);
        if (cv.openStatus() == Acad::eOk) {
          AcGePoint3d ptStart, ptEnd;
          cv->getStartPoint(ptStart); cv->getEndPoint(ptEnd);
          if (ptStart.distanceTo(nextPt) < FUZZ || ptEnd.distanceTo(nextPt) < FUZZ) {
            double bulge = BulgeFromArc(cv, ptEnd.distanceTo(nextPt) < FUZZ);
            p->setBulgeAt(p->numVerts() - 1, bulge);
            if (ptStart.distanceTo(nextPt) < FUZZ)
              nextPt = ptEnd;
            else
              nextPt = ptStart;
            p->addVertexAt(p->numVerts(), asPnt2d(asDblArray(nextPt)), 0, 0, 0);
            ids.remove(id);
            break;
          } else if (ptStart.distanceTo(prevPt) < FUZZ || ptEnd.distanceTo(prevPt) < FUZZ) {
            double bulge = BulgeFromArc(cv, ptStart.distanceTo(prevPt) < FUZZ);
            if (ptStart.distanceTo(prevPt) < FUZZ)
              prevPt = ptEnd;
            else
              prevPt = ptStart;
            p->addVertexAt(0, asPnt2d(asDblArray(prevPt)), bulge, 0, 0);
            ids.remove(id);
            break;
          }
        }
      }
    }
    if (p->numVerts() == 0) {
      delete p;  return NULL;
    }  else  {
      return p;
    }
  }

  /// <summary>
  /// Getting bulge of curve
  /// </summary>
  /// <param name="c">AcDbCurve pointer</param>
  /// <param name="clockwise">direction.</param>
  /// <returns></returns>
  static double BulgeFromArc(AcDbCurve *c, bool clockwise)
  {
    double bulge = 0.0;
    AcDbArc *a = AcDbArc::cast(c);
    if (a == NULL) return bulge;

    double newStart =
      (a->startAngle() > a->endAngle()) ?
      (a->startAngle() - 8 * atan(1.0)) :
      (a->startAngle());

    bulge = tan((a->endAngle() - newStart) / 4.0);
    if (clockwise) bulge = -bulge;
    return bulge;
  }
} ;

//-----------------------------------------------------------------------------
IMPLEMENT_ARX_ENTRYPOINT(CJoinToPlineApp)
ACED_ARXCOMMAND_ENTRY_AUTO(CJoinToPlineApp, JoinToPline, JoinToPline, JoinToPline, ACRX_CMD_MODAL, NULL)[/mw_shl_code][/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=7003][color=Red]法拉利膜材中国代理商 - 膜结构网[/color][/size][/url]

美卡膜材代理商

美卡膜材中的PVDF（聚偏二氟乙烯）膜材是一种在建筑、环保、能源等多个领域有广泛应用的高性能材料。以下是对美卡PVDF膜材的详细介绍：
[b]一、公司背景[/b]
美卡膜材可能由深圳市美卡工业材料有限公司等类似企业生产，这些企业通常集研发、生产、销售于一体，专注于生产包括PTFE、PVDF等在内的多种建筑和环境领域膜材料。它们从国外引进先进的膜材生产设备，采用当前先进的生产工艺和科学管理模式，确保产品质量的卓越性。
[b]二、PVDF膜材特点[/b]
自洁性能：PVDF膜材具有优异的自洁性能，其表面涂层能有效抵抗灰尘和污物的附着，通过雨水冲刷即可保持清洁，减少维护成本。
光学性能：PVDF膜材对自然光的透射率较高，同时能滤除大部分紫外线，防止内部物品褪色。其透射光在结构内部产生均匀的漫射光，无阴影、无眩光，具有良好的显色性。
防火性能：PVDF膜材具有卓越的阻燃和耐高温性能，能满足建筑材料的防火需求。
保温性能：单层PVDF膜材料的保温性能与砖墙相当，甚至优于玻璃，有助于调节建筑内部温度。
力学性能：PVDF膜材抗冲击强度高、耐磨耗、耐蠕变、韧性好，是氟塑料中最强韧的一种材料。
[b]三、应用领域[/b]
美卡PVDF膜材广泛应用于以下领域：
大型场馆：如体育场、展览馆等，其高强度和耐候性使其成为大型建筑结构的理想选择。
建筑业：用于各类建筑的屋顶、墙面等，提供美观、耐用且功能强大的建筑材料。
环保领域：在废水处理、海水淡化等环保项目中，PVDF膜材的耐腐蚀性和耐高温性使其能够应对复杂的环境条件。
能源领域：在太阳能光伏板等领域，PVDF膜材的高透光性和自洁性有助于提高能源转换效率并延长设备使用寿命。
[b]四、产品系列与定制服务[/b]
美卡PVDF膜材可能包括多个型号，如K085等，以满足不同客户的需求。此外，公司还提供定制服务，根据客户的具体要求进行膜材的生产和加工，确保产品的适用性和性能。
[b]五、总结[/b]
美卡PVDF膜材以其优异的性能、广泛的应用领域和定制化的服务赢得了市场的认可。在未来的发展中，随着科技的进步和人们对建筑材料性能要求的提高，美卡PVDF膜材将继续发挥其独特优势，为更多领域提供高性能的建筑材料解决方案。