非常感谢关注本贴的所有朋友，向meflying献花致谢！！！

changch

我怕我的贴了会沉下去呀？？？


我知道这里有这个实力的!!!

meflying

这里数你最急,有精力在这里催促,何不动脑筋自己好毫安好想想?

2. (defun DrawLine(pt1 pt2 / ang)
3.    (setq ang (angle pt1 pt2))
4.    (command "_.line" pt1 (polar pt1 ang 6.0) "")
5.    (command "_.line" (polar pt2 (- ang pi) 6.0) pt2 "")
6. )
7. (defun c:PQ( / i pt1 pts pt3 ang1 ang2 ang3 ang)
8.    (setq i 1)
9.    (setvar "cmdecho" 0)
10.    (while (or (< i 3) pt1)
11.        (if (> i 1)
12.            (progn
13.   (setq pt1 (getpoint pt1 (strcat "\n请输入第" (itoa i)"点:")))
14.   (command pt1)
15.            )
16.            (progn
17.   (setq pt1 (getpoint (strcat "\n请输入第" (itoa i)"点:")))
18.   (command "_.pline" pt1 "w" 0 0)
19.            )
20.        )
21.        (if pt1
22.            (setq pts (append pts (list pt1)))
23.        )
24.        (setq i (1+ i))
25.    )
26.    (setq pt3 (getpoint "\n请确定箭头方向:"))
27.    (entdel (entlast))
28.    (setq ang1 (angle (car pts) pt3))
29.    (setq ang2 (angle (car pts) (cadr pts)))
30.    (setq ang (- ang1 ang2))
31.    (if (> ang pi) (setq ang (- ang (* 2 pi))))
32.    (if (< ang (- pi)) (setq ang (+ ang (* 2 pi))))
33.    (if (> ang 0)
34.        (setq ang (+ ang2 (* 0.5 pi)))
35.        (setq ang (- ang2 (* 0.5 pi)))
36.    )
37.    (setq pts (reverse pts))
38.    (setq ang1 (angle (car pts) pt3))
39.    (setq ang2 (angle (car pts) (cadr pts)))
40.    (setq ang1 (- ang1 ang2))
41.    (if (> ang1 pi) (setq ang1 (- ang1 (* 2 pi))))
42.    (if (< ang1 (- pi)) (setq ang1 (+ ang1 (* 2 pi))))
43.    (if (> ang1 0)
44.        (setq ang2 (+ ang2 (* 0.5 pi)))
45.        (setq ang2 (- ang2 (* 0.5 pi)))
46.    )
47.    (setvar "osmode" 0)
48.    (command "layer" "s" "dim" "")
49.    (mapcar 'DrawLine (reverse (cdr pts)) (cdr (reverse pts)))
50.    (command "_.pline" (polar (car pts) ang2 2.5) "w" "1.2" "0" (polar (car pts) ang2 6) "")
51.    (command "_.pline" (polar (car (reverse pts)) ang 2.5) "w" "1.2" "0" (polar (car (reverse pts)) ang 6) "")
52.    (command "layer" "s" "thick-solid" "")
53.    (command "_.line" (car pts) (polar (car pts) ang2 2.5) "")
54.    (command "_.line" (car (reverse pts)) (polar (car (reverse pts)) ang 2.5) "")
55.    (setvar "osmode" 33)
56.    (princ "\n END.")
57.    (setvar "cmdecho" 1)
58.    )

(defun DrawLine(pt1 pt2 / ang)    (setq ang (angle pt1 pt2))    (command "_.line" pt1 (polar pt1 ang 6.0) "")    (command "_.line" (polar pt2 (- ang pi) 6.0) pt2 "") ) (defun c:PQ( / i pt1 pts pt3 ang1 ang2 ang3 ang)    (setq i 1)    (setvar "cmdecho" 0)    (while (or (< i 3) pt1)        (if (> i 1)            (progn   (setq pt1 (getpoint pt1 (strcat "\n请输入第" (itoa i)"点:")))   (command pt1)            )            (progn   (setq pt1 (getpoint (strcat "\n请输入第" (itoa i)"点:")))   (command "_.pline" pt1 "w" 0 0)            )        )        (if pt1            (setq pts (append pts (list pt1)))        )        (setq i (1+ i))    )    (setq pt3 (getpoint "\n请确定箭头方向:"))    (entdel (entlast))    (setq ang1 (angle (car pts) pt3))    (setq ang2 (angle (car pts) (cadr pts)))    (setq ang (- ang1 ang2))    (if (> ang pi) (setq ang (- ang (* 2 pi))))    (if (< ang (- pi)) (setq ang (+ ang (* 2 pi))))    (if (> ang 0)        (setq ang (+ ang2 (* 0.5 pi)))        (setq ang (- ang2 (* 0.5 pi)))    )    (setq pts (reverse pts))    (setq ang1 (angle (car pts) pt3))    (setq ang2 (angle (car pts) (cadr pts)))    (setq ang1 (- ang1 ang2))    (if (> ang1 pi) (setq ang1 (- ang1 (* 2 pi))))    (if (< ang1 (- pi)) (setq ang1 (+ ang1 (* 2 pi))))    (if (> ang1 0)        (setq ang2 (+ ang2 (* 0.5 pi)))        (setq ang2 (- ang2 (* 0.5 pi)))    )    (setvar "osmode" 0)    (command "layer" "s" "dim" "")    (mapcar 'DrawLine (reverse (cdr pts)) (cdr (reverse pts)))    (command "_.pline" (polar (car pts) ang2 2.5) "w" "1.2" "0" (polar (car pts) ang2 6) "")    (command "_.pline" (polar (car (reverse pts)) ang 2.5) "w" "1.2" "0" (polar (car (reverse pts)) ang 6) "")    (command "layer" "s" "thick-solid" "")    (command "_.line" (car pts) (polar (car pts) ang2 2.5) "")    (command "_.line" (car (reverse pts)) (polar (car (reverse pts)) ang 2.5) "")    (setvar "osmode" 33)    (princ "\n END.")    (setvar "cmdecho" 1)    )

无痕

嘿嘿，大家各有各的事情，编程只是业余爱好

changch

真的好高兴啊 有那么多的朋友关注过本贴 向meflying版主献花了！！！！！