明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4417|回复: 13

关于VBA的输出问题

  [复制链接]
发表于 2004-6-6 19:16 | 显示全部楼层 |阅读模式
请问用VBA能不能实现将图的一些数据写入一个文件。如TEXT!然后还可以把该数据读入图中。想LISP一样!
 楼主| 发表于 2004-6-6 20:03 | 显示全部楼层
自己顶!
发表于 2004-6-6 20:16 | 显示全部楼层
  1. Option Explicit'将数据写入文件Public Sub WriteToFile()
  2.        Dim TextObj As AcadText
  3.        Set TextObj = ThisDrawing.ModelSpace(0)
  4.        Open "C:\ACADText.txt" For Output As #1
  5.        Write #1, TextObj.TextString
  6.        Close #1
  7. End Sub'从文件读出数据Public Sub ReadFromFile()
  8.        Dim TextObj As AcadText
  9.        Set TextObj = ThisDrawing.ModelSpace(0)
  10.        Dim s As String
  11.        Open "C:\ACADText.txt" For Input As #1
  12.        Input #1, s
  13.        TextObj.TextString = s
  14.        Close #1
  15. End Sub
 楼主| 发表于 2004-6-6 21:03 | 显示全部楼层
谢谢尹凡
我可以先不去啃ADL了
 楼主| 发表于 2004-6-6 21:14 | 显示全部楼层
我在CAD里面画了一条线。然后运行了下。提示类型不匹配!
发表于 2004-6-6 22:07 | 显示全部楼层
类型不对是因为我是用文字对象来测试,你先新建一张图纸,然后创建一个单行文字的实体,就可以运行了。
 楼主| 发表于 2004-6-7 09:13 | 显示全部楼层
哦。谢谢哈!
 楼主| 发表于 2004-6-7 16:40 | 显示全部楼层
请尹凡在指点我下。我现在卡壳了。一下午没什么 进展!


就是如果想把任意一个点的坐标输出到一个文件里面!
发表于 2004-6-10 22:43 | 显示全部楼层
Option Explicit Sub WriteToFile()
Dim sset As AcadSelectionSet
Dim i As Integer
Dim txtout As String
Dim coord As Variant
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
Set sset = ThisDrawing.SelectionSets.Add("tt")
sset.SelectOnScreen

For i = 0 To sset.Count - 1
coord = sset.Item(i).Coordinates
txtout = txtout & coord(0) & "," & coord(1) & "," & coord(2) & vbCrLf
Next Open "l:\ACADText.txt" For Output As #1
Print #1, txtout
Close #1
End Sub
 楼主| 发表于 2004-6-14 15:32 | 显示全部楼层
谢谢斑竹,因为忙别的事,好久没来了。但是好象没有输出啊。文本里面是空白啊!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 13:50 , Processed in 0.236151 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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