提取坐标值

fengyun7000 · 发表于 2019-2-8 16:38:00

这是晓东插件，人家还是简单用不了，这程序比较简单，但要实现客户要求，不用CATBLE的话，需要弄一大堆程序来支持cad和Excel数据交换

tianbeiyuan · 发表于 2019-4-1 17:05:02

好东西看看啊

lizhaojun45 · 发表于 2019-4-4 17:39:37

谢谢大神的分享。

panyakun · 发表于 2019-4-8 11:20:25

下载看看好不好用

zjy2999 · 发表于 2019-4-8 11:25:42

学习！！！！！！！

zjy2999 · 发表于 2019-4-8 11:26:44

学习！！！！！！！

爬楼梯BESOS · 发表于 2019-5-29 22:56:32

搞来学习下，跟着大神学习，占大神便宜

yangchao2005090 · 发表于 2019-6-16 11:23:56

表格有了，楼主要的就出来了，表格上点右键，输出成CSV格式文件，EXCEL打开CSV就行了。

pxr201419 · 发表于 2019-6-16 13:03:35

(defun c:sjzb( / fil fl ss i bl xi yi)
(setq fil (getfiled "选择文件保存位置" "" "txt;xls" 1))
(setq fL (open fil "w"))
    (prompt "\n选择坐标:")
(setq ss (ssget) i 0)
(while (ssname ss i)
   (setq bl (cdr (assoc 47 (entget(ssname ss i)))))
   (setq xi (car (cdr (assoc 10 (entget(ssname ss i))))))
   (setq yi (cadr (cdr (assoc 10 (entget(ssname ss i))))))
   (setq LL (strcat (rtos (1+ i)) "\t" (rtos (/ xi bl) 2 3) "\t" (rtos (/ yi bl) 2 3)))
   (write-Line LL fL)
   (setq i (1+ i)))
(close fl)
(if (= (vl-filename-extension fil) ".txt")
(startapp "notepad" fil)
(startapp "EXPLORER" fil))
)
(prompt "\n保存坐标到文件，命令:sjzb")(princ)

rxbwyl · 发表于 2019-7-5 14:47:28

看看代码，学习一下！

嘎小闹 · 发表于 2019-9-23 13:10:22

lispboy我看你帖子好久了大神点个赞

nbxhy · 发表于 2019-10-8 14:34:40

谢谢Lispboy 分享

51895991 · 发表于 2019-10-12 18:47:15

谢谢楼主的分享

哥米钱/坏笑 · 发表于 2019-11-25 17:20:01

哥米钱/坏笑 · 发表于 2019-11-25 17:21:13

应该不错看看

账号		自动登录	找回密码
密码			立即注册

[已解决] 提取坐标值