传递给Lisp使用的三个进度条函数

Love-Lisp · 发表于 2013-8-5 19:56:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

传递给Lisp使用的三个进度条函数！
刚开始学arx，有问题之处请各位多多指教！

//进度条初始化
int ProgressInit(struct resbuf *rb)
{
if (rb == NULL)
{acdbFail(_T("\n参数太少"));
acedRetVoid();
return RTERROR;
}
ACHAR* str ;
//ACHAR *sPrompt;
if (rb->restype != RTSTR)
{
acdbFail(_T("\n第1个参数应为提示字串"));
acedRetVoid();
return RTERROR;
//sPrompt = str;
}
str = rb->resval.rstring;
rb = rb->rbnext;
if (rb == NULL)
{
acdbFail(_T("\n参数太少"));
acedRetVoid();
return RTERROR;
}
long nMaxPos;
if (rb->restype == RTLONG)
{
nMaxPos = rb->resval.rlong;
}
else
if (rb->restype == RTSHORT)
{
nMaxPos = long(rb->resval.rint);
}
else
{
acdbFail(_T("\n第2个参数应为整数"));
acedRetVoid();
return RTERROR;
}
if (rb->rbnext !=NULL)
{
acdbFail(_T("\n参数太多"));
acedRetVoid();
return RTERROR;
}
acedSetStatusBarProgressMeter(str,0,nMaxPos);
// TODO: Replace the following line by your returned value if any
acedRetVoid () ;
return (RSRSLT) ;
}
//设置进度条位置
int ProgressMeterPos (struct resbuf *rb)
{
if (rb == NULL)
{acdbFail(_T("\n参数太少"));
acedRetVoid();
return RTERROR;
}
long nPos;
if (rb->restype == RTLONG)
{
nPos = rb->resval.rlong;
}
else
if (rb->restype == RTSHORT)
{
nPos = long(rb->resval.rint) ;
}
else
{
acdbFail(_T("\n参数应为整数"));
acedRetVoid();
return RTERROR;
}
if (rb->rbnext !=NULL)
{
acdbFail(_T("\n参数太多"));
acedRetVoid();
return RTERROR;
}
acedSetStatusBarProgressMeterPos(nPos);
acedRetVoid () ;
return (RSRSLT) ;
}
//进度条终止
int ProgressDone (struct resbuf *rb)
{
if (rb != NULL)
{acdbFail(_T("\n参数太多"));
acedRetVoid();
return RTERROR;
}
acedRestoreStatusBar();
acedRetVoid () ;
return (RSRSLT) ;
}

//进度条初始化 
int ProgressInit(struct resbuf *rb) 
{ 
  if (rb == NULL) 
  {acdbFail(_T("\n参数太少")); 
  acedRetVoid(); 
  return RTERROR; 
  } 
   
  ACHAR* str ; 
  //ACHAR *sPrompt; 
  if (rb->restype != RTSTR) 
  { 
      acdbFail(_T("\n第1个参数应为提示字串")); 
      acedRetVoid(); 
      return RTERROR; 
      //sPrompt = str; 
 
  } 
  str = rb->resval.rstring; 
  rb = rb->rbnext; 
  if (rb == NULL) 
  { 
    acdbFail(_T("\n参数太少")); 
    acedRetVoid(); 
    return RTERROR; 
  } 
  long nMaxPos; 
  if (rb->restype == RTLONG) 
  { 
    
    nMaxPos = rb->resval.rlong; 
  } 
  else 
    if (rb->restype == RTSHORT) 
    { 
      nMaxPos = long(rb->resval.rint); 
    } 
    else   
    { 
      acdbFail(_T("\n第2个参数应为整数")); 
      acedRetVoid(); 
      return RTERROR; 
 
    } 
  if (rb->rbnext !=NULL) 
  { 
    acdbFail(_T("\n参数太多")); 
    acedRetVoid(); 
    return RTERROR; 
  } 
 
 
  acedSetStatusBarProgressMeter(str,0,nMaxPos); 
  // TODO: Replace the following line by your returned value if any 
  acedRetVoid () ; 
  return (RSRSLT) ; 
} 
 
