小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> CAD坐标输出表格_坐标输出excel_CAD插件大全
详细内容

CAD坐标输出表格_坐标输出excel_CAD插件大全

时间:2019-05-31     作者:逆流而上的鱼   阅读

CAD坐标输出表格_坐标输出插件_CAD插件大全

CAD坐标输出,CAD坐标标注,CAD插件大全

CAD插件,CASS插件,CAD,CASS

CAD坐标输出


;;;功能:坐标输出

;;;逆流而上的鱼制作,QQ736188807

;;;需要小懒人CAD工具箱支持,下载地址

(defun c:tt ();;;;;

  (setq path (getfiled "选择保存位置" (xlr_get_dwg) "csv" 1))

  (setq csv_fp (open path "w"))

  (write-line

    (strcat "编号" "," "X坐标" "," "Y坐标" "," "高程")

    csv_fp

  )

  (princ)

  (setq num 0)

  (while (setq pt (getpoint "\n 指定点<退出>"))

    (setq num (1+ num))

    (xlr_make_point  pt "编号")

    (xlr_put_text (strcat " "(rtos num 2 0)) pt 0 0 "编号" 7)

    (setq x (rtos (nth 0 pt) 2))

    (setq y (rtos (nth 1 pt) 2))

    (setq z (rtos (nth 2 pt) 2))

    (setq ztxx (strcat (rtos num 2 0) "," x "," y "," z))

    (write-line ztxx csv_fp)

    (princ)

  )

  (close csv_fp)

  (alert "提取完成!!")

)







电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符250(限制字符250)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。