看来这里有高人啊！我想请教一下如果想把asc码的值画出的线形也就是地理坐标那种转换成dxf格式的话，用vba可以吗？我是vba盲啊，呵呵，如果学的话要从什么地方学起呢？现在再看dxf格式，然后做什么呢?大侠指点一下吧！谢谢啦！
TO BDYCAD ：我写了一个，在OFFICEXP，CAD2004下验证通过，不过我不敢保证永不出错。你试试再说，不要笑我才好。：）
使用说明：在CAD中加载这个文件后会自动启动EXCEL，随意打开你的文件，然后选择两行以上和正好两列
TOdsprite ： asc码的值画出的线形也就是地理坐标？？？我可不是什么高人，你说的我就不懂。DXF是二进制图形，通过CAD 转换的，VBA可能也不好直接写。
嗨. 我去試試啦.
ASAHIX 兄, 你好. 在CAD中用 Appload 加載不了你的程序. 是怎麼回事. 另外以你目前的水平我想不用我去選那兩列了. 你可以做到在CAD中運行這個程序就去打開選擇EXECL文件就可以自動畫出來了,就很好啦. 因為我其它的 EXECL文件的格式都是一個樣的.
還有 dsprite你的需要好象有點超出了CAD本身的技術. 我想要計算機更深的才有辦法去解決啊. 請別怪我才疏學淺, 幫不上你的忙啦.
哦？我这里可以嘛。有什么错误信息？
你定制的话可操作性就不强了，不过程序更加简单了。以后给你。
头来了
正如你所料, 我也是按上面的做但提示是這樣的. 你看看.
如有类似错误，你就把AS 后面的数据类型（EXCEL.RANGE）改成OBJECT。
运行人脸提示出错如图？该怎么办？
Dim plineObj As AcadLWPolyline找不到工程或库
If Selection Is Nothing Then MsgBox "Nothing Selected!": Exit Sub
看到这行就不懂了，其中的 Selection 在何处定义？代表什么？
我用autolisp做的图形算量软件，不过对用dcl设计界面不熟，尤其是菜单的设计，还有一个问题是autolisp中对图形元件的转化问题不知道如何下手，请大哥帮忙指点一下！