//设置进度条位置 
int ProgressMeterPos (struct resbuf *rb) 
{ 
  if (rb == NULL) 
  {acdbFail(_T("\n参数太少")); 
  acedRetVoid(); 
  return RTERROR; 
  } 
  long nPos; 
  if (rb->restype == RTLONG) 
  { 
    nPos = rb->resval.rlong; 
  } 
  else 
    if (rb->restype == RTSHORT) 
    { 
      nPos = long(rb->resval.rint) ; 
    } 
    else   
    { 
      acdbFail(_T("\n参数应为整数")); 
      acedRetVoid(); 
      return RTERROR; 
 
    } 
  if (rb->rbnext !=NULL) 
  { 
    acdbFail(_T("\n参数太多")); 
    acedRetVoid(); 
    return RTERROR; 
  } 
  acedSetStatusBarProgressMeterPos(nPos); 
  acedRetVoid () ; 
  return (RSRSLT) ; 
 
} 
//进度条终止 
int ProgressDone (struct resbuf *rb) 
{ 
  if (rb != NULL) 
  {acdbFail(_T("\n参数太多")); 
  acedRetVoid(); 
  return RTERROR; 
  } 
    acedRestoreStatusBar(); 
    acedRetVoid () ; 
    return (RSRSLT) ; 
}

Free-Lancer · 发表于 2013-8-5 20:03:02

赞一个{:soso_e179:}

Lispboy · 发表于 2013-8-5 21:09:25

俺也顶一个，俺也想学ARX了。好学不，楼主。

XDSoft · 发表于 2013-8-5 21:19:19

一般情况下
int ProgressInit(struct resbuf *rb)

函数定义取LISP参数不要这样写，改成这样

int ProgressInit()
{
struct resbuf *rb=acedGetArgs();

or

resbuf *rb=ads_getargs();
.....
}

因为有些时候的定义外部函数，要限制C++函数不能带参数。

Love-Lisp · 发表于 2013-8-5 23:30:37

本帖最后由 Love-Lisp 于 2013-8-5 23:32 编辑

XDSoft 发表于 2013-8-5 21:19
一般情况下
int ProgressInit(struct resbuf *rb)

我这几个函数不是向导模式建立的，参数去掉后，编译通不过！不知道怎么办哦！请明示！谢谢老大指点！

XDSoft · 发表于 2013-8-5 23:48:43

Love-Lisp 发表于 2013-8-5 23:30
我这几个函数不是向导模式建立的，参数去掉后，编译通不过！不知道怎么办哦！请明示！谢谢老大指点！

你把定义外部函数的部分代码贴上来看看。

Love-Lisp · 发表于 2013-8-5 23:53:11

本帖最后由 Love-Lisp 于 2013-8-5 23:55 编辑

XDSoft 发表于 2013-8-5 23:48
你把定义外部函数的部分代码贴上来看看。

/* Here we define the array of function names and handlers. */
struct func_entry func_table[] =
{
{_T("LLRX-ProgressInit"), ProgressInit},
{_T("LLRX-Progress"), ProgressMeterPos},
{_T("LLRX-ProgressDone"), ProgressDone},
};
static int funcload();
static int dofun();
//加载自定义函数
static int funcload()
{
int i;
for (i = 0; i < ELEMENTS(func_table); i++) {
if (!acedDefun(func_table.func_name, (short)i))
return RTERROR;
}
return RTNORM;
}
//执行函数
static int dofun()
{
struct resbuf *rb;
int val;
/* Get the function code and check that it's within range.
(It can't fail to be, but paranoia doesn't hurt.) */
if ((val = acedGetFunCode()) < 0 || val >= ELEMENTS(func_table)) {
acdbFail(_T(/*MSG2*/"Received nonexistent function code."));
return RTERROR;
}
/* Fetch the arguments, if any. */
rb = acedGetArgs();
/* Call the handler and return its success-failure status. */
val = (*func_table[val].func)(rb);
acutRelRb(rb);
return val;
}

