(ACR)圆心、半径、起始角度和终止角度画弧

fangmin723

1. ;;;圆心、半径、起始角度和终止角度画弧 by 702099480@qq.com 2023.4.23
   
2. ;;;2024.6.21 动态显示
   
3. (defun c:acr(/ *error* arcdata carc cen dxf50 dxf51 ea gr olderr pt r sa)
   
4.   (setq olderr *error*)
   
5.   (defun *error*(msg) (entdel carc) (princ "\n程序强制已退出！") (princ))
   
6.   (while (/= (type (setq cen (getpoint "\n指定圆弧的圆心[ESC退出]："))) 'LIST))
   
7.   (while (/= (type (setq r (getdist cen "\n指定圆弧的半径[ESC退出]: "))) 'REAL))
   
8.   (while (/= (type (setq sa (getangle cen "\n指定圆弧起始角度[ESC退出]："))) 'REAL))
   
9.   (setq carc (entmakex (list '(0 . "ARC") (cons 10 cen) (cons 40 r) (cons 50 sa) (cons 51 sa))) arcdata (entget carc))
   
10.   (prompt "\n指定圆弧终止角度[ESC退出]：")
    
11.   (while (or (and (setq gr (grread T 15 0)) (= (car gr) 5)) (or (= (car gr) 2) (= (car gr) 11) (= (car gr) 12) (= (car gr) 25)))
    
12.     (if (= (car gr) 5)
    
13.       (progn
    
14.         (setq ea (angle cen (cadr gr)))
    
15.         (setq arcdata (subst (cons 51 ea) (assoc 51 arcdata) arcdata))
    
16.         (entmod arcdata)
    
17.       )
    
18.     )
    
19.   )
    
20.   (prompt "\n请使用【空格】改变圆弧方向,左键单击完成！")
    
21.   (while (or (and (setq gr (grread T 15 0)) (= (car gr) 5)) (or (= (car gr) 2) (= (car gr) 11) (= (car gr) 12) (= (car gr) 25)))
    
22.     (if (equal gr '(2 32))
    
23.       (progn
    
24.         (setq dxf50 (cons 50 (cdr (assoc 51 arcdata))) dxf51 (cons 51 (cdr (assoc 50 arcdata))))
    
25.         (setq arcdata (subst dxf50 (assoc 50 arcdata) arcdata))
    
26.         (setq arcdata (subst dxf51 (assoc 51 arcdata) arcdata))
    
27.         (entmod arcdata)
    
28.       )
    
29.     )
    
30.   )
    
31.   (prin1)
    
32. )
    
33. 
    

;;;圆心、半径、起始角度和终止角度画弧 by <a href="mailto:702099480@qq.com">702099480@qq.com</a> 2023.4.23<br /> ;;;2024.6.21 动态显示<br /> (defun c:acr(/ *error* arcdata carc cen dxf50 dxf51 ea gr olderr pt r sa)<br />   (setq olderr *error*)<br />   (defun *error*(msg) (entdel carc) (princ "\n程序强制已退出！") (princ))<br />   (while (/= (type (setq cen (getpoint "\n指定圆弧的圆心[ESC退出]："))) 'LIST))<br />   (while (/= (type (setq r (getdist cen "\n指定圆弧的半径[ESC退出]: "))) 'REAL))<br />   (while (/= (type (setq sa (getangle cen "\n指定圆弧起始角度[ESC退出]："))) 'REAL))<br />   (setq carc (entmakex (list '(0 . "ARC") (cons 10 cen) (cons 40 r) (cons 50 sa) (cons 51 sa))) arcdata (entget carc))<br />   (prompt "\n指定圆弧终止角度[ESC退出]：")<br />   (while (or (and (setq gr (grread T 15 0)) (= (car gr) 5)) (or (= (car gr) 2) (= (car gr) 11) (= (car gr) 12) (= (car gr) 25)))<br />     (if (= (car gr) 5)<br />       (progn<br />         (setq ea (angle cen (cadr gr)))<br />         (setq arcdata (subst (cons 51 ea) (assoc 51 arcdata) arcdata))<br />         (entmod arcdata)<br />       )<br />     )<br />   )<br />   (prompt "\n请使用【空格】改变圆弧方向,左键单击完成！")<br />   (while (or (and (setq gr (grread T 15 0)) (= (car gr) 5)) (or (= (car gr) 2) (= (car gr) 11) (= (car gr) 12) (= (car gr) 25)))<br />     (if (equal gr '(2 32))<br />       (progn<br />         (setq dxf50 (cons 50 (cdr (assoc 51 arcdata))) dxf51 (cons 51 (cdr (assoc 50 arcdata))))<br />         (setq arcdata (subst dxf50 (assoc 50 arcdata) arcdata))<br />         (setq arcdata (subst dxf51 (assoc 51 arcdata) arcdata))<br />         (entmod arcdata)<br />       )<br />     )<br />   )<br />   (prin1)<br /> )<br /> <br />

fangmin723

cjf160204 发表于 2024-6-21 15:56
主要就是角度的设置

拿走，不谢！！！

1. (entmake
   
2.         (list '(0 . "ARC")
   
3.                 (cons 10 (setq cen (getpoint "\n指定圆心")))
   
4.                 (cons 40 (getdist cen "\n指定半径"))
   
5.                 (cons 50 (setq sang (angle cen (getpoint cen "\n指定起点"))))
   
6.                 (cons 51 (+ sang (* pi (/ (getreal "\n指定角度(°)") 180.0))))
   
7.         )
   
8. )

(entmake<br />         (list '(0 . "ARC") <br />                 (cons 10 (setq cen (getpoint "\n指定圆心"))) <br />                 (cons 40 (getdist cen "\n指定半径")) <br />                 (cons 50 (setq sang (angle cen (getpoint cen "\n指定起点"))))<br />                 (cons 51 (+ sang (* pi (/ (getreal "\n指定角度(°)") 180.0))))<br />         )<br /> )

fangmin723

cjf160204 发表于 2024-6-21 15:41
大神，就像简单  起点，圆心，半径，角度这四个参数

额，这个，在我的基础上稍微改改就出来了，【(angle 圆心 起点) + 角度】不就是终止角度了吗

fangmin723

moranyuyan 发表于 2024-6-23 16:38
到“终止角度”这一步时，为什么没了捕捉。

grread不带捕捉，你们如果需要捕捉，那就动态显示不了，自己改改就行

cjf160204

大神，就像简单  起点，圆心，半径，角度这四个参数

你有种再说一遍

cjf160204 发表于 2024-6-21 15:41
大神，就像简单  起点，圆心，半径，角度这四个参数

去学c#吧,ifox都封装好了

cjf160204

fangmin723 发表于 2024-6-21 15:54
额，这个，在我的基础上稍微改改就出来了

不太会啊，参数太多

cjf160204

cjf160204 发表于 2024-6-21 15:55
不太会啊，参数太多

主要就是角度的设置

fangmin723

你有种再说一遍 发表于 2024-6-21 15:52
去学c#吧,ifox都封装好了

，大神，指点下AOT编译呗

你有种再说一遍

fangmin723 发表于 2024-6-21 15:58
，大神，指点下AOT编译呗

搞锤子搞,别搞了

fangmin723

你有种再说一遍 发表于 2024-6-21 16:10
搞锤子搞,别搞了

哈哈哈，听大神的，不搞了，不搞了