jinsx 发表于 2008-12-19 11:29:00

获得CAD坐标并输出到EXCEL的LIST

<p>现有如下LISP程序:</p><p>(defun c:tu()<br/>&nbsp; (setvar "cmdecho" 0) <br/>&nbsp; (COMMAND ".UNDO" "BE")<br/>&nbsp; (command "-units" "2" "3" "2" "3" "" "")<br/>&nbsp; (setq fp (open "d:/POINT.xls" "a") s (getvar "cmdecho") n (getint "TOTAL NO: "))<br/>&nbsp; (princ "NO" fp)(princ "\t" fp)<br/>&nbsp; (princ "X" fp)(princ "\t" fp)<br/>&nbsp; (princ "Y" fp)(princ "\n" fp)<br/>&nbsp; (repeat n <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq k (getstring "\NO（如：1）！")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p (getpoint "SELECT POINT！")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x (strcat "X=" (rtos (nth 0 p)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; y (strcat "Y=" (rtos (nth 1 p))))<br/>&nbsp;&nbsp;&nbsp; (princ k fp)(princ "\t" fp)<br/>&nbsp;&nbsp;&nbsp; (princ x fp)(princ "\t" fp)<br/>&nbsp;&nbsp;&nbsp; (princ y fp)(princ "\n" fp))&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; (close fp)<br/>&nbsp; (setvar "cmdecho" s))<br/>&nbsp; (princ "\n提示：INPUT TU！")<br/>&nbsp; (princ)<br/></p><p>想改成能输出X,Y,Z 坐标并自动生成序列号,试了几次没能成功,只能求教高手出手帮助一下了.我想需要这个功能的兄弟也很多大家集思广义一下,看还需要修改什么!网上的那个获得CAD坐标并输出到指定行的程序不太好用!</p>

jinsx 发表于 2008-12-22 08:36:00

高手们路过帮忙改一下,谢谢了!

jinsx 发表于 2008-12-23 15:33:00

自己已经搞定,有需要的兄弟留言!

xiaoliang200 发表于 2008-12-23 16:47:00

咋弄的，给我一个看看

liu_kunlun 发表于 2008-12-23 17:01:00

居然有这种办法！！但我的试验不成功，不知何故？

stylsn 发表于 2008-12-23 21:43:00

<p>发个给我试试呀，多谢多谢 <a href="mailto:stylsn@live">stylsn@live</a>.COM</p>

偏爱云~小吴 发表于 2014-3-11 12:04:01

先顶一下。确实需要的人很多啊，大神们都睡觉了么
页: [1]
查看完整版本: 获得CAD坐标并输出到EXCEL的LIST