求教：提取标注内容并写入文件

shirleyklove

比如一段管道，需要提取其起点，终点，编号，管径，标高等。起点，终点通过访问图元可以提取到，标注中的管径，标高等信息需要从标注中提取，这方面不是很了解，求大神指教。新手上图都不会啊，我试着弄一下啊。

2. ;vla方法获取起点,终点,长度,角度
   
3. (defun GETPro (ent)
   
4.   (vl-load-com)
   
5.   (setq vlobject (vlax-ename->vla-object ent))
   
6.   (setq sp (vlax-get vlobject 'startpoint))
   
7.   ;(princ sp)
   
8.   ;(print)
   
9.   (setq ep (vlax-get vlobject 'endpoint))
   
10.   ;(princ ep)
    
11.   ;(print)
    
12.   (setq L (vlax-get vlobject 'length))
    
13.   ;(princ L)
    
14.   ;(print)
    
15.   (setq ang(vlax-get vlobject 'angle))
    
16.   ;(princ ang)
    
17.   ;(print)

;vla方法获取起点,终点,长度,角度<br /> (defun GETPro (ent)<br />   (vl-load-com)<br />   (setq vlobject (vlax-ename->vla-object ent))<br />   (setq sp (vlax-get vlobject 'startpoint))<br />   ;(princ sp)<br />   ;(print)<br />   (setq ep (vlax-get vlobject 'endpoint))<br />   ;(princ ep)<br />   ;(print)<br />   (setq L (vlax-get vlobject 'length))<br />   ;(princ L)<br />   ;(print)<br />   (setq ang(vlax-get vlobject 'angle))<br />   ;(princ ang)<br />   ;(print)

fl202

标高写入文件有什么用？
最好上图，从你的标注文字中，找规律。

要写入什么文件中？管道索引表吗？

shirleyklove

fl202 发表于 2015-6-10 17:33
标高写入文件有什么用？
最好上图，从你的标注文字中，找规律。

上图只是举了一个例子，就是管径，该如何提取。最终想要转成三维的，就要求有起，终点，管径这些数据。
写入文本文件.txt就行。
格式如下应该可以吧：
（起点）（终点）管径
例如：（1000，1000） （1500，1000）50
图上的50该怎么提取，尽量与起点，终点一起提取
这下我说明白了没有？

edata

Signature

object.Measurement

object

Dim3PointAngular, DimAligned, DimAngular, DimArcLength, DimDiametric, DimOrdinate, DimRadial, DimRadialLarge, DimRotated
The object or objects this property applies to.

Measurement


Double; read-only
For linear dimensions this is a length, for angular dimensions it is an angle.

object.TextOverride

object

Dim3PointAngular, DimAligned, DimAngular, DimArcLength, DimDiametric, DimOrdinate, DimRadial, DimRadialLarge, DimRotated
使用该属性的对象。

TextOverride

String[字符串]; 可读写
最大长度为 256 个字符。

edata

按你的写法，(vlax-get vlobject  'measurement )获得实际测量值。
实际上lisp比这个简单。。
(cdr(assoc 42 (entget ent)))