[ARX]我愛學習ARX剛剛起步, 多多指教啊

BDYCAD

我刚学会一点点的ARX. 先来一个改lisp涵数的涵数GETPOINT的名为USERPOINT源码.

// This is command 'USERPOINT'
int USERPOINT()
{
 // TODO: Implement the command
 resbuf *pArg =acedGetArgs () ;
  if( pArg == NULL)
 {
  acedRetNil();
  return RTERROR;
 }
 else
 {
  CString strin;
  resbuf *tb;
  ads_point PT1;
  tb= pArg;
  strin = tb->resval.rstring;
   acedGetPoint(NULL,strin,PT1);
 //acedGetSym("PT1",PT1);
 acedRetPoint(PT1);
 }

 return (RTNORM) ;
}

跟随上面的方式, 我想再改进改进. 但不太会, 请大侠指点指点啊!

我想改把这个涵数改成 (USERPOINT [变量名] [提示]); 这样用的

意思是想把这个USERPOINT涵数是得出的点做成一个变量, 这个变量就是在涵数输入的第一个参数 [变量名], 还望多多指教, 谢谢!!!!

zfbj

要学习ARX，就要抛开LISP的编程习惯，不要再费劲去改成LISP的格式了吧。

BDYCAD

呵呵. 不能一下就抛开的. 因为我不能一下就放下工作马上改用arx, 因为没有人能接手我手上的工作嘛. 只能一边在开发VLISP的同时学会ARX, 等会了才可以慢慢的转变的啊.,  虽然过程有点慢,