将线指定属性名～统计长度

fkyourmather

将线上输入命令dtxt的时候输入v-1～此时就给线定义了一个v—1名字，指定v-1在统计长度！统计长度后可以在定义一个模块可以输入加减乘除～处理数据满足要求

Free-Lancer

给线增加一个 XDATA,后面可以用ssget 过滤选择

liuyun242

可以用图层进行分区，在统计各图层中线的长度

现提供一个统计线长度的函数

2. 
   
3. ;ss-选择集
   
4. ;返回长度，线条数量
   
5. (defun sslen (ss / ent eobj i len n rr slen)
   
6.   (if ss
   
7.     (setq n (sslength ss))
   
8.   )
   
9.   (if (> n 0)
   
10.     (progn
    
11.       (setq i 0
    
12.      len 0.0
    
13.       )
    
14.       (repeat n
    
15. (setq ent (ssname ss i)
    
16.        eobj (vlax-ename->vla-object ent)
    
17.        i (1+ i)
    
18. )
    
19. (if (= (Vlax-Get-property eobj 'objectname) "AcDbArc")
    
20.    (setq slen (Vlax-Get-property eobj 'Arclength))
    
21.    (setq slen (Vlax-Get-property eobj 'length))
    
22. )
    
23. (setq slen (* (fix (+ 0.5 slen)) 1.0)
    
24.        len (+ len slen)
    
25. )          ; slen (fix (+ 0.5 slen))
    
26.       )
    
27.       (setq rr (list len n))
    
28.     )
    
29.   )
    
30.   (setq rr rr)
    
31. )

<br /> ;ss-选择集<br /> ;返回长度，线条数量<br /> (defun sslen (ss / ent eobj i len n rr slen)<br />   (if ss<br />     (setq n (sslength ss))<br />   )<br />   (if (> n 0)<br />     (progn<br />       (setq i 0<br />      len 0.0<br />       )<br />       (repeat n<br /> (setq ent (ssname ss i)<br />        eobj (vlax-ename->vla-object ent)<br />        i (1+ i)<br /> )<br /> (if (= (Vlax-Get-property eobj 'objectname) "AcDbArc")<br />    (setq slen (Vlax-Get-property eobj 'Arclength))<br />    (setq slen (Vlax-Get-property eobj 'length))<br /> )<br /> (setq slen (* (fix (+ 0.5 slen)) 1.0)<br />        len (+ len slen)<br /> )          ; slen (fix (+ 0.5 slen))<br />       )<br />       (setq rr (list len n))<br />     )<br />   )<br />   (setq rr rr)<br /> )

Lispboy

需要你在画线的时候就要把扩展实体数据填加到线上才行。实现每做，就上来找指定名字的线是不可能的。

fkyourmather

Free-Lancer 发表于 2013-5-17 16:48
给线增加一个 XDATA,后面可以用ssget 过滤选择

可以帮忙建立一个吗

fkyourmather

Lispboy 发表于 2013-5-18 00:09
需要你在画线的时候就要把扩展实体数据填加到线上才行。实现每做，就上来找指定名字的线是不可能的。

用dcl来做～可以实现～

fkyourmather

Free-Lancer 发表于 2013-5-17 16:48
给线增加一个 XDATA,后面可以用ssget 过滤选择

可是不是很了解！可以具体点吗