能否帮助更改附件程序(谢谢)

xd-xdcad

 

程序执行效果如图1

更改后效果如图2

更改内容:

1、圆弧方向正好相反

2、增加中心线，线型CENTER，长度随意，视觉效果好即可

byghbcx

画园弧用到XDATA中的数据,没时间理清你的数据格式,换位思考,我在最后用了MIRROR达到你的效果.

3. (defun c:test (/)
4.     (initget 1)(setq p1 (getpoint "\n First point: "))
5.     (initget 1)(setq p2 (getpoint p1 "\n First point: "))
7.     (if (/= 'REAL  (type logocad:pipe_size)) (setq logocad:pipe_size 100))
8.     (setq
9.         msg        (strcat "\n PIPE SIZE <" (rtos logocad:pipe_size 2 2) ">: ")
10.         tmp        (getreal msg)
11.     ) ; end setq
12.     (if (and (not (null tmp))(numberp tmp)(> tmp 0)) (setq logocad:pipe_size tmp))
13.     (setq
14.         ang        (angle p1 p2)
15.         perang1    (+ ang (/ pi 2.0))
16.         perang2    (- ang (/ pi 2.0))
17.         offsz    (/ logocad:pipe_size 2)
18.         dp1        (polar p1 perang1 offsz)
19.         dp2        (polar p2 perang1 offsz)
20.         dp3        (polar p1 perang2 offsz)
21.         dp4        (polar p2 perang2 offsz)
22.         plist    (list (list dp1 dp2) (list dp3 dp4))
23.         rdst    (/ logocad:pipe_size 4)
24.         ang1    (angle p1 dp1)
25.         ang2    (angle p1 p2)
26.         ang3    (angle p1 dp3)
27.         xdata    (list
28.                 (list p1 dp1 ang1 ang2 nil T)
29.                 (list p1 dp1 ang1 (+ pi ang2) T nil)
30.                 (list dp3 p1 ang1 ang2 nil nil)
31.                 (list p2 dp2 ang1 (+ pi ang2) T nil)
32.                 (list dp4 p2 ang1 (+ pi ang2) T T)
33.                 (list dp4 p2 ang1 ang2 nil nil)
34.   
35.                 ) ; end list
36.         rad        (* (- 1 0.125) rdst)
37.     ) ; end setq
38.     (foreach dat plist
39.         (entmake     (list
40.                     (cons 0     "LINE")
41.                     (cons 8     (getvar "CLAYER"))
42.                     (cons 10     (car dat))
43.                     (cons 11     (cadr dat))))
44.     ) ; end foreach
45.     (setq ss (ssadd))
46.     (foreach dat xdata
47.         (setq
48.             ref_p1    (nth 0 dat)
49.             ref_p2    (nth 1 dat)
50.             ang1    (nth 2 dat)
51.             ang2    (nth 3 dat)
52.             tmp        (polar ref_p1 ang1 rdst)
53.             cen        (polar tmp ang2 rad)
54.             rad2    (distance cen ref_p1)
55.             ang1    (angle cen ref_p1)
56.             ang2     (angle cen ref_p2)
57.         ) ; end setq
58.         (if (null (nth 4 dat)) (setq tmp ang1 ang1 ang2 ang2 tmp tmp nil))
59.         (entmake
60.             (list
61.                 (cons 0        "ARC")
62.                 (cons 8     (getvar "CLAYER"))
63.                 (cons 10     cen)
64.                 (cons 40     rad2)
65.                 (cons 50     ang1)
66.                 (cons 51     ang2)))
67.       (setq ss (ssadd (entlast) ss))
68.     ) ; end foreach
69.   (setq dis (distance p1 p2))
70.   (command "line" (polar p1 (angle p2 p1) (* dis 0.15)) (polar p2 (angle p1 p2) (* dis 0.15)) "")
71.   (command "chprop" (entlast) "" "lt" "center" "s" 20 "")
72.   (command "mirror" ss "" p1 p2 "Y")
73.     (princ)
74. )

(defun c:test (/)     (initget 1)(setq p1 (getpoint "\n First point: "))     (initget 1)(setq p2 (getpoint p1 "\n First point: "))     (if (/= 'REAL  (type logocad:pipe_size)) (setq logocad:pipe_size 100))     (setq         msg        (strcat "\n PIPE SIZE <" (rtos logocad:pipe_size 2 2) ">: ")         tmp        (getreal msg)     ) ; end setq     (if (and (not (null tmp))(numberp tmp)(> tmp 0)) (setq logocad:pipe_size tmp))     (setq         ang        (angle p1 p2)         perang1    (+ ang (/ pi 2.0))         perang2    (- ang (/ pi 2.0))         offsz    (/ logocad:pipe_size 2)         dp1        (polar p1 perang1 offsz)         dp2        (polar p2 perang1 offsz)         dp3        (polar p1 perang2 offsz)         dp4        (polar p2 perang2 offsz)         plist    (list (list dp1 dp2) (list dp3 dp4))         rdst    (/ logocad:pipe_size 4)         ang1    (angle p1 dp1)         ang2    (angle p1 p2)         ang3    (angle p1 dp3)         xdata    (list                 (list p1 dp1 ang1 ang2 nil T)                 (list p1 dp1 ang1 (+ pi ang2) T nil)                 (list dp3 p1 ang1 ang2 nil nil)                 (list p2 dp2 ang1 (+ pi ang2) T nil)                 (list dp4 p2 ang1 (+ pi ang2) T T)                 (list dp4 p2 ang1 ang2 nil nil)                    ) ; end list         rad        (* (- 1 0.125) rdst)     ) ; end setq     (foreach dat plist         (entmake     (list                     (cons 0     "LINE")                     (cons 8     (getvar "CLAYER"))                     (cons 10     (car dat))                     (cons 11     (cadr dat))))     ) ; end foreach     (setq ss (ssadd))     (foreach dat xdata         (setq             ref_p1    (nth 0 dat)             ref_p2    (nth 1 dat)             ang1    (nth 2 dat)             ang2    (nth 3 dat)             tmp        (polar ref_p1 ang1 rdst)             cen        (polar tmp ang2 rad)             rad2    (distance cen ref_p1)             ang1    (angle cen ref_p1)             ang2     (angle cen ref_p2)         ) ; end setq         (if (null (nth 4 dat)) (setq tmp ang1 ang1 ang2 ang2 tmp tmp nil))         (entmake             (list                 (cons 0        "ARC")                 (cons 8     (getvar "CLAYER"))                 (cons 10     cen)                 (cons 40     rad2)                 (cons 50     ang1)                 (cons 51     ang2)))       (setq ss (ssadd (entlast) ss))     ) ; end foreach   (setq dis (distance p1 p2))   (command "line" (polar p1 (angle p2 p1) (* dis 0.15)) (polar p2 (angle p1 p2) (* dis 0.15)) "")   (command "chprop" (entlast) "" "lt" "center" "s" 20 "")   (command "mirror" ss "" p1 p2 "Y")     (princ) )

xd-xdcad

谢谢，最后MIRROR稍微更改了一下,完全正确，谢谢

原程序问题:

为什么将logocad:pipe_size 100,改为logocad:pipe_size 219,得到的距离是218呢