求一文字上相镜像 文字的位子不变的lisp

wxa123wll

求一位子上下镜像的lisp，，我把文字改为对中对其，，在用特性选项吧角度改为90度，，可是文字的位子就跑偏了，，，啪啪的，，不给力呀，，！

wxa123wll

我找到了，，，，用et的文本旋转功能就可以了，，

wxa123wl

{:soso_e120:}这是我自问自答的节奏呀！哈哈

st788796

有个文本对齐命令，可以修改对齐方式位置不变

wxa123wl

st788796 发表于 2014-2-20 17:49
有个文本对齐命令，可以修改对齐方式位置不变

呵呵，，我找到一个cad自带的，，

void changeTextInnerAlign()
{
  //使用以下代码可以更换文本对齐方式,而不改变文字位置:
  ads_name name,ent;
  AcDbEntity *pObj;
  AcDbObjectId ObjId;
  long length=0;
  
acutPrintf(_T("\n选择需要对齐的文本实体："));
if(acedSSGet(NULL,NULL,NULL,NULL,name)!=RTNORM) return;
acedSSLength(name,&length);

ArxDbgUiPrKeyWordDef prAlignType(_T("修改后的对齐方式[左对齐(L)/水平居中(M)/右对齐(R)]"),
   _T("L M R"), _T("L"));
if (prAlignType.go() != ArxDbgUiPrBase::kOk)
return ;
CString Justify;
if (prAlignType.isKeyWordPicked(_T("L")))
   Justify = "左对齐";
else if (prAlignType.isKeyWordPicked(_T("M")))
   Justify = "水平居中";
else if (prAlignType.isKeyWordPicked(_T("R")))
   Justify = "右对齐";
else
{
   ASSERT(0);
   return ;
}

int i; for( i=0;i<length;i++)
{
   acedSSName(name,i,ent);
   acdbGetObjectId(ObjId,ent);
   acdbOpenObject(pObj,ObjId,AcDb::kForWrite,Adesk::kFalse);
  
   AcDbExtents extents1, extents2;
  
  
   if(pObj->isKindOf(AcDbText::desc()))//普通文本
   {
      AcDbText *pText=AcDbText::cast(pObj);
     
      pText->getGeomExtents(extents1);      
      if(Justify==_T("左对齐")) pText->setHorizontalMode(AcDb::kTextLeft);
      else if(Justify==_T("右对齐")) pText->setHorizontalMode(AcDb::kTextRight);
      else if(Justify==_T("水平居中")) pText->setHorizontalMode(AcDb::kTextCenter);
      else pText->setHorizontalMode(AcDb::kTextLeft);
      pText->setVerticalMode(AcDb::kTextBase);      
     
   }
   else if(pObj->isKindOf(AcDbMText::desc()))//多行文本
   {
      AcDbMText *pMText=AcDbMText::cast(pObj);
     
      pMText->getGeomExtents(extents1);   
      if(Justify==_T("左对齐"))
      {
         if(pMText->attachment()==AcDbMText::kTopCenter ||
            pMText->attachment()==AcDbMText::kTopRight)
            pMText->setAttachment(AcDbMText::kTopLeft);
         else if(pMText->attachment()==AcDbMText::kMiddleCenter ||
            pMText->attachment()==AcDbMText::kMiddleRight)
            pMText->setAttachment(AcDbMText::kMiddleLeft);
         else if(pMText->attachment()==AcDbMText::kBottomCenter ||
            pMText->attachment()==AcDbMText::kBottomRight)
            pMText->setAttachment(AcDbMText::kBottomLeft);
      }
      else if(Justify==_T("水平居中"))
      {
         if(pMText->attachment()==AcDbMText::kTopLeft ||
            pMText->attachment()==AcDbMText::kTopRight)
            pMText->setAttachment(AcDbMText::kTopCenter);
         else if(pMText->attachment()==AcDbMText::kMiddleLeft ||
            pMText->attachment()==AcDbMText::kMiddleRight)
            pMText->setAttachment(AcDbMText::kMiddleCenter);
         else if(pMText->attachment()==AcDbMText::kBottomLeft ||
            pMText->attachment()==AcDbMText::kBottomRight)
            pMText->setAttachment(AcDbMText::kBottomCenter);
      }
      else if(Justify==_T("右对齐"))
      {
         if(pMText->attachment()==AcDbMText::kTopLeft ||
            pMText->attachment()==AcDbMText::kTopCenter)
            pMText->setAttachment(AcDbMText::kTopRight);
         else if(pMText->attachment()==AcDbMText::kMiddleLeft ||
            pMText->attachment()==AcDbMText::kMiddleCenter)
            pMText->setAttachment(AcDbMText::kMiddleRight);
         else if(pMText->attachment()==AcDbMText::kBottomLeft ||
            pMText->attachment()==AcDbMText::kBottomCenter)
            pMText->setAttachment(AcDbMText::kBottomRight);
      }      
   }
   pObj->close();
  
   AcDbEntity *pEnt = NULL;
   acdbOpenObject(pEnt, ObjId, AcDb::kForWrite);
   if (pEnt == NULL)
      return;
   pEnt->getGeomExtents(extents2);
   AcGeVector3d vec = extents1.minPoint() - extents2.minPoint();
   pEnt->transformBy(AcGeMatrix3d::translation(vec));
   pEnt->close();
}
}
这是网上看到的，，貌似是vba的，，，可是不会用！

st788796

这是arx，非vba

wxa123wl

st788796 发表于 2014-2-20 21:03
这是arx，非vba

要怎么用呀，，，！！！

st788796

用内置命令