/* Here we define the array of function names and handlers. */ 
 struct func_entry func_table[] = 
{ 
    {_T("LLRX-ProgressInit"), ProgressInit}, 
  {_T("LLRX-Progress"), ProgressMeterPos}, 
  {_T("LLRX-ProgressDone"), ProgressDone}, 
  }; 
 
 
 
 
static int funcload(); 
static int dofun(); 
 
  //加载自定义函数 
static int funcload() 
{ 
  int i; 
 
  for (i = 0; i < ELEMENTS(func_table); i++) { 
    if (!acedDefun(func_table.func_name, (short)i)) 
      return RTERROR; 
  } 
  return RTNORM; 
} 
 
//执行函数 
static int dofun() 
{ 
    struct resbuf *rb; 
    int val; 
 
    /* Get the function code and check that it's within range. 
       (It can't fail to be, but paranoia doesn't hurt.) */ 
    if ((val = acedGetFunCode()) < 0 || val >= ELEMENTS(func_table)) { 
        acdbFail(_T(/*MSG2*/"Received nonexistent function code.")); 
        return RTERROR; 
    } 
 
    /* Fetch the arguments, if any. */ 
    rb = acedGetArgs(); 
 
    /* Call the handler and return its success-failure status. */ 
    val = (*func_table[val].func)(rb); 
    acutRelRb(rb); 
    return val; 
}

XDSoft · 发表于 2013-8-6 00:01:14

一般在主程序的On_kLoadDwgMsg消息处理的时候定义外部函数

virtual AcRx::AppRetCode On_kLoadDwgMsg (void *pkt)
{
AcRx::AppRetCode retCode =AcRxArxApp::On_kLoadDwgMsg (pkt) ;
LoadFunctions();
return AcRx::kRetOK;
}
AcRx::AppRetCode LoadFunctions()
{
//exportConstants(); //增加API 常量
int ret;
int i;
for (i = 0; i < ELEMENTS(func_table); i++)
{
ret = ads_defun(func_table.func_name, (short)i);
if (ret != RTNORM)
return AcRx::kRetError;
}
// UpdateDLRegistry("xdrx_api",func_table,55);
// acutPrintf(_T("\n加载API函数成功!"));
return AcRx::kRetOK;
}

Love-Lisp · 发表于 2013-8-6 08:51:51

XDSoft 发表于 2013-8-6 00:01
一般在主程序的On_kLoadDwgMsg消息处理的时候定义外部函数

不用向导方式，把进度条函数的struct resbuf *rb 参数去掉，我还是不知道咋改！下面是全部的定义代码，请看看如何改合适？

