在代理记账公司学什么:谁能教我编程呀CAD有关的？

图形中制作表格程序：
．．．＊＊＊＊ERROR＊＊＊＊
（DEFUNERR（X）
；IFANERROR（SUCHASCTRL－C）
OCCURS
；WHILETHISCOMMANDISACTIVE
（IF（AND（／ΚX〃FUNCTIONCANCELLED〃）
（／ΚX〃QUIT／EXITABORT〃））
（PPINC（STRCAT〃ιnERROR：〃X）））
（SETVAR〃CMDECHO〃1）（SETVER〃BLIP?MODE〃1）
（IF（ΚTYPERF）′FILE）（CLOSERF））
（IF（ΚTYPERN）′FILE）（CLOSERN））
（SETQRFNIL）（SETQRNNIL）
（SETQ＊ERROR＊OLDERR）
；RESTOREOLD＊ERROR＊HANDLER
（PRINC））
．．．＊＊＊＊FILETOREAD＊＊＊＊
（DEFUNINPUT（）
（IF（ΚFF1nil）（SEFQFF1（GETVAR〃DWGPREFIX〃）））
（SETQF1（GETFILED〃请输入中线成果数据文件〃FF1〃DAT〃12））
（SETQLF（STRLENF1）FF1（SUBSTRF11（－LF4）））
（IF（ΚFF2nil）（SETQFF2FF1））
（SETQF2（GETFILED〃请输入工程名称文件〃FF2〃TXT〃12））
（SETQLF（STRLENF2）FF2（SUBSTRF21（－LF4）））
（initget〃YesNo〃）
（setqYN（getkword〃ιn请选择有曲线元素Yes／No：（N）〃））
（if（ΚYNnil）（SETQYN〃No〃）））
．．．＊＊＊＊DATAFORPROGRAMME＊＊＊＊＊
（DEFUNDDAT（）
（SETQRF（OPENF1〃r〃））（SETQRN（OPENF2〃r〃））
（SETQGN（READ－LINERN）GG1DAH（READ－LINERN））
（IF（ΚATOIDAH）0）（PROGN（SETQGG2GN2DAHDAH（READ－LINERN））））
（SETQDAT（READ－LINERN））
（IF（ΚDATNIL）（PROGN（SETQDAT（GETVAR〃CDA?TE〃））；取当前日期
（SETQDAT（FIXDAT））（SETQDAT（ITOADAT））
（SETQYY（SUBSTRDAT14）MM（SUBSTRDAT52））
（SETQDD（SUBSTRDAT72）DAT（STRCATYY〃－〃MM〃－〃DD））））
（SETQNO（READ－LINERF）N（ATOINO））
（SETQNF26NN29）；首、次页行数
（SETQM（FIX（＋（／（－NNF）NN）2）））：计算页数
（SETQNL（REM（－NNF）NN））（IF（ΚNL0）（SETQM（－M1）NLNN））
（IF（ΙΚNNF）PROGN（SETQM1）（SETQNLN）））
（princ〃共读入〃）（PRINCN）（PRINC〃点，分〃）（PRINCM）（PRINC〃页填写！〃）
（SETQYY8XX230）；行距、页距
（SETQI1X00Y00DAH（STRCAT〃测－〃DAH〃／〃））
（IF（ΚYN〃NO〃）（SETQDI（LIST678．58103．58125．08150．08180．08208．08））
（SETQDI（LIST1071．9088．39105．58122．61140．30156．83172．86188．07208．00232．73））））
；表格项数及各项横坐标（X）
（SETQYYF285．0YYN305．7）；首、次页第一行纵坐标
．．．．＊＊＊＊删除数据前后空格（QKG）＊＊＊＊＊＊
（DEFUNQKG（）
（SETQLE1）
（WHILE（〈LE（STRLENTXT））（RPOGN（SETQLF（＋1LE））
（WHILE（Κ（SUBSTRTXT11）〃〃）（PROGN（SETQTXT（SUBSTRTXT2（STRLENTXT）））））））
（SETQLE（STRLENTXT））
（IF（〉LE2）（WHILE（AND（Κ（SUBSTRTXTLE1）〃〃）（∧LE2））
（PROGN（SETQLE（－LE1）TXT（SUBSTRTXT1LE））））））
．．．．．＊＊＊＊＊ZXTX＊＊＊＊＊＊
（DEFUNZXTX（）
（PRINC〃ιn正在填写中线成果数据，请稍候！〃）
（WHILE（ΙΚIM）（PROGN（SETQPT0（LISTX0Y0））
（SETQP1（LIST（＋X0236．0）348．5））（SETQP2（LIST（＋X0207．0）342．0））
（SETQP3（LIST（＋X0227．0）342．0））（SETQP4（LIST（＋X0222．2）335．6））
（IF（ΚYN〃No〃）（IF（ΚI1）（SETQZX〃＊PZX－F〃）（SETQZX〃＊PZX－N〃））；图块选择
（IF（ΚI1）（SETQZX〃＊QZX－F〃）（SETQZX〃＊QZX－N〃）））
（COMMAND〃INSERT〃ZXPT0〃1〃〃0〃）
（IF（ΚI1）（PROGN（SETQP2（LIST（＋X0207．0）336．0））
（SETQP3（LIST（＋X0227．0）336．0））（SETQP4（LIST（＋X0222．2）329．6））
（SETQP5（LIST（＋X0125．1）329．5））（SETQP6（LIST（＋X0185．9）329．5））
（IF（ΚGG2）（PROGN（SETQP5（LIST（＋X0125．1）333．5））
（SETQP6（LIST（＋X0185．9）333．5））（SETQP7（LIST（＋X0135．1）323．5））
（SETQP8（LIST（＋X0175．9）323．5））））
（COMMAND〃TEXT〃〃S〃〃HZ〃〃J〃〃A〃P5P6GN）
（COMMAND〃TEXT〃〃J〃〃M〃P4〃2．5〃〃0〃DAT）
（IF（ΚGG2）（COMMAND）〃TEXT〃〃J〃〃A〃P7P8GNZ））））
（IF（ΚI1）（SETQJNF）（SETQJNN））

看你用什么编？
楼上的好像是Lisp，想学的话可以找他
我会VB，自己编过CAD程序，通过接口控制CAD，想学的话可以找我
也可以用VBA来编cad程序，这个我也会

小kiss！
我帮你啊！