Topic: Display center point

[It's Alive!]

I don't see anything wrong with the code, , is this a modal dialog?

remove the ExtTools_test(void) from your .h and .cpp, you don't need it

[gnanapaul]

I don't see anything wrong with the code, , is this a modal dialog?

remove the ExtTools_test(void) from your .h and .cpp, you don't need it

Ok i had removed. I sent the program to your mail. It is modeless  dialog.

Please check it out...

Thanks...

Regards,

Paul G

[It's Alive!]

it seems that the zip was stripped by your email server, you might just attach it to a post here ( you can remove it later) .
FYI, I do not have VC6 nor Acad 2000 installed on my computer

[gnanapaul]

Hi Daniel,

OK...Thanks a lot...

Attaching my code snipt.

Code: [Select]

void CSampDialog::OnShowPoints()
{
    ads_name ss;
    if( RTNORM != acedSSGet(_T("P"),NULL,NULL,NULL,ss)) 
          AfxMessageBox("Error Here itself");
    return;

    AcDbObjectIdArray ids;
    if(CSampDialog::SelectionSetToObjectIds(ids,ss) != Acad::eOk)
AfxMessageBox("objectId");
    return;

for(size_t i = 0; i < ids.length() ; i++)
    {
AcDbEntity* pObj = NULL;
if(acdbOpenObject(pObj,ids[i],AcDb::kForRead) == Acad::eOk)
{
AcDbCircle* pCirc = AcDbCircle::cast(pObj);
if (pCirc !=NULL)
{
double dRadius = pCirc->radius();
AcGePoint3d ptCenter = pCirc->center();
acutPrintf(_T("\ncenter (%g,%g,%g) radius %g"),
ptCenter.x,ptCenter.y,ptCenter.z, dRadius);
}
pObj->close();
}
else
acutPrintf(_T("\nFailed to open the object."));
    }
acedSSFree(ss);
}

Acad::ErrorStatus CSampDialog::SelectionSetToObjectIds( AcDbObjectIdArray &setIds, ads_name ssname )
{
    long sslength;
    ads_name ent;
    acedSSLength(ssname,&sslength);
    for (long i = 0; i < sslength; i++)
    {
      AcDbObjectId oId;
      acedSSName(ssname, i, ent);
      if(acdbGetObjectId(oId, ent) == Acad::eOk)
        setIds.append(oId);
      else
        return Acad::eNullObjectId;
    }
    return Acad::eOk;
  }code in CSampDialog.h

Code: [Select]

class CSampDialog : public CDialog
{
public:
CSampDialog( CWnd* pParent = NULL );

void OnCopy2Excell(const char* pWhat, const AcDbObject* pDbObj);
afx_msg void OnShowPoints();
static Acad::ErrorStatus SelectionSetToObjectIds( AcDbObjectIdArray &setIds, ads_name ssname );

[It's Alive!]

I meant attach the zip to a post here 

your missing a few braces

Code: [Select]

void CSampDialog::OnShowPoints()
  {
    ads_name ss;
    if( RTNORM != acedSSGet(_T("P"),NULL,NULL,NULL,ss)) 
    {
      AfxMessageBox("Error Here itself");
      return;
    }

    AcDbObjectIdArray ids;
    if(CSampDialog::SelectionSetToObjectIds(ids,ss) != Acad::eOk)
    {
      AfxMessageBox("objectId");
      return;
    }

    for(size_t i = 0; i < ids.length() ; i++)
    {
      AcDbEntity* pObj = NULL;
      if(acdbOpenObject(pObj,ids[i],AcDb::kForRead) == Acad::eOk)
      {
        AcDbCircle* pCirc = AcDbCircle::cast(pObj);
        if (pCirc !=NULL)
        {
          double dRadius = pCirc->radius();
          AcGePoint3d ptCenter = pCirc->center();
          acutPrintf(_T("\ncenter (%g,%g,%g) radius %g"),
            ptCenter.x,ptCenter.y,ptCenter.z, dRadius);
        }
        pObj->close();
      }
      else
        acutPrintf(_T("\nFailed to open the object."));
    }
    acedSSFree(ss);
  }


[gnanapaul]

Ok...

I have attached here...

[gnanapaul]

Hi Daniel,

I thing the Error is in

Code: [Select]

void CSampDialog::OnShowPoints()
{
ads_name ss;
if( RTNORM != acedSSGet(_T("P"),NULL,NULL,NULL,ss))

[gnanapaul]

Hi Daniel,

Please help me...

[It's Alive!]

try this

Code: [Select]

void CSampDialog::OnShowPoints()
{
AfxMessageBox("hi");
ads_name ss;
if( RTNORM != acedSSGet(_T("P"),NULL,NULL,NULL,ss))
{
if( RTNORM != acedSSGet(NULL,NULL,NULL,NULL,ss))
{
AfxMessageBox("Erroe Here itself");
return;
}
}

AcDbObjectIdArray ids;
if(CSampDialog::SelectionSetToObjectIds(ids,ss) != Acad::eOk)
{
AfxMessageBox("objectId");
return;
}

for(int i = 0; i < ids.length() ; i++)
{
AcDbEntity* pObj = NULL;
if(acdbOpenObject(pObj,ids[i],AcDb::kForRead) == Acad::eOk)
{
AcDbCircle* pCirc = AcDbCircle::cast(pObj);
if (pCirc !=NULL)
{
double dRadius = pCirc->radius();
AcGePoint3d ptCenter = pCirc->center();
acutPrintf(_T("\ncenter (%g,%g,%g) radius %g"),
ptCenter.x,ptCenter.y,ptCenter.z, dRadius);
}
pObj->close();
}
else
acutPrintf(_T("\nFailed to open the object."));
}
acedSSFree(ss);
}


[It's Alive!]

"C:myfile.csv" should be "C:\\myfile.csv",

[gnanapaul]

yes...

It is working...  Thanks a lot...

But it is showing all circles property.

Not showing selected...

[It's Alive!]

not on mine, it's showing the same data twice though

[It's Alive!]

and at the command line

center (23.453598,20.164042,0.000000) radius 1.695061
center (14.396755,19.541202,0.000000) radius 2.117912

[gnanapaul]

yes...

Thanks a lot...

You are genius...

i never forget this help...

[It's Alive!]

I would add another button to allow the user to select the circles to export