[已解决]请高手帮忙做个简单的等分工具

zhynt

2. 
   
3. (defun c:adf (/            sel          el        e     n            ju          pt0        r     angs
   
4.               ange  pts          pte        ang   larc  larc_s        larc_ju
   
5.               po_en m
   
6.              )
   
7.   (setvar "CMDECHO" 0)
   
8.   (setq sel (car (entsel "\n请选择圆弧:<Exit> ")))
   
9.   (if (/= sel nil)
   
10.     (progn
    
11.       (setq el (entget sel))
    
12.       (setq e (assoc 0 el))
    
13.       (if (= "ARC" (cdr e))
    
14.         (progn
    
15.           (setq n (getint "\n等分数:"))
    
16.           (setq ju (getreal "\n等分间距:"))
    
17.           (setq pt0 (cdr (assoc 10 el)))
    
18.           (setq r (cdr (assoc 40 el)))
    
19.           (setq angs (cdr (assoc 50 el)))
    
20.           (setq ange (cdr (assoc 51 el)))
    
21.           (setq        pts (polar pt0 angs r)
    
22.                 pte (polar pt0 ange r)
    
23.           )
    
24.           (setq ang (- ange angs))
    
25.           (if (< ang 0)
    
26.             (setq ang (- (* 2 pi) (abs ang)))
    
27.           )
    
28.           (setq larc (* r ang))
    
29.           (setq larc_s (/ (- larc (* ju (- n 1))) n))
    
30.           (setq ang_s (* (/ (/ larc_s r) pi) 180.00))
    
31.           (setq ang_ju (* (/ (/ ju r) pi) 180.00))       
    
32.           (command "point" pts)
    
33.           (command "ROTATE" "L" "" pt0 ang_s)
    
34.           (command "copy" "l" "" "@" "@")
    
35.           (setq m 0)
    
36.           (setq n1 (- n 2))
    
37.           (while (/= n1 m)
    
38.             (command "rotate" "l" "" pt0 (+ ang_s ang_ju))
    
39.             (command "copy" "l" "" "@" "@")
    
40.             (setq n1 (- n1 1))
    
41.           )
    
42.           (command "point" pts)
    
43.           (command "ROTATE" "L" "" pt0 (+ ang_s ang_ju))
    
44.           (command "copy" "l" "" "@" "@")
    
45.           (setq m 0)
    
46.           (setq n1 (- n 2))
    
47.           (while (/= n1 m)
    
48.             (command "rotate" "l" "" pt0 (+ ang_s ang_ju))
    
49.             (command "copy" "l" "" "@" "@")
    
50.             (setq n1 (- n1 1))
    
51.           )
    
52.         )
    
53.       )
    
54.     )
    
55.   )
    
56. )
    

<br /> (defun c:adf (/            sel          el        e     n            ju          pt0        r     angs<br />               ange  pts          pte        ang   larc  larc_s        larc_ju<br />               po_en m<br />              )<br />   (setvar "CMDECHO" 0)<br />   (setq sel (car (entsel "\n请选择圆弧:<Exit> ")))<br />   (if (/= sel nil)<br />     (progn<br />       (setq el (entget sel))<br />       (setq e (assoc 0 el))<br />       (if (= "ARC" (cdr e))<br />         (progn<br />           (setq n (getint "\n等分数:"))<br />           (setq ju (getreal "\n等分间距:"))<br />           (setq pt0 (cdr (assoc 10 el)))<br />           (setq r (cdr (assoc 40 el)))<br />           (setq angs (cdr (assoc 50 el)))<br />           (setq ange (cdr (assoc 51 el)))<br />           (setq        pts (polar pt0 angs r)<br />                 pte (polar pt0 ange r)<br />           )<br />           (setq ang (- ange angs))<br />           (if (< ang 0)<br />             (setq ang (- (* 2 pi) (abs ang)))<br />           )<br />           (setq larc (* r ang))<br />           (setq larc_s (/ (- larc (* ju (- n 1))) n))<br />           (setq ang_s (* (/ (/ larc_s r) pi) 180.00))<br />           (setq ang_ju (* (/ (/ ju r) pi) 180.00))        <br />           (command "point" pts)<br />           (command "ROTATE" "L" "" pt0 ang_s)<br />           (command "copy" "l" "" "@" "@")<br />           (setq m 0)<br />           (setq n1 (- n 2))<br />           (while (/= n1 m)<br />             (command "rotate" "l" "" pt0 (+ ang_s ang_ju))<br />             (command "copy" "l" "" "@" "@")<br />             (setq n1 (- n1 1))<br />           )<br />           (command "point" pts)<br />           (command "ROTATE" "L" "" pt0 (+ ang_s ang_ju))<br />           (command "copy" "l" "" "@" "@")<br />           (setq m 0)<br />           (setq n1 (- n 2))<br />           (while (/= n1 m)<br />             (command "rotate" "l" "" pt0 (+ ang_s ang_ju))<br />             (command "copy" "l" "" "@" "@")<br />             (setq n1 (- n1 1))<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br />

daidong013

回复 userzhl 的帖子

是个好工具，发上源码分享一下！~~

死神去了

学习了，呵呵，不过高手都是发图片，木有程序啊

raimo

死神去了 发表于 2011-6-21 18:14
学习了，呵呵，不过高手都是发图片，木有程序啊

呵呵,院长是这样的.图片演示专业勾人

xyp1964

下一版工具箱会添加此功能

my_mjtd

CAD不是有命令“divide” 吗？
等分有那么麻烦吗？

当然，做个小程序出来当然更方便了

429014673

zhynt 发表于 2011-6-21 15:01

       不知zhynt 可有时间在我改下程序，当时我以为用“点”来作为每个分格可用批量打断命令可以打断的，今日一试，打断不了，最好可以改为在圆心那一侧有一条直线（长度：0.1倍半径值，直线在03分格层）垂直于该圆弧，那些点就不要了，麻烦下了。
       在工作中还经常遇到这个的情况，别人测量了很多弧长，回来要把每一个数值1：1画在图纸上,如果没有程序这样的工作量可想而知，测量的每一段弧长不一样，但小格弧长还是15(默认为15，当然还有其它的长度)，可不可以写一个只要输入每一个大格的尺寸（小格还是比大格少一格），弧长的分格开始端是该弧长端点的靠近端（即是是可以点选是从哪个端点开始分格），都是希望可以有那些垂直的分格直线（直线在03分格层）。
        多谢你前面帮忙写的那个程序，祝你工作顺利。分值不多，小小心意。

raimo

回复 my_mjtd 的帖子

老兄,等分的方式不同...divided只是点..

zhynt

我想知道是干什么用的，别人测量的弧长是用什么方式和格式记录的。光知道弧长可画不出圆弧，还要知道半径或弧度。