过滤相同线长

amwkto2011

1. (defun c:Tt(/ sel ar p1 p2 di ist get len n add name ent n1 n2 ce )
   
2.   (princ "\n功能 [选择相同线长]")
   
3.   (setq sel (entsel "\n点取直线:"))
   
4.   (setq ar (entget (car sel)))
   
5.   (setq p1 (cdr (assoc 10 ar))
   
6.   p2 (cdr (assoc 11 ar))
   
7.   )
   
8.   (setq di (distance p1 p2))
   
9.   (princ (strcat "\n参照直线长度为<" (rtos di 2 2) ">"))
   
10.   (setq ist (getdist "\n输入线长误差值 <0.3>:"))
    
11.   (if (null ist ) (setq ist 0.3))
    
12.   (setq get (ssget (list (assoc 0 ar))))
    
13.   (setq len (sslength get)
    
14.   n 0)
    
15.   (setq add (ssadd))
    
16.   (while (< n len)
    
17.     (setq name (ssname get n))
    
18.     (setq ent (entget name))
    
19.     (setq n1 (cdr (assoc 10 ent))
    
20.     n2 (cdr (assoc 11 ent))
    
21.   )
    
22.     (setq ce (distance n1 n2))
    
23.     (if (equal di ce ist) (ssadd name add))
    
24.     (setq n (1+ n))
    
25.     )
    
26.    (if add (sssetfirst nil add))
    
27.    (princ)
    
28.   )

(defun c:Tt(/ sel ar p1 p2 di ist get len n add name ent n1 n2 ce )<br />   (princ "\n功能 [选择相同线长]")<br />   (setq sel (entsel "\n点取直线:"))<br />   (setq ar (entget (car sel)))<br />   (setq p1 (cdr (assoc 10 ar))<br />   p2 (cdr (assoc 11 ar))<br />   )<br />   (setq di (distance p1 p2))<br />   (princ (strcat "\n参照直线长度为<" (rtos di 2 2) ">"))<br />   (setq ist (getdist "\n输入线长误差值 <0.3>:"))<br />   (if (null ist ) (setq ist 0.3))<br />   (setq get (ssget (list (assoc 0 ar))))<br />   (setq len (sslength get)<br />   n 0)<br />   (setq add (ssadd))<br />   (while (< n len)<br />     (setq name (ssname get n))<br />     (setq ent (entget name))<br />     (setq n1 (cdr (assoc 10 ent))<br />     n2 (cdr (assoc 11 ent))<br />   )<br />     (setq ce (distance n1 n2))<br />     (if (equal di ce ist) (ssadd name add))<br />     (setq n (1+ n))<br />     )<br />    (if add (sssetfirst nil add))<br />    (princ)<br />   )

这样写只能选到直线的。

像圆弧，曲线，多线段，没办法用组码10 11来取到它的线长。
有没有一个这样函数，点中它，就返回它的长度

st788796

计算长度没问题，不能直接过滤
(xdrx_getpropertyvalue e "length")
(vla-ger-length obj)
(vlax-curve-getdistatparam e (vlax-curve-getendparam e))

amwkto2011

st788796 发表于 2014-11-26 14:49
计算长度没问题，不能直接过滤
(xdrx_getpropertyvalue e "length")
(vla-ger-length obj)

谢谢解答------------------