ZB(导出坐标).LSP程序源文件,修改程序用
ZB(导出坐标).VLX编译好的文件,供加载,工作.
加载程序
菜单栏 工具-AutoLisp-加载...点击"启动组"点击"添加"选择"ZB(导出坐标).VLX"文件,,添加完成后关闭对话框即可.(第一次添加好后以后就可以直接使用)
在命令行输入"zb"即可启动程序,按提示操作即可
对选择的圆放入"导出层"并把颜色设置成了随层
可以连续选取不同图层,不同颜色的多种类型的圆
按e键可退出程序编辑发现的问题
按x接着选择圆
按d导出"导出层"上所有圆的圆心坐标,文件放在c盘下,并和当前文件名相似.
QQ:278416560
;;;wkq004 QQ:278416560 2009.02.24
(vl-load-com)
(defun c:tt (/ CENTER COLOR DIRECTORY E E2
E2L EEL EL FILENAME FL LAYERNAME
MYACAD N SS SS2 SS3 SSE START
STRING XH1 XH2
)
(setvar "cmdecho" 0)
(setq osmode (getvar "osmode"))
(setvar "osmode" 0)
(command "layer" "M" "导出层