ARX实例代码 --- 一些常用的对象转字符串函数

LoveArx

1.   /*Utils*/
   
2. //对象ID转字符串
   
3.   CString getObjectIdToStr(const AcDbObjectId& id)
   
4.     {
   
5.     CString str = _T("");
   
6.     ads_name ent;
   
7.     acdbGetAdsName(ent, id);
   
8.     str.Format(_T("%lx"), ent[0]);
   
9.     return str;
   
10.     }
    
11. //对象句柄转字符串
    
12.   CString objToHandleStr(const AcDbObject* obj)
    
13.     {
    
14.     ASSERT(obj != NULL);
    
15.     AcDbHandle handle;
    
16.     obj->getAcDbHandle(handle);
    
17.     TCHAR tmpStr[256];
    
18.     handle.getIntoAsciiBuffer(tmpStr);
    
19.     CString str = tmpStr;
    
20.     return str;
    
21.     }
    
22.   CString intDbIdToStr(const Adesk::IntDbId intVal)
    
23.     {
    
24.     CString str = _T("");
    
25.     #if !defined(_WIN64) && !defined (_AC64)
    
26.       str.Format(_T("%d"), intVal);
    
27.     #else
    
28.       str.Format(_T("%I64d"), intVal);
    
29.     #endif
    
30.     return str;
    
31.     }
    
32. //布尔值转字符串
    
33.   CString booleanToStr(bool b)
    
34.   {
    
35.     CString str = _T("");
    
36.     if (b)
    
37.       str = _T("True");
    
38.     else
    
39.       str = _T("False");
    
40. 
    
41.     return str;
    
42.   }
    

  /*Utils*/<br /> //对象ID转字符串<br />   CString getObjectIdToStr(const AcDbObjectId& id)<br />     {<br />     CString str = _T("");<br />     ads_name ent;<br />     acdbGetAdsName(ent, id);<br />     str.Format(_T("%lx"), ent[0]);<br />     return str;<br />     }<br /> //对象句柄转字符串<br />   CString objToHandleStr(const AcDbObject* obj)<br />     {<br />     ASSERT(obj != NULL);<br />     AcDbHandle handle;<br />     obj->getAcDbHandle(handle);<br />     TCHAR tmpStr[256];<br />     handle.getIntoAsciiBuffer(tmpStr);<br />     CString str = tmpStr;<br />     return str;<br />     }<br />   CString intDbIdToStr(const Adesk::IntDbId intVal)<br />     {<br />     CString str = _T("");<br />     #if !defined(_WIN64) && !defined (_AC64)<br />       str.Format(_T("%d"), intVal);<br />     #else<br />       str.Format(_T("%I64d"), intVal);<br />     #endif<br />     return str;<br />     }<br /> //布尔值转字符串<br />   CString booleanToStr(bool b)<br />   {<br />     CString str = _T("");<br />     if (b)<br />       str = _T("True");<br />     else<br />       str = _T("False");<br /> <br />     return str;<br />   }<br />

游客，如果您要查看本帖隐藏内容请回复

aeo

我想 lisp传一个 vbobject 给arx,我希望和lisp 的princ 一样转成字符形式。
怎么做不崩溃?

LoveArx

aeo 发表于 2016-8-5 21:27
我想 lisp传一个 vbobject 给arx,我希望和lisp 的princ 一样转成字符形式。
怎么做不崩溃?

VB什么对象？
已经传给LISP了？ 类型是什么？

819534890

good good.

革天明

谢谢楼主分享

zjy2999

学习！！！！！

q1355188058

正需要，支持楼主大人了！

GFspringwillow

学习学习努力学习代码

w15994259099

好代码，谢谢楼主的无私奉献!

URD911

收藏备用  谢谢了

炫翔

看看老大的思路

QiaoCheng

谢谢分享，回复学习

splimo

感谢分享，正在学习中。。。。。。

xinxirong

0000000000000000000000000000000000000000000

ARX2014

我也来学习学习是怎么回事