// (C) Copyright 2002-2005 by Autodesk, Inc.
//
// Permission to use, copy, modify, and distribute this software in
// object code form for any purpose and without fee is hereby granted,
// provided that the above copyright notice appears in all copies and
// that both that copyright notice and the limited warranty and
// restricted rights notice below appear in all supporting
// documentation.
//
// AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
// AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
// MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
// DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
// UNINTERRUPTED OR ERROR FREE.
//
// Use, duplication, or disclosure by the U.S. Government is subject to
// restrictions set forth in FAR 52.227-19 (Commercial Computer
// Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
// (Rights in Technical Data and Computer Software), as applicable.
//
//-----------------------------------------------------------------------------
//----- acrxEntryPoint.h
//-----------------------------------------------------------------------------
#include "StdAfx.h"
#include "adslib.h"
#include "resource.h"
//-----------------------------------------------------------------------------
#define szRDS _RXST("LLRX")
/* Utility definition to get an array's element count (at compile
time). For example:
int arr[] = {1,2,3,4,5};
...
printf("%d", ELEMENTS(arr));
would print a five. ELEMENTS("abc") can also be used to tell how
many bytes are in a string constant INCLUDING THE TRAILING NULL. */
//
#define ELEMENTS(array) (sizeof(array)/sizeof((array)[0]))
/* All the functions that we'll define will be listed in a single table,
together with the internal function that we call to handle each. The
functions all take a single argument (the resbuf that has the
arguments) and return an integer (RTNORM or RTERROR for good or bad
status). */
/* First, define the structure of the table: a string giving the AutoCAD name
of the function, and a pointer to a function returning type int. */
struct func_entry { TCHAR *func_name; int (*func) (struct resbuf *); };
/* Here we declare the functions that handle the calls; at the moment there are
two of them. */
/* Here we define the array of function names and handlers. */
struct func_entry func_table[] =
{
{_T("LLRX-ProgressInit"), ProgressInit},
{_T("LLRX-Progress"), ProgressMeterPos},
{_T("LLRX-ProgressDone"), ProgressDone},
};
static int funcload();
static int dofun();
//加载自定义函数
static int funcload()
{
int i;
for (i = 0; i < ELEMENTS(func_table); i++) {
if (!acedDefun(func_table.func_name, (short)i))
return RTERROR;
}
return RTNORM;
}
//执行函数
static int dofun()
{
struct resbuf *rb;
int val;
/* Get the function code and check that it's within range.
(It can't fail to be, but paranoia doesn't hurt.) */
if ((val = acedGetFunCode()) < 0 || val >= ELEMENTS(func_table)) {
acdbFail(_T(/*MSG2*/"Received nonexistent function code."));
return RTERROR;
}
/* Fetch the arguments, if any. */
rb = acedGetArgs();
/* Call the handler and return its success-failure status. */
val = (*func_table[val].func)(rb);
acutRelRb(rb);
return val;
}
//-----------------------------------------------------------------------------
//----- ObjectARX EntryPoint
//extern "C" AcRx::AppRetCode
class CArxProject2App : public AcRxArxApp {
public:
CArxProject2App () : AcRxArxApp () {}
virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt) {
// TODO: Load dependencies here
acrxDynamicLinker->unlockApplication(pkt);
//acrxDynamicLinker->registerAppMDIAware(pkt);
// You *must* call On_kInitAppMsg here
AcRx::AppRetCode retCode =AcRxArxApp::On_kInitAppMsg (pkt) ;
// TODO: Add your initialization code here
//initApp() ;
//funcload();
return (retCode) ;
}
virtual AcRx::AppRetCode On_kLoadDwgMsg (void *pkt) {
// TODO: Load dependencies here
// You *must* call On_kInitAppMsg here
AcRx::AppRetCode retCode =AcRxArxApp::On_kLoadDwgMsg (pkt) ;
// TODO: Add your initialization code here
funcload();
return (retCode) ;
}
virtual AcRx::AppRetCode On_kInvkSubrMsg (void *pkt) {
// TODO: Load dependencies here
//acrxDynamicLinker->registerAppMDIAware(pkt);
// You *must* call On_kInitAppMsg here
AcRx::AppRetCode retCode =AcRxArxApp::On_kInvkSubrMsg (pkt) ;
// TODO: Add your initialization code here
dofun();
return (retCode) ;
}
virtual AcRx::AppRetCode On_kUnloadAppMsg (void *pkt) {
// TODO: Add your code here
//acrxDynamicLinker->unlockApplication(pkt);
// You *must* call On_kUnloadAppMsg here
AcRx::AppRetCode retCode =AcRxArxApp::On_kUnloadAppMsg (pkt) ;
// TODO: Unload dependencies here
//unloadApp() ;
return (retCode) ;
}
virtual void RegisterServerComponents () {
}
} ;
//-----------------------------------------------------------------------------
IMPLEMENT_ARX_ENTRYPOINT(CArxProject2App)
//进度条函数
//进度条初始化
int ProgressInit(struct resbuf *rb)
{
if (rb == NULL)
{acdbFail(_T("\n参数太少"));
acedRetVoid();
return RTERROR;
}
ACHAR* str ;
//ACHAR *sPrompt;
if (rb->restype != RTSTR)
{
acdbFail(_T("\n第1个参数应为提示字串"));
acedRetVoid();
return RTERROR;
//sPrompt = str;
}
str = rb->resval.rstring;
rb = rb->rbnext;
if (rb == NULL)
{
acdbFail(_T("\n参数太少"));
acedRetVoid();
return RTERROR;
}
long nMaxPos;
if (rb->restype == RTLONG)
{
nMaxPos = rb->resval.rlong;
}
else
if (rb->restype == RTSHORT)
{
nMaxPos = long(rb->resval.rint);
}
else
{
acdbFail(_T("\n第2个参数应为整数"));
acedRetVoid();
return RTERROR;
}
if (rb->rbnext !=NULL)
{
acdbFail(_T("\n参数太多"));
acedRetVoid();
return RTERROR;
}
acedSetStatusBarProgressMeter(str,0,nMaxPos);
// TODO: Replace the following line by your returned value if any
acedRetVoid () ;
return (RSRSLT) ;
}
//设置进度条位置
int ProgressMeterPos (struct resbuf *rb)
{
if (rb == NULL)
{acdbFail(_T("\n参数太少"));
acedRetVoid();
return RTERROR;
}
long nPos;
if (rb->restype == RTLONG)
{
nPos = rb->resval.rlong;
}
else
if (rb->restype == RTSHORT)
{
nPos = long(rb->resval.rint) ;
}
else
{
acdbFail(_T("\n参数应为整数"));
acedRetVoid();
return RTERROR;
}
if (rb->rbnext !=NULL)
{
acdbFail(_T("\n参数太多"));
acedRetVoid();
return RTERROR;
}
acedSetStatusBarProgressMeterPos(nPos);
acedRetVoid () ;
return (RSRSLT) ;
}
//进度条终止
int ProgressDone (struct resbuf *rb)
{
if (rb != NULL)
{acdbFail(_T("\n参数太多"));
acedRetVoid();
return RTERROR;
}
acedRestoreStatusBar();
acedRetVoid () ;
return (RSRSLT) ;
}

