明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1564|回复: 3

输出结果的问题!

[复制链接]
发表于 2004-8-6 19:07:00 | 显示全部楼层 |阅读模式
小弟是做测量的,编了一个关于多边形每个端点生成坐标册的程序,现在想请教一下各位高手,大虾,能否让输出的结果自动自成表格呢?装入程序后快捷键是 test (defun c:test()
(command "_OSNAP" "non")
(setq ss(ssget'((100 . "AcDbPolyline"))))
(setq pu(getpoint"\n坐标册放在:"))
(setq xu(car pu))
(setq x4(- xu 12))
(setq yu(cadr pu))
(setq x4yu(list x4 yu))
(setq pt(list xu yu))
(command "text" x4yu 4 0 "点号 X坐标 Y坐标")
(setq ss1(ssname ss 0))
(setq ent(entget ss1))
(setq i 0) (setq j 0)
(setq ken 10)
(repeat(length ent)
(setq yy (nth i ent))
(if (eq (car yy ) ken )
(progn
(setq j(+ 1 j))
(setq xy (cdr yy))
(setq jj(rtos j))
(setq jj(strcat "j" jj ))
(setq jj(substr jj 1 (- (strlen jj ) 5 )))
(command "text" xy 3 0 jj)
(setq xx(car pt))
(setq yy( - (cadr pt) 10))
(setq pt(list xx yy ))
(love xy pt jj )
)
)
(setq i(1+ i))
)
) (defun love( k pe r )
(setq x(car k))
(setq y(cadr k)) (setq x1(car pe))
(setq y1(cadr pe))
(setq x1(+ 30 x1))
(setq pe1(list x1 y1)) (setq xj( - (car pe) 10))
(setq pe2(list xj y1))

(command "text" pe2 3 0 r)
(command "text" pe 3 0 (rtos x))
(command "text" pe1 3 0 (rtos y))
)
发表于 2004-8-7 09:53:00 | 显示全部楼层
输出到文件,用逗号分隔,每条一行,文件扩展名用csv,可以直接用电子表格程序Microsoft Excel 打开。
发表于 2004-8-7 18:14:00 | 显示全部楼层
我的办法是,用VBA做界面,调用这段LISP函数(在LISP函数里将结果数据写成文本文件),再调用Excel制表(直接引用Excel对象).
 楼主| 发表于 2004-8-9 12:10:00 | 显示全部楼层
多谢两位大侠,好的,不过我不是很熟悉LISP程序与Excel连接,回家多看一点书才得。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-18 21:37 , Processed in 0.235309 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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