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

fangmin723

特别提醒：终止角度没有捕捉和输入指定角度的功能

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

;;;圆心、半径、起始角度和终止角度画弧 2023.4.23<br /> ;;;2024.6.21 动态显示<br /> <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程序强制已退出！") (setq *error* olderr) (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 />   (setq *error* olderr)<br />   (prin1)<br /> )

具体用归何处，参考：https://www.bilibili.com/video/BV1Xa4y1P75d

还是CAD.Net给力，不影响捕捉和角度值的输入

自贡黄明儒

getdist不是initget控制的吗？

fangmin723

自贡黄明儒 发表于 2025-1-17 07:57
getdist不是initget控制的吗？

可以用initget来控制程序功能走向，当时没有考虑那么多，就着当时的情况以及想要的效果写的

xyp1964

;;加个动态角度显示可能更直观