如何用LISP建立选集后镜象

fgq86233246

刚接触LISP ,本人做一了个对称的轴承的LISP ,发现图形是对称的,但坐标点的计算太过于烦琐,用选择集来形成选牙选集,通过镜象,就可以减少一半的语句输入,希望得到高手指点.封团区域内想给其加上剖面线,又不知剖面线的代码.和指令,多谢高手的指点.

(defun c:gbzc7()
  ;;;将国标GB297-64,GB298-64中的数据保存在表中;
  (setq ptkk '(7202 7203 7204 7205 7206 7207 7208 7209 7210 7211 7212 7213 7214 7215 7216 7217 7218 7219 7220 7221 7222 7224 7226 7228 7230 7232 7236 7238 7240 7244
  7302 7303 7304 7305 7306 7307 7308 7309 7310 7311 7312 7313 7314 7315 7316 7317 7318 7319 7320 7321 7322 7324 7326 7328 7330 7334 7352
  7504 7505 7506 7507 7508 7509 7510 7511 7512 7513 7514 7515 7516 7517 7518 7519 7520 7521 7522 7524 7526 7528 7530 7532 7536 7538 7540 7544
  7603 7604 7605 7606 7607 7608 7609 7610 7611 7612 7613 7614 7615 7616 7617 7618 7619 7620 7621 7622 7624 7626 7630 7632 7634))
  (setq ptdd '(35 40 47 52 62 72 80 85 90 100 110 120 125 130 140 150 160 170 180 190 200 215 230 250 270 290 320 340 360 400
  42 47 52 62 72 80 90 100 110 120 130 140 150 160 170 180 190 200 215 225 240 260 280 300 320 360 540
  47 52 62 72 80 85 90 100 110 120 125 130 140 150 160 170 180 190 200 215 230 250 270 290 320 340 360 400
  47 52 62 72 80 90 100 110 120 130 140 150 160 170 180 190 200 215 225 240 260 280 320 340 360 ))
  (setq ptbb '(11 12 14 15 16 17 18 19 20 21 22 23 24 25 26 28 30 32 34 36 38 40 40 42 45 48 52 55 58 65
  13 14 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 50 55 58 62 65 72 102
  18 18 20 23 23 23 23 25 28 31 31 31 33 36 40 43 46 50 53 58 64 68 73 80 86 92 98 108
  19 21 24 27 31 33 36 40 43 46 48 51 55 58 60 64 67 73 77 80 86 93 108 114 120))
  (setq ptcc '(10 11 12 13 14 15 16 16 17 18 19 20 21 22 22 24 26 27 29 30 32 34 34 36 38 40 43 46 48 54
  11 12 13 15 16 18 20 22 23 25 26 28 30 31 33 34 36 38 39 41 42 46 49 53 55 62 85
  16 16 17 19 19 19 19 21 24 27 27 27 28 30 34 37 39 43 46 50 54 58 60 67 71 75 82 90
  16 18 20 23 25 27 30 33 35 37 39 42 45 48 49 53 55 60 63 65 69 78 90 95 100))`
  (setq pttt '(12 13.5 15.5 16.5 17.5 18.5 20 21 22 23 24 25 26.5 27.5 28.5 31 33 35 37.5 39.5 41.5 44 44.5 46.5 50 53 58 61 65 73
  14.5 15.5 16.5 18.5 21 23 25.5 27.5 29.5 32 34 36.5 38.5 40.5 43 45 47 50 52 54 55 60 64.5 68.5 73 81 114
  19.5 19.5 21.5 24.5 25 25 25 27 30 33 33.5 33.5 33.5 39 43 46 49.5 53.5 56.5 62 68.5 72.5 78 85 92 98 105 115
  20.5 22.5 25.5 29 33 35.5 38.5 42.5 46 49 51.5 54.5 58.5 62 64 68 72 78 82 85 91 99.5 115 122 128))
  (setq ptr '(1 1 1.5 1.5 1.5 2 2 2 2 2.5 2.5 2.5 2.5 2.5 3 3 3 3.5 3.5 3.5 3.5 3.5 44 4 4 5 5 5 5
  1.5 1.5 2 2 2 2.5 2.5 2.5 3 3 3.5 3.5 3.5 3.5 3.5 4 4 4 4 4 4 4 5 5 5 5 8
  1.5 1.5 1.5 2 2 2 2 2.5 2.5 2.5 2.5 2.5 3 3 3  3.5 3.5 3.5 3.5 3.5 4 4 4 4 5 5 5 5
  1.5 2 2 2 2.5 2.5 2.5 3 3 3.5 3.5 3.5 3.5 3.5 4 4 4 4 4 4 4 5 5 5 5))
  (setq ptr1 '(0.3 0.5 0.5 0.5 0.5 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 1 1 1 1.2 1.2 1.2 1.2 1.2 1.5 1.5 1.5 1.5 2 2 2
  0.5 0.5 0.8 0.8 0.8 0.8 0.8 0.8 1 1 1.2 1.2 1.2 1.2 1.2 1.5 1.5 1.5 1.5 1.5 1.5 1.5 2 2 2 2 3.5
  0.5 0.5 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 1 1 1 1.2 1.2 1.2 1.2 1.2 1.2 1.5 1.5 1.5 1.5 2 2 2 2
  0.5 0.8 0.8 0.8 0.8 0.8 0.8 1 1 1.2 1.2 1.2 1.2 1.2 1.5 1.5 1.5 1.5 1.5 1.5 1.5 2 2 2 2 ))
   (setq os(getvar"osmode")) ;;保存OSNAP系统变量值。
  (setvar"osmode"0)        ;;关闭捕捉功能
  (setq p0 (getpoint"\n输入绘图起点:"))
   (setq kk (getreal "\n轴承型号："))
 
  (setq nn ( - (length ptkk) 1));;;获取用户输入的直径和内外径及宽度和圆角.
  (setq i 0)    ;;;利用循环语句获得所需的尺寸。
  (while (<= i nn)
    (if (> kk (nth i ptkk))
      (setq k (+ 1 i)))
      (setq i (+ 1 i))
      )
  (setq bb (nth k ptbb))
  (setq dd (nth k ptdd))
  (setq cc (nth k ptcc ))
  (setq tt (nth k pttt))
  (setq r (nth k ptr ))
  (setq r1 (nth k ptr1))
  ;;;计算各点的坐标。
  (setq aa (/ (* 15 pi) 180.0))
  (setq ak (/ (sin aa) (cos aa)))
  (setq rr1 (/ dd 2.0))
  (setq rr2 (* 2.5 (rem kk 100)))
  (setq a2 (/ ( - rr1 rr2) 2.0))
  (setq a4 (/ a2 2.0))
  (setq p1 (polar p0 0 (- tt bb)))
  (setq p2 (polar p0 0 tt))
  (setq p3 (polar p2 (/ pi 2.0 ) (+ rr2 r)))
  (setq p4 (polar p2 (/ pi 2.0 ) (- (+ rr2 a2) r)))
  (setq p5 (polar p4 ( * pi 0.75 ) (* (sqrt 2)  r)))
  (setq p6 (list (+ (car p0) cc) (+ (cadr p0) rr2 a2)))
  (setq p7 (polar p6 (/ pi 2.0 ) (- a2 r1)))
  (setq p8 (polar p7 (* pi 0.75)  (* (sqrt 2) r1)))
  (setq p10 (polar p0 (/ pi 2.0) (- rr1 r)))
  (setq p9 (polar p10 ( /  pi 4.0) (* (sqrt 2) r)))
  (setq pc0 (list(+ (car p0) (/ tt 2.0)) (+ (cadr p0) rr2 a2)))
  (setq p11 (list (car p0) (- (+ (/ a4 (cos aa)) (cadr pc0)) (* (/ tt 2.0) ak))))
  (setq p12 (polar p11 aa (/ cc (cos aa))))
  (setq p14 (polar p12 (+ pi aa) (* (- (cadr p12) (cadr p6)) (sin aa))))
  (setq p13 (polar p14 (- aa (/ pi 2)) a2))
  (setq p110 (polar pc0 (+ aa (/ pi 2.0)) a4))
  (setq p16 (list  (- (* 2.0 (car p110)) (car p14)) (- (* 2.0 (cadr p110)) (cadr p14))))
  (setq p15 (polar p16 (- aa (/ pi 2.0)) a2))
  (setq p17 (polar p1 (/ pi 2.0) (+ rr2 a4)))
  (setq p18 (list (+ (car p16) (* (- (cadr p16) (cadr p17)) ak)) (cadr p17)))
  (setq p19 (polar p1 (/ pi 2.0) (+ rr2 r1)))
  (setq p20 (list (+ (car p1) r1) (+ (cadr p1 ) rr2)))
  (setq p21(polar p20 0 (- bb r1 r)))
  (setq pc1 (polar p3 pi r))
  (setq pc2 (polar p4 pi r))
  (setq pc3 (polar p7 pi r1))
  (setq pc4 (polar p10 0  r))
  (setq pc5 (polar p19 0 r1))
 
  (setq pp2 (polar p2 0 2))
  ;;;绘图命令。
   (command "layer" "s" "粗实线" "")
  (setq abcd (ssadd))
 (command "pline" p2"w""0" "0" p4 "a""ce" pc2 p5 "l" p6 p7 "a""ce" pc3 p8 "l" p9
  "a""ce"pc4 p10"l" p0"")
  (setq abcd (ssadd (entlast) abcd))
  (command "line" p11 p12"")
  (setq abcd (ssadd (entlast) abcd))
  (command "pline" p16 p15 p13 p14"")
  (setq abcd (ssadd (entlast) abcd))
  (command "pline" p18 p17 p19 "a" "ce"pc5 p20 "l" p21 "a""ce"pc1 p3"")
  (setq abcd (ssadd (entlast) abcd))
  (command "line" p1 p19"")
  (setq abcd (ssadd (entlast) abcd))
  (command "mirror" abcd"" pp0 pp2 "")
  (command "layer" "s" "中心线" "")
  (command "line" pp0 pp2"")
  (setvar"osmode"os)  ;;;恢复系统变量值。
  (princ) ;;;退出程序
)

xyh

主要是构造选择集,
先(setq aa (ssadd))
再每画一line或pline
(setq aa (ssadd (entlast) aa))
轴线不要加进去;(轴线点是pp0和pp2)
最后用(command "mirror" aa "" pp0 pp2 "")镜像

fgq86233246

用楼上的方法成功,谢谢,我该如何为楼上这位朋友加分?美中不足的是,封闭区域内想给其加上剖面线,又无从下手.哪位高手谈谈剖面线的LISP指令和封团图形选择的代码.再次感谢