// (C) Copyright 2002-2005 by Autodesk, Inc. 
// 
// Permission to use, copy, modify, and distribute this software in 
// object code form for any purpose and without fee is hereby granted, 
// provided that the above copyright notice appears in all copies and 
// that both that copyright notice and the limited warranty and 
// restricted rights notice below appear in all supporting 
// documentation. 
// 
// AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. 
// AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF 
// MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC. 
// DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE 
// UNINTERRUPTED OR ERROR FREE. 
// 
// Use, duplication, or disclosure by the U.S. Government is subject to 
// restrictions set forth in FAR 52.227-19 (Commercial Computer 
// Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) 
// (Rights in Technical Data and Computer Software), as applicable. 
// 
 
//----------------------------------------------------------------------------- 
//----- acrxEntryPoint.h 
//----------------------------------------------------------------------------- 
#include "StdAfx.h" 
#include  "adslib.h" 
#include "resource.h" 
 
 
//----------------------------------------------------------------------------- 
#define szRDS _RXST("LLRX") 
 
/* Utility definition to get an  array's  element  count  (at  compile 
   time).   For  example:   
 
       int  arr[] = {1,2,3,4,5}; 
       ... 
       printf("%d", ELEMENTS(arr)); 
 
   would print a five.  ELEMENTS("abc") can also be used to  tell  how 
   many  bytes are in a string constant INCLUDING THE TRAILING NULL. */ 
// 
#define ELEMENTS(array) (sizeof(array)/sizeof((array)[0])) 
 
 
/* All the functions that we'll define will be listed in a single table, 
   together with the internal function that we call to handle each.  The 
   functions all take a single argument (the resbuf that has the 
   arguments) and return an integer (RTNORM or RTERROR for good or bad 
   status).  */ 
 
 
/* First, define the structure of the table: a string giving the AutoCAD name 
   of the function, and a pointer to a function returning type int. */ 
struct func_entry { TCHAR *func_name; int (*func) (struct resbuf *); }; 
 
/* Here we declare the functions that handle the calls; at the moment there are 
   two of them. */ 
 
 
/* Here we define the array of function names and handlers. */ 
 struct func_entry func_table[] = 
{ 
  {_T("LLRX-ProgressInit"), ProgressInit}, 
  {_T("LLRX-Progress"), ProgressMeterPos}, 
  {_T("LLRX-ProgressDone"), ProgressDone}, 
}; 
 
 
 
 
static int funcload(); 
static int dofun(); 
 
  //加载自定义函数 
