[编程申请]：那位大侠帮我写个画矩形框的LISP程序

qsb506

我在许多论坛上看到关于画任意图形中心线的插件，我想能否在此基础上同时再画出上下左右边界所围成的矩形框。另外还想求个程序，功能是对用Window或Crossing选中图形中的圆弧进行半径判定，对大于500的用N段特定颜色的直线替换。我先谢了！
这是我自已写的，只找到大于500的圆弧，并做了五等分，下一步自动用直线连接的就不会了，希望那位高手帮我补上。

(defun c:CC( / ent1 ssset k n)
(setq k 0)
(setq ssset (ssget "X"'((0 . "ARC") (-4 . ">=") (40 . 500.0))))
  (setq n (sslength ssset))
  (while (<= k n)
  (setq ent1 (ssname ssset k))
    (command "divide" ent1 5)   
(setq k (1+ k))
)                  
)

北斗七星

有空我帮你补一下
请回下帖，我将程序帖上来

dxs123

请问你把程序写好了怎么调到CAD里去呀

北斗七星

楼上的你这也不会吗，
还是学一下入门吧

haibinpro

ap调入。

北斗七星

楼主不知怎么在跑那去了，
我写好了一个程序，大家试试，不错的
程序：

2. 
   
3. ;;;;;;;;;;;;将曲线分成几段直线的程序  
   
4. ;;;;;;;;;;;;特别注意：运行此程序必须在WCS中，切记切记！！！！！！！！
   
5. (defun cur->line(n  /  cur-ob cur-set-dist number) ;n为分段直线的数目，必须为正整数！！！
   
6.   (vl-load-com)
   
7.   (setq cur-ob(VLAX-ENAME->VLA-OBJECT(car(entsel "\n请选择一曲线")))
   
8.         cur-set-dist (/ (vlax-curve-getdistatparam  cur-ob (vlax-curve-getendparam  cur-ob))  n)
   
9.         number 0)
   
10.   (repeat n
    
11.     (command "line"  (vlax-curve-getpointatdist cur-ob (* number cur-set-dist))
    
12.              (vlax-curve-getpointatdist cur-ob (* (setq number(1+ number)) cur-set-dist))
    
13.              "")
    
14.     );repeat over
    
15.   ) ;program over

<br /> ;;;;;;;;;;;;将曲线分成几段直线的程序  <br /> ;;;;;;;;;;;;特别注意：运行此程序必须在WCS中，切记切记！！！！！！！！ <br /> (defun cur->line(n  /  cur-ob cur-set-dist number) ;n为分段直线的数目，必须为正整数！！！ <br />   (vl-load-com) <br />   (setq cur-ob(VLAX-ENAME->VLA-OBJECT(car(entsel "\n请选择一曲线")))<br />         cur-set-dist (/ (vlax-curve-getdistatparam  cur-ob (vlax-curve-getendparam  cur-ob))  n)<br />         number 0)<br />   (repeat n<br />     (command "line"  (vlax-curve-getpointatdist cur-ob (* number cur-set-dist))<br />              (vlax-curve-getpointatdist cur-ob (* (setq number(1+ number)) cur-set-dist))<br />              "")<br />     );repeat over<br />   ) ;program over