[求助]：有关如何均分一个物体

R-HIHI

请教一下，有时候我需要把一个圆弧截断成几个段，用Divide只能在上面搞几个很小很小的点，而且用break也是只能从一点断开，如果是两点的话就把当中的DEL了，我一直香知道有没什么好办法一次能把弧线分成数段并且断开，知道的朋友们拉我一把啊*-*3 *-*3 *-*3 *-*3 *-*3 *-*3

snsj

最初由 R-HIHI 发布
[B]请教一下，有时候我需要把一个圆弧截断成几个段，用Divide只能在上面搞几个很小很小的点，而且用break也是只能从一点断开，如果是两点的话就把当中的DEL了，我一直香知道有没什么好办法一次能把弧线分成数段并且断开... [/B]

写个LISP就能解决，试试这个

2. 
   
3. ;;;等分断开线
   
4. ;;;制作SNSJ，2004.2.9
   
5. (defun c:dk (/ ss int getdst obj getdiv ssnm pt i getds getact)
   
6. (vl-load-com)
   
7. (vla-startundomark(setq getact(vla-get-activedocument (vlax-get-acad-object))))
   
8. (setq ss (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE,ARC"))) i 0)  
   
9. (initget (+ 2 4))
   
10.   (setq int (getint "\n定数等分<直接输入等分数>/定距等分<回车>:"))
    
11.   (if (null int)(setq getdst (getdist "\n***输入要等分的距离<可直接量取>***:")))
    
12. (repeat (sslength ss)
    
13. (setq obj (vlax-ename->vla-object(setq ssnm (ssname ss i))))
    
14. (cond
    
15.    ((null int) (setq getdiv getdst)(setq int (+(fix(/ (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)) getdst))1)))  
    
16. (t (setq getdiv (/(vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))int)))
    
17.       )
    
18. (repeat (- int 1)
    
19.   (setq getds (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
    
20. (vl-cmdf ".break"  ssnm (setq pt (vlax-curve-getPointAtDist obj (- getds getdiv))) pt)  
    
21.   )
    
22.   (setq i (+ i 1))
    
23.   )   
    
24.   (vla-endundomark getact)
    
25.   (princ)
    
26. )
    

<br /> ;;;等分断开线<br /> ;;;制作SNSJ，2004.2.9<br /> (defun c:dk (/ ss int getdst obj getdiv ssnm pt i getds getact)<br /> (vl-load-com)<br /> (vla-startundomark(setq getact(vla-get-activedocument (vlax-get-acad-object))))<br /> (setq ss (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE,ARC"))) i 0)  <br /> (initget (+ 2 4))<br />   (setq int (getint "\n定数等分<直接输入等分数>/定距等分<回车>:"))<br />   (if (null int)(setq getdst (getdist "\n***输入要等分的距离<可直接量取>***:")))<br /> (repeat (sslength ss)<br /> (setq obj (vlax-ename->vla-object(setq ssnm (ssname ss i))))<br /> (cond<br />    ((null int) (setq getdiv getdst)(setq int (+(fix(/ (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)) getdst))1)))  <br /> (t (setq getdiv (/(vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))int)))<br />       )<br /> (repeat (- int 1)<br />   (setq getds (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))<br /> (vl-cmdf ".break"  ssnm (setq pt (vlax-curve-getPointAtDist obj (- getds getdiv))) pt)  <br />   )<br />   (setq i (+ i 1))<br />   )   <br />   (vla-endundomark getact)<br />   (princ)<br /> )<br />

下载地址：http://www.xdcad.net/modrator/fi ... 0040222125659_0.swf

<embed src=http://www.xdcad.net/modrator/file_upload/4508/20040222125659_0.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

R-HIHI

真的太感谢了，都不知道怎么表达了，还是这里温暖，不是那种炫耀性的论坛，谢谢酷猫斑主啊


等等，我刚才加载了一下，不认命令，是不是不支持cad2002啊，希望版主再帮帮忙啊

错误显示：错误: no function definition: VLAX-GET-ACAD-OBJECT

snsj

2002需要加上(vl-load-com)已经加上了，重新下载试试

R-HIHI

已经能用了，我试了一下，对于分两点是很好的，但是断数一多，比如6段，就会出现部分消失的情况，留下来的长短一样，酷猫版主自己能写lisp啊，真是高手

snsj

当时我测试2002中也有这样的问题，主要和对象捕捉的打开有关，用的时候关了捕捉就没事，2004中开关捕捉都没事

R-HIHI

那我再试试看，不过早晚要用2004的，这个不是一个问题，关键是用惯了下载不习惯买盘了，哈哈，所以还没用上2004，不过听说2005又出来了，进步真TNND的快

snsj

试试要是不行我再查找原因，网上有下载2004的呀，2004感觉不错

tj2001

我用的才是14，555555