谁能帮我用LISP语言计算出这个图中的值

wangds

谁能帮我用LISP语言计算出这个图中的值

xxzwtr

什么意思呀


如果知道值很容易算的呀

wangds

我是想“选这条线围起来的图形，能自动计算出这个值”

wangds

有人帮忙看一下吗

xyp1964

;必须以原图为基准作拉伸处理，否则会出错。

2. (defun c:test022 ()
3.    (while (setq s1 (entsel "\n\t选择对象<退出> : "))
4.        (setq eobj  (vlax-ename->vla-object (car s1))
5.      pt0  (vlax-curve-getPointAtParam eobj 0)
6.      pt1  (vlax-curve-getPointAtParam eobj 1)
7.      pt2  (vlax-curve-getPointAtParam eobj 2)
8.      pt3  (vlax-curve-getPointAtParam eobj 3)
9.      pt4  (vlax-curve-getPointAtParam eobj 4)
10.      pt5  (vlax-curve-getPointAtParam eobj 5)
11.      pt6  (vlax-curve-getPointAtParam eobj 6)
12.      pt7  (vlax-curve-getPointAtParam eobj 7)
13.      pt8  (vlax-curve-getPointAtParam eobj 8)
14.      pt9  (vlax-curve-getPointAtParam eobj 9)
15.      B  (abs (distance pt0 pt1))
16.      A  (abs (distance pt1 pt2))
17.      AH  (abs (distance pt2 pt3))
18.      pt-BH  (inters  (_midP pt0 pt1)
19.       (_midPUP pt0 pt1 100)
20.       pt4
21.       pt5
22.       nil
23.     )
24.      BH  (abs (distance (_midP pt0 pt1) pt-BH))
25.      c  (abs (distance pt0 pt9))
26.      pt-cH  (inters  (_midP pt0 pt9)
27.       (_midPUP pt0 pt9 100)
28.       pt6
29.       pt5
30.       nil
31.     )
32.      CH  (abs (distance (_midP pt0 pt9) pt-cH))
33.      D  (abs (distance pt8 pt9))
34.      DH  (abs (distance pt8 pt7))
35.      num  (+ (/ a ah) (/ b bh) (/ c ch) (/ d dh))
36.        )
37.        (grvecs (list 1
38.        pt8
39.        pt9
40.        1
41.        pt9
42.        pt0
43.        1
44.        pt0
45.        pt1
46.        1
47.        pt1
48.        pt2
49.        2
50.        pt2
51.        pt3
52.        2
53.        pt7
54.        pt8
55.        2
56.        pt-ch
57.        (_midP pt0 pt9)
58.        2
59.        pt-bh
60.        (_midP pt0 pt1)
61.          )
62.        )
63.        (princ "\n数值 = ")
64.        (princ num)
65.    )
66.    (princ)
67. )
68. (defun _midp (p1 p2)
69.    (list  (+ (/ (- (car p1) (car p2)) 2) (car p2))
70.   (+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2))
71.    )
72. )
73. (defun _midPUP (pta ptb fb)
74.    (polar (_midP pta ptb) (+ (angle pta ptb) (/ pi 2)) fb)
75. )

(defun c:test022 ()    (while (setq s1 (entsel "\n\t选择对象<退出> : "))        (setq eobj  (vlax-ename->vla-object (car s1))      pt0  (vlax-curve-getPointAtParam eobj 0)      pt1  (vlax-curve-getPointAtParam eobj 1)      pt2  (vlax-curve-getPointAtParam eobj 2)      pt3  (vlax-curve-getPointAtParam eobj 3)      pt4  (vlax-curve-getPointAtParam eobj 4)      pt5  (vlax-curve-getPointAtParam eobj 5)      pt6  (vlax-curve-getPointAtParam eobj 6)      pt7  (vlax-curve-getPointAtParam eobj 7)      pt8  (vlax-curve-getPointAtParam eobj 8)      pt9  (vlax-curve-getPointAtParam eobj 9)      B  (abs (distance pt0 pt1))      A  (abs (distance pt1 pt2))      AH  (abs (distance pt2 pt3))      pt-BH  (inters  (_midP pt0 pt1)       (_midPUP pt0 pt1 100)       pt4       pt5       nil     )      BH  (abs (distance (_midP pt0 pt1) pt-BH))      c  (abs (distance pt0 pt9))      pt-cH  (inters  (_midP pt0 pt9)       (_midPUP pt0 pt9 100)       pt6       pt5       nil     )      CH  (abs (distance (_midP pt0 pt9) pt-cH))      D  (abs (distance pt8 pt9))      DH  (abs (distance pt8 pt7))      num  (+ (/ a ah) (/ b bh) (/ c ch) (/ d dh))        )        (grvecs (list 1        pt8        pt9        1        pt9        pt0        1        pt0        pt1        1        pt1        pt2        2        pt2        pt3        2        pt7        pt8        2        pt-ch        (_midP pt0 pt9)        2        pt-bh        (_midP pt0 pt1)          )        )        (princ "\n数值 = ")        (princ num)    )    (princ) ) (defun _midp (p1 p2)    (list  (+ (/ (- (car p1) (car p2)) 2) (car p2))   (+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2))    ) ) (defun _midPUP (pta ptb fb)    (polar (_midP pta ptb) (+ (angle pta ptb) (/ pi 2)) fb) )