弧形箭头绘制

fangmin723

2. (defun C:ArcArrow(/ arcsin arrowang arrowhig arrowlocang bulge cenrad center maxbulge minbulge pt1 pt2 pt3 pt4 size spt tan)
   
3.   (defun tan(x) (/ (sin x) (cos x)))
   
4.   (defun arcsin(x) (atan (/ x (expt (- 1 (* x x)) 0.5))))
   
5.   (if (and
   
6.         (setq center (getpoint "\n指定圆心"))
   
7.         (setq cenrad (getdist center "\n弧形箭头中心半径："))
   
8.         (setq arrowlocang (getangle center "\n箭头放置角度："))
   
9.       )
   
10.     (progn
    
11.       (if (not (setq size (getreal "\n箭头大小<2.5>："))) (setq size 2.5))
    
12.       (setq arrowhig (/ size 3.0))
    
13.       (setq arrowang (/ size cenrad))
    
14.       (setq spt (polar center (- arrowlocang arrowang) cenrad))
    
15.       (setq bulge (tan (* arrowang 0.25)))
    
16.       (setq pt1 (polar center arrowlocang cenrad))
    
17.       (setq pt2 (polar center arrowlocang (- cenrad (* arrowhig 0.5))))
    
18.       (setq pt3 (polar center (+ arrowlocang arrowang) cenrad))
    
19.       (setq pt4 (polar center arrowlocang (+ cenrad (* arrowhig 0.5))))
    
20.       (setq minbulge (tan (* (Arcsin (/ (* 0.5 (distance pt2 pt3)) (- cenrad (* arrowhig 0.5)))) 0.5)))
    
21.       (setq maxbulge (tan (* (Arcsin (/ (* 0.5 (distance pt4 pt3)) (+ cenrad (* arrowhig 0.5)))) 0.5)))
    
22.       (entmake
    
23.         (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 6)
    
24.           (cons 10 spt) (cons 42 bulge)
    
25.           (cons 10 pt1)
    
26.           (cons 10 pt2) (cons 42 minbulge)
    
27.           (cons 10 pt3) (cons 42 (* -1 maxbulge))
    
28.           (cons 10 pt4)
    
29.           (cons 10 pt1)
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34.   (prin1)
    
35. )

(defun C:ArcArrow(/ arcsin arrowang arrowhig arrowlocang bulge cenrad center maxbulge minbulge pt1 pt2 pt3 pt4 size spt tan)<br />   (defun tan(x) (/ (sin x) (cos x)))<br />   (defun arcsin(x) (atan (/ x (expt (- 1 (* x x)) 0.5))))<br />   (if (and<br />         (setq center (getpoint "\n指定圆心"))<br />         (setq cenrad (getdist center "\n弧形箭头中心半径："))<br />         (setq arrowlocang (getangle center "\n箭头放置角度："))<br />       )<br />     (progn<br />       (if (not (setq size (getreal "\n箭头大小<2.5>："))) (setq size 2.5))<br />       (setq arrowhig (/ size 3.0))<br />       (setq arrowang (/ size cenrad))<br />       (setq spt (polar center (- arrowlocang arrowang) cenrad))<br />       (setq bulge (tan (* arrowang 0.25)))<br />       (setq pt1 (polar center arrowlocang cenrad))<br />       (setq pt2 (polar center arrowlocang (- cenrad (* arrowhig 0.5))))<br />       (setq pt3 (polar center (+ arrowlocang arrowang) cenrad))<br />       (setq pt4 (polar center arrowlocang (+ cenrad (* arrowhig 0.5))))<br />       (setq minbulge (tan (* (Arcsin (/ (* 0.5 (distance pt2 pt3)) (- cenrad (* arrowhig 0.5)))) 0.5)))<br />       (setq maxbulge (tan (* (Arcsin (/ (* 0.5 (distance pt4 pt3)) (+ cenrad (* arrowhig 0.5)))) 0.5)))<br />       (entmake<br />         (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 6)<br />           (cons 10 spt) (cons 42 bulge)<br />           (cons 10 pt1)<br />           (cons 10 pt2) (cons 42 minbulge)<br />           (cons 10 pt3) (cons 42 (* -1 maxbulge))<br />           (cons 10 pt4)<br />           (cons 10 pt1)<br />         )<br />       )<br />     )<br />   )<br />   (prin1)<br /> )

wangsr

谢谢分享
错误: 输入的字符串有缺陷
2026

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！

uualice2020

谢谢分享！！！1

guosheyang

感谢大佬分享代码！

czb203

感谢大佬分享代码！

wjlove417

命令是啥？

xyz002

感谢大佬分享代码！               

jkop

感谢分享，借鉴代码学习。