明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2876|回复: 11

批量输出圆心坐标

[复制链接]
发表于 2017-8-8 12:41 | 显示全部楼层 |阅读模式
本帖最后由 gaomingabc456 于 2017-8-8 17:44 编辑

(defun  c:plyxzbtq ()    ;批量圆心坐标提取到记事本
(setvar "cmdecho" 0)   
(setvar "DIMZIN" 0)                      ;关闭命令执行提示
(setq n 0 ss '())                             ;取得一个空表
(prompt"\n ★★★★★★★★请选择圆图元★★★★★★★★")
(setq &kw (ssget '((0 . "CIRCLE"))))          ;选择圆
(if (/= &kw nil)                              ;如果有选择了圆
  (progn
   (setq L (sslength &kw)
        ff (open "d:/圆心坐标文件.txt" "a")     ;在D盘建立文本<圆心坐标文件> 保存原有
        ff (open "d:/圆心坐标文件.txt" "w")     ;在D盘建立文本<圆心坐标文件> 重新写入
   )
    ;;;(princ "X坐标" ff)    (princ "\t" ff)   (princ "\t" ff)
    ;;;(princ "Y坐标" ff)    (princ "\t" ff)   (princ "\n" ff)
    (princ "ID----------X--------------Y------" ff)
    (princ "\n" ff)  ;换一行输入
   (repeat L
    (setq &k1 (entget (ssname &kw n))
          %k1 (cdr (assoc 10 &k1))             ;取得圆心坐标
          ss (cons %k1 ss)                     ;加入选择集
          n (+ n 1)
    )
   )
   (setq n 0)
   (repeat L
    (setq &k1 (nth n ss)
          %k1 (rtos (car &k1) 2 4)             ;取得X坐标,小数点后四位
          %k2 (rtos (cadr &k1) 2 4)            ;取得Y坐标,小数点后四位
          n (+ n 1)
    )
    (setq K1 n)
    (setq sn (rtos K1 2 0))
    ;;;(princ "X=" ff)  ;先输入X=到txt文件(可以考虑是否输入字符X=,不输入则本行删除)
    (princ sn ff)   ;然后输入X坐标
    (princ "\t" ff)   ;一个空格分开
    (princ %k2 ff)   ;然后输入X坐标
    (princ "\t" ff)   ;一个空格分开
    ;;;(princ "Y=" ff)  ;再输入Y=到txt文件(可以考虑是否输入字符Y=,不输入则本行删除)
    (princ %k1 ff)   ;然后输入Y坐标
    (princ "\n" ff)  ;换一行输入
   )
   (close ff)        ;关闭文本
   (startapp "notepad.exe" "d:/圆心坐标文件.txt")
   )

)
(prin1)       
)
发表于 2018-5-21 22:18 | 显示全部楼层
你好我想提的座标按MM为单位怎么设置呢?现在提的都是M为单位,我在建筑上用的
发表于 2017-9-5 14:14 | 显示全部楼层
本帖最后由 arno_tm 于 2017-9-5 14:17 编辑

C:\Users\Administrator\Desktop\QQ图片20170905140634
能否做到这个效果不

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2021-7-22 08:46 | 显示全部楼层

同问
发表于 2017-8-8 17:18 | 显示全部楼层
不能用  错误
 楼主| 发表于 2017-8-8 17:45 | 显示全部楼层
少括号 ,已改!!!
发表于 2017-8-27 15:54 | 显示全部楼层
谢谢楼主,辛苦了
发表于 2018-5-21 22:20 | 显示全部楼层
这样能改吗?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-9-26 17:59 | 显示全部楼层
正好能用上   牛逼
发表于 2018-9-26 18:06 | 显示全部楼层
不错的源码  而且解释的很清楚
发表于 2019-3-4 22:57 | 显示全部楼层
谢谢楼主提供,复制学习了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 01:08 , Processed in 0.278843 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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