自动筛选大于指定半径的圆弧，取得圆弧起点终点

yjsksjscn

小弟经常会碰到图形中有很多的圆弧，
有的圆弧的半径值很大，如果保留这样的圆弧，机器就会出现识别错误的情况。
通常我都将半径大于1000的圆弧换成直线。
但是手工很慢，LISP的群码中我又找不到圆弧起点终点的代码。
VLISP用下面的语句也取不到起点终点。那位老大出手帮一把。

(setq ybj (vla-get-arclength (vlax-ename->vla-object ss2)))
    (setq spt (vlax-safearray->list(vlax-variant-value(vla-get-startpoint ss2))))
    (setq ept (vlax-safearray->list(vlax-variant-value(vla-get-endpoint ss2))))
    (if (> ybj 500)
      (progn
        (entdel ss2)
        (command "line" spt ept "")
        )
      )

【KAIXIN】

2. 试试：
   
3. 
   
4. ;选取半径大于1000的圆
   
5. (setq ss (ssget '
   
6.           ((-4 . "<and")
   
7.             (0 . "ARC")
   
8.             (-4 . ">")(40 . 1000)
   
9.            (-4 . "and>")
   
10.           )
    
11.          )
    
12. )

试试：<br /> <br /> ;选取半径大于1000的圆<br /> (setq ss (ssget '<br />           ((-4 . "<and")<br />             (0 . "ARC")<br />             (-4 . ">")(40 . 1000)<br />            (-4 . "and>")<br />           )<br />          ) <br /> )

Andyhon

(cond
((null (setq ss (ssget "X" '((-4 . ">") (40 . 1000))))))
(T
  (setq nn (sslength ss))
  (While (setq ee (ssname ss (setq nn (1- nn))))
    (vl-cmdf "Line"
       (vlax-curve-getStartPoint ee)
       (vlax-curve-getEndPoint ee)
       ""
    )
    (entdel ee)
)))   

yjsksjscn

多谢 andyhon 长老的帮助，完全可行。
小弟这两天又其它事，没能及时感谢，很抱歉。
以后还望长老罩着小弟。
问个小问题， -4 是指的什么，我在点对表里没看到。

Andyhon

Relational Tests

yjsksjscn

Andyhon 发表于 2012-12-1 10:45
Relational Tests

多谢！
另外再问个问题：
点对表中，(40 . 1000)
这个1000可以用变量来替代吗？
我试了一下，好像不行。

Andyhon

(setq rad 999)
(setq ss (ssget "X" (list '(-4 . ">") (cons 40 rad))))

yjsksjscn

Andyhon 发表于 2012-12-3 09:59
(setq rad 999)
(setq ss (ssget "X" (list '(-4 . ">") (cons 40 rad))))

多谢了！看来基本功还是不扎实呀。
程序完成了，实现了预期的效果。非常感谢长老的帮助。

现在我将画的直线放置在了另一个图层上。
如果想要放置在同一个图层上，但是用指定的颜色画直线，该如何写呀？