明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: amator

[转帖]获得CAD坐标并输出到EXCEL指定行

  [复制链接]
发表于 2008-11-13 21:46 | 显示全部楼层
Q:714168925知道用的教下
发表于 2008-11-20 13:17 | 显示全部楼层
谢谢提供!下载试用。
发表于 2008-11-23 22:11 | 显示全部楼层

请教使用方法!谢谢

E-mail:cgz314@163.com

发表于 2008-11-24 10:50 | 显示全部楼层
请问楼主你这个软件适合于那个版本的CAD软件啊?2004的能否使用呢?
发表于 2009-3-5 17:42 | 显示全部楼层
太有用了,高人
发表于 2009-3-16 21:02 | 显示全部楼层

各位有谁会了啊

教一下我拉

发表于 2009-3-23 21:37 | 显示全部楼层
楼主,辛苦了
发表于 2009-4-11 14:32 | 显示全部楼层
好东东大家顶起来
发表于 2009-4-12 09:26 | 显示全部楼层

我自己写的第一个LSP程序,加载后运行DZB,然后点取需要的坐标点,能输出该点的XYZ坐标,但还不会自定义输出文件,学习中

(defun c:dzb()
  (graphscr)
  (setvar "osmode" 16255)
  (princ "\n开始点取等高线上的坐标点:")
  (setq a1 1)
  (setq count 1)
  (setq Fn (getstring T "请输入文件名:"))
  (setq Fname(strcat "f:\\"  fn ".txt"))
  (setq file1 (open Fname "a"))
  (while (> count 0)
    (setq p0 (getpoint "\n点取等高线上的点:"))
    (setq x1 (car p0)
   y1 (cadr p0)
   z1 (caddr p0)
    )
    (setq count z1)
    (setq str1 (strcat (itoa a1)
         ","
         " "
         ","
         (rtos x1 2 3)
         ","
         (rtos y1 2 3)
         ","
         (rtos z1 2 3)
        )
   )
  
    (write-line str1 file1)
   (setq a1 (1+ a1))
    )
    (close fp1)

  )

发表于 2009-7-25 00:17 | 显示全部楼层
dddddddddddddddddddddddddddddd
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:41 , Processed in 0.161065 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表