static int funcload() 
{ 
  int i; 
 
  for (i = 0; i < ELEMENTS(func_table); i++) { 
    if (!acedDefun(func_table.func_name, (short)i)) 
      return RTERROR; 
  } 
  return RTNORM; 
} 
 
 
//执行函数 
static int dofun() 
{ 
    struct resbuf *rb; 
    int val; 
 
    /* Get the function code and check that it's within range. 
       (It can't fail to be, but paranoia doesn't hurt.) */ 
    if ((val = acedGetFunCode()) < 0 || val >= ELEMENTS(func_table)) { 
        acdbFail(_T(/*MSG2*/"Received nonexistent function code.")); 
        return RTERROR; 
    } 
 
    /* Fetch the arguments, if any. */ 
    rb = acedGetArgs(); 
 
    /* Call the handler and return its success-failure status. */ 
    val = (*func_table[val].func)(rb); 
    acutRelRb(rb); 
    return val; 
} 
 
 
 
 
 
//----------------------------------------------------------------------------- 
//----- ObjectARX EntryPoint 
//extern "C" AcRx::AppRetCode 
class CArxProject2App : public AcRxArxApp { 
 
public: 
  CArxProject2App () : AcRxArxApp () {} 
 
  virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt) { 
    // TODO: Load dependencies here 
    acrxDynamicLinker->unlockApplication(pkt); 
    //acrxDynamicLinker->registerAppMDIAware(pkt); 
    // You *must* call On_kInitAppMsg here 
    AcRx::AppRetCode retCode =AcRxArxApp::On_kInitAppMsg (pkt) ; 
    
    // TODO: Add your initialization code here 
    //initApp() ; 
  //funcload(); 
    return (retCode) ; 
  } 
  virtual AcRx::AppRetCode On_kLoadDwgMsg (void *pkt) { 
      // TODO: Load dependencies here 
      // You *must* call On_kInitAppMsg here 
      AcRx::AppRetCode retCode =AcRxArxApp::On_kLoadDwgMsg (pkt) ; 
 
      // TODO: Add your initialization code here 
      funcload(); 
      return (retCode) ; 
  } 
  virtual AcRx::AppRetCode On_kInvkSubrMsg (void *pkt) { 
    // TODO: Load dependencies here 
    //acrxDynamicLinker->registerAppMDIAware(pkt); 
    // You *must* call On_kInitAppMsg here 
    AcRx::AppRetCode retCode =AcRxArxApp::On_kInvkSubrMsg (pkt) ; 
 
    // TODO: Add your initialization code here 
    dofun(); 
    return (retCode) ; 
  } 
  virtual AcRx::AppRetCode On_kUnloadAppMsg (void *pkt) { 
    // TODO: Add your code here 
        //acrxDynamicLinker->unlockApplication(pkt); 
    // You *must* call On_kUnloadAppMsg here 
    AcRx::AppRetCode retCode =AcRxArxApp::On_kUnloadAppMsg (pkt) ; 
 
    // TODO: Unload dependencies here 
       //unloadApp() ; 
    return (retCode) ; 
  } 
 
  virtual void RegisterServerComponents () { 
 
  } 
   
} ; 
 
//----------------------------------------------------------------------------- 
IMPLEMENT_ARX_ENTRYPOINT(CArxProject2App) 
 
 
//进度条函数 
//进度条初始化 
int ProgressInit(struct resbuf *rb) 
{ 
  if (rb == NULL) 
  {acdbFail(_T("\n参数太少")); 
  acedRetVoid(); 
  return RTERROR; 
  } 
 
  ACHAR* str ; 
  //ACHAR *sPrompt; 
  if (rb->restype != RTSTR) 
  { 
    acdbFail(_T("\n第1个参数应为提示字串")); 
    acedRetVoid(); 
    return RTERROR; 
    //sPrompt = str; 
 
  } 
  str = rb->resval.rstring; 
  rb = rb->rbnext; 
  if (rb == NULL) 
  { 
    acdbFail(_T("\n参数太少")); 
    acedRetVoid(); 
    return RTERROR; 
  } 
  long nMaxPos; 
  if (rb->restype == RTLONG) 
  { 
 
    nMaxPos = rb->resval.rlong; 
  } 
  else 
    if (rb->restype == RTSHORT) 
    { 
      nMaxPos = long(rb->resval.rint); 
    } 
    else   
    { 
      acdbFail(_T("\n第2个参数应为整数")); 
      acedRetVoid(); 
      return RTERROR; 
 
    } 
    if (rb->rbnext !=NULL) 
    { 
      acdbFail(_T("\n参数太多")); 
      acedRetVoid(); 
      return RTERROR; 
    } 
 
 
    acedSetStatusBarProgressMeter(str,0,nMaxPos); 
    // TODO: Replace the following line by your returned value if any 
    acedRetVoid () ; 
    return (RSRSLT) ; 
} 
 
//设置进度条位置 
int ProgressMeterPos (struct resbuf *rb) 
{ 
  if (rb == NULL) 
  {acdbFail(_T("\n参数太少")); 
  acedRetVoid(); 
  return RTERROR; 
  } 
  long nPos; 
  if (rb->restype == RTLONG) 
  { 
    nPos = rb->resval.rlong; 
  } 
  else 
    if (rb->restype == RTSHORT) 
    { 
      nPos = long(rb->resval.rint) ; 
    } 
    else   
    { 
      acdbFail(_T("\n参数应为整数")); 
      acedRetVoid(); 
      return RTERROR; 
 
    } 
    if (rb->rbnext !=NULL) 
    { 
      acdbFail(_T("\n参数太多")); 
      acedRetVoid(); 
      return RTERROR; 
    } 
    acedSetStatusBarProgressMeterPos(nPos); 
    acedRetVoid () ; 
    return (RSRSLT) ; 
 
} 
//进度条终止 
int ProgressDone (struct resbuf *rb) 
{ 
  if (rb != NULL) 
  {acdbFail(_T("\n参数太多")); 
  acedRetVoid(); 
  return RTERROR; 
  } 
  acedRestoreStatusBar(); 
  acedRetVoid () ; 
  return (RSRSLT) ; 
}

XDSoft · 发表于 2013-8-6 09:08:35

把 int ProgressInit(struct resbuf *rb) 参数去掉，

然后在文件最前面加上 int ProgressInit(); 声明下函数给编译器，看看如何？

另外，你编译不过，提示信息是什么？

Love-Lisp · 发表于 2013-8-6 09:19:51

XDSoft 发表于 2013-8-6 09:08
把 int ProgressInit(struct resbuf *rb) 参数去掉，

然后在文件最前面加上 int ProgressInit(); 声明下 ...

按您的方法修改后，编译提示：
error C2440: 'initializing' : cannot convert from 'int (__cdecl *)(void)' to 'int (__cdecl *)(resbuf *)'

XDSoft · 发表于 2013-8-6 09:35:15

在你的DOFUN里面

/* Fetch the arguments, if any. */
rb = acedGetArgs();

/* Call the handler and return its success-failure status. */
val = (*func_table[val].func)(rb);

是带参数的，把(rb)换成()试试，其他地方也检查下。

Love-Lisp · 发表于 2013-8-6 10:06:26

XDSoft 发表于 2013-8-6 09:35
在你的DOFUN里面

/* Fetch the arguments, if any. */

还是提示同样的错误！
错误定位在 {_T("XLRX-getpoint"), mygetpoint}, 这句代码！
还是参数的问题吧！

XDSoft · 发表于 2013-8-6 10:12:54

DOFUN修改后，

以后你所有的函数定义都不要带参数了，记得声明函数；
int abc()
{
resbuf *rb=ads_getargs(); //通过这个获得LISP的参数
}

Love-Lisp · 发表于 2013-8-6 10:20:29

XDSoft 发表于 2013-8-6 10:12
DOFUN修改后，

以后你所有的函数定义都不要带参数了，记得声明函数；

函数申明都在头文件里！
只有用向导方式定义的函数，才可以不带参数！用我上面非向导方式的例子，就必须带参数啊？不带参数咋改都通不过！{:soso_e118:}

账号		自动登录	找回密码
密码			立即注册

[分享] 传递给Lisp使用的三个进度条函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评