[求助]

梧桐细雨

由于程序太大了，所以只能分俩次发稿，希望大家都谅解一下哦！！！


rot (+ (- (* 0.5 pi) (* (/ pi nm) 2.0)) alph2))
                       rrr
                     )
              pr7    (polar start1
                            (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0)))
                            mid2
                     )
              pr7    (polar pr7
                            (+ (* 0.5 pi)
                               (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0)))
                            )
                            (/ ss 2.0)
                     )
              pr7    (polar pr7
                            (+ (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0))) pi)
                            r
                     )
              pr6    (polar pr7
                            (+ (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0))) pi)
                            (- (- mid2 mid3) (* r 2.0))
                     )
              pr5    (polar
                       start1
                       (+ rot (+ (- (* 0.5 pi) (* (/ pi nm) 2.0)) alph3))
                       (/ d3 2.0)
                     )
              rrr1   (- (- (/ d5 2.0) b) r)
              ss1    (+ (* 0.8 w_f) (* 2.0 r))
              mid_l2 (sqrt (- (* rrr1 rrr1)
                              (* (+ (/ ss1 2.0) r) (+ (/ ss1 2.0) r))
                           )
                     )
              mid2   (sqrt (- (* rrr1 rrr1) (* (/ ss1 2.0) (/ ss1 2.0))))
              alph2  (atan (/ (+ (/ ss1 2.0) r) mid_l2))
              mid_l3 (sqrt (- (* (+ r (/ d3 2.0)) (+ r (/ d3 2.0)))
                              (* (+ (/ ss1 2.0) r) (+ (/ ss1 2.0) r))
                           )
                     )
              mid3   (sqrt (- (* (+ r (/ d3 2.0)) (+ r (/ d3 2.0)))
                              (* (/ ss1 2.0) (/ ss1 2.0))
                           )
                     )
              alph3  (atan (/ (+ (/ ss1 2.0) r) mid_l3))
              pr9    (polar start1 (+ rot (- (* 0.5 pi) alph2)) rrr1)
              pr10   (polar (polar (polar start1 (+ rot (* 0.5 pi)) mid2)
                                   rot
                                   (/ ss1 2.0)
                            )
                            (+ rot (* -0.5 pi))
                            r
                     )
              pr11   (polar pr10
                            (+ rot (* -0.5 pi))
                            (- (- mid2 mid3) (* r 2.0))
                     )
              pr12   (polar start1
                            (+ rot (- (* 0.5 pi) alph3))
                            (+ r (/ d3 2.0))
                     )
              pr16   (polar
                       start1
                       (+ rot (+ (- (* 0.5 pi) (* (/ pi nm) 2.0)) alph2))
                       rrr1
                     )
              pr15   (polar start1
                            (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0)))
                            mid2
                     )
              pr15   (polar pr15
                            (+ (* 0.5 pi)
                               (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0)))
                            )
                            (/ ss1 2.0)
                     )
              pr15   (polar pr15
                            (+ (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0))) pi)
                            r
                     )
              pr14   (polar pr15
                            (+ (+ rot (- (* 0.5 pi) (* (/ pi nm) 2.0))) pi)
                            (- (- mid2 mid3) (* r 2.0))
                     )
              pr13   (polar
                       start1
                       (+ rot (+ (- (* 0.5 pi) (* (/ pi nm) 2.0)) alph3))
                       (+ r (/ d3 2.0))
                     )
            )
            (command "pline"
                     p71
                     "arc"
                     "radius"
                     (/ d 2.0)
                     (polar start1 (+ rot pi) (/ d 2.0))
                     p76
                     ""
            )
            (setq grp15 (ssadd (entlast)))
            (command "pline"
                     p72
                     "arc"
                     "radius"
                     (+ (/ d 2.0) n1)
                     (polar start1 (+ rot pi) (+ (/ d 2.0) n1))
                     p75
                     ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline" p71 p72 p73 p74 p75 p76 "")
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p78
                     "arc"
                     "radius"
                     (/ d3 2.0)
                     (polar start1 (+ rot pi) (/ d3 2.0))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p80
                     "arc"
                     "radius"
                     (- (/ d5 2.0) b)
                     (polar start1 (+ rot pi) (- (/ d5 2.0) b))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p81
                     "arc"
                     "radius"
                     (/ d5 2.0)
                     (polar start1 (+ rot pi) (/ d5 2.0))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p82
                     "arc"
                     "radius"
                     (- (/ dw 2.0) nn)
                     (polar start1 (+ rot pi) (- (/ dw 2.0) nn))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p83
                     "arc"
                     "radius"
                     (/ dw 2.0)
                     (polar start1 (+ rot pi) (/ dw 2.0))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "zoom" "all")
            (command "pline"
                     p86
                     "arc"
                     "radius"
                     (/ d0 2.0)
                     (polar p86 (+ rot (* -0.5 pi)) d0)
                     "cl"
            )
            (command "rotate" (entlast) "" start1 (/ (/ 360 nm) 2.0))
            (setq grp15 (ssadd (entlast) grp15))
            (repeat nm
              (command "array" (entlast) "" "p" start1 2 (/ 360 nm) "")
              (setq grp15 (ssadd (entlast) grp15))
            )

            (command "pline"
                     (polar p87 (+ rot (* 0.5 pi)) (/ d4 2.0))
                     "arc"
                     "radius"
                     (/ d4 2.0)
                     (polar p87 (+ rot (* -0.5 pi)) (/ d4 2.0))
                     "cl"
            )
            (setq grp16 (ssadd (entlast)))
            (repeat nm
              (command "array" (entlast) "" "p" start1 2 (/ 360 nm) "")
              (setq grp16 (ssadd (entlast) grp16))
            )
            (setq e0 (entlast))
            (setq jjj 0)
            (repeat nm
              (command
                "zoom"
                "window"
                (polar
                  (polar start1
                         (+ rot (+ (* jjj (/ (* 2.0 pi) nm)) (* 0.5 pi)))
                         (- (/ d5 2.0) (* sca 2.0))
                  )
                  (+ rot (* -0.25 pi))
                  d4
                )
                (polar
                  (polar start1
                         (+ rot (+ (* jjj (/ (* 2.0 pi) nm)) (* 0.5 pi)))
                         (- (/ d5 2.0) (* sca 2.0))
                  )
                  (+ rot (* 0.75 pi))
                  d4
                )
              )
              (command
                "trim"
                grp16
                ""
                (polar start1
                       (+ rot (+ (* jjj (/ (* 2.0 pi) nm)) (* 0.5 pi)))
                       (/ d5 2.0)
                )
                ""
              )
              (setq grp15 (ssadd (entlast) grp15))
              (setq jjj (+ jjj 1))
            )
            (setq e0 (ENTNEXT E0))
            (while e0
              (setq grp15 (ssadd e0 grp15))
              (setq e0 (ENTNEXT E0))
            )
            (command "zoom" "all")
            (command "arc"
                     (polar p87 rot (/ (- d4 dist1) 2.0))
                     (polar p87 (+ rot (* 0.5 pi)) (/ (- d4 dist1) 2.0))
                     (polar p87 (+ rot (* -0.5 pi)) (/ (- d4 dist1) 2.0))
            )
            (setq grp17 (ssadd (entlast)))
            (command "pline" p88 p89 "")
            (setq grp17 (ssadd (entlast) grp17))
            (command "pline" p90 p91 "")
            (setq grp17 (ssadd (entlast) grp17))
            (command "circle" p87 "D" d4)
            (setq grp17 (ssadd (entlast) grp17))
            (setq e1 (entlast))
            (command "array" grp17 "" "p" start1 nm "" "n")
            (setq e1 (ENTNEXT E1))
            (while e1
              (setq grp17 (ssadd e1 grp17))
              (setq e1 (ENTNEXT E1))
            )

            (command "pline" pr1     "arc"   "radius"             r
                     pr2     "line"  pr3     "arc"   "radius"
                     r             pr4     ""
                    )
            (setq grp18 (ssadd (entlast)))
            (command "pline" pr5     "arc"   "radius"             r
                     pr6     "line"  pr7     "arc"   "radius"
                     r             pr8     ""
                    )
            (setq grp18 (ssadd (entlast) grp18))
            (command "pline"  pr13     "arc"        "radius" r
                     pr14     "line"   pr15        "arc"         "radius"
                     r              pr16     "radius"        rrr1         pr9
                     "radius" r               pr10        "line"         pr11
                     "arc"    "radius" r        pr12         ""
                    )
            (setq grp18 (ssadd (entlast) grp18))
            (command "pline"
                     pr13
                     "arc"
                     "radius"
                     (+ r (/ d3 2.0))
                     pr12
                     ""
            )
            (setq grp18 (ssadd (entlast) grp18))
            (setq e2 (entlast))
            (command "array" grp18 "" "p" start1 nm "" "")
            (setq e2 (entnext E2))
            (while e2
              (setq grp18 (ssadd e2 grp18))
              (setq e2 (entnext e2))
            )

            (command "layer" "s" "center" "")
            (command "line"
                     (polar start1 rot (+ (/ dw 2.0) 4.0))
                     (polar start1 (+ rot pi) (+ (/ dw 2.0) 4.0))
                     ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command
              "line"
              (polar start1 (+ rot (* 0.5 pi)) (+ (/ dw 2.0) 4.0))
              (polar start1 (+ rot (* -0.5 pi)) (+ (/ dw 2.0) 4.0))
              ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "circle" start1 (/ dd0 2.0))
            (setq grp15 (ssadd (entlast) grp15))
            (command "circle" start1 (/ d2 2.0))
            (setq grp15 (ssadd (entlast) grp15))
            (command "line"
                     (polar p86 (+ rot (* 0.5 pi)) 3.0)
                     (polar p86 (+ rot (* -0.5 pi)) (+ d0 3.0))
                     ""
            )
            (command "rotate" (entlast) "" start1 (/ (/ 360 nm) 2.0))
            (setq grp15 (ssadd (entlast) grp15))
            (repeat nm
              (command "array" (entlast) "" "p" start1 2 (/ 360 nm) "")
              (setq grp15 (ssadd (entlast) grp15))
            )
            (command "line"
                     (polar p87 rot (+ (/ d4 2.0) 3.0))
                     (polar p87 (+ rot pi) (+ (/ d4 2.0) 3.0))
                     ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (repeat nm
              (command "array" (entlast) "" "p" start1 2 (/ 360 nm) "")
              (setq grp15 (ssadd (entlast) grp15))
            )
            (command "line"
                     (polar p87 (+ rot (* 0.5 pi)) (+ (/ d4 2.0) 3.0))
                     (polar p87 (+ rot (* -0.5 pi)) (+ (/ d4 2.0) 3.0))
                     ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (repeat nm
              (command "array" (entlast) "" "p" start1 2 (/ 360 nm) "")
              (setq grp15 (ssadd (entlast) grp15))
            )
            (command "layer" "s" "draw" "")
          )
        )

        (if (= wtype 5)
          (progn
            (setq
              p77 (polar start1 (+ rot (* 0.5 pi)) (- (/ d3 2.0) nn))
              p78 (polar start1 (+ rot (* 0.5 pi)) (/ d3 2.0))
              p80 (polar start1
                         (+ rot (* 0.5 pi))
                         (- (cadr p10) (cadr start1))
                  )
              p82 (polar start1 (+ rot (* 0.5 pi)) (- (/ dw 2.0) n2))
              p83 (polar start1 (+ rot (* 0.5 pi)) (/ dw 2.0))
              p84 (polar start1 (+ rot (* 0.5 pi)) (/ dd0 2.0))
              p85 (polar start1 (+ rot (* 0.5 pi)) (/ d2 2.0))
              p86 (polar p84 (+ rot (* 0.5 pi)) (/ d0 2.0))
            )
            (command "pline"
                     p71
                     "arc"
                     "radius"
                     (/ d 2.0)
                     (polar start1 (+ rot pi) (/ d 2.0))
                     p76
                     ""
            )
            (setq grp15 (ssadd (entlast)))
            (command "pline"
                     p72
                     "arc"
                     "radius"
                     (+ (/ d 2.0) n1)
                     (polar start1 (+ rot pi) (+ (/ d 2.0) n1))
                     p75
                     ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline" p71 p72 p73 p74 p75 p76 "")
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p77
                     "arc"
                     "radius"
                     (- (/ d3 2.0) nn)
                     (polar start1 (+ rot pi) (- (/ d3 2.0) nn))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p78
                     "arc"
                     "radius"
                     (/ d3 2.0)
                     (polar start1 (+ rot pi) (/ d3 2.0))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command
              "pline"
              p80
              "arc"
              "radius"
              (- (cadr p10) (cadr start1))
              (polar start1 (+ rot pi) (- (cadr p10) (cadr start1)))
              "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p82
                     "arc"
                     "radius"
                     (- (/ dw 2.0) nn)
                     (polar start1 (+ rot pi) (- (/ dw 2.0) nn))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p83
                     "arc"
                     "radius"
                     (/ dw 2.0)
                     (polar start1 (+ rot pi) (/ dw 2.0))
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "pline"
                     p86
                     "arc"
                     "radius"
                     (/ d0 2.0)
                     (polar p86 (+ rot (* -0.5 pi)) d0)
                     "cl"
            )
            (setq grp15 (ssadd (entlast) grp15))
            (repeat nm
              (command "array" (entlast) "" "p" start1 2 (/ 360 nm) "")
              (setq grp15 (ssadd (entlast) grp15))
            )

            (command "layer" "s" "center" "")
            (command "line"
                     (polar start1 rot (+ (/ dw 2.0) 4.0))
                     (polar start1 (+ rot pi) (+ (/ dw 2.0) 4.0))
                     ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command
              "line"
              (polar start1 (+ rot (* 0.5 pi)) (+ (/ dw 2.0) 4.0))
              (polar start1 (+ rot (* -0.5 pi)) (+ (/ dw 2.0) 4.0))
              ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (command "circle" start1 (/ dd0 2.0))
            (setq grp15 (ssadd (entlast) grp15))
            (command "circle" start1 (/ d2 2.0))
            (setq grp15 (ssadd (entlast) grp15))
            (command "line"
                     (polar p86 (+ rot (* 0.5 pi)) 3.0)
                     (polar p86 (+ rot (* -0.5 pi)) (+ d0 3.0))
                     ""
            )
            (setq grp15 (ssadd (entlast) grp15))
            (repeat nm
              (command "array" (entlast) "" "p" start1 2 (/ 360 nm) "")
              (setq grp15 (ssadd (entlast) grp15))
            )
            (command "layer" "s" "draw" "")
          )
        )
        (if (not (not grp15))
          (progn
            (setq e1 (entlast))
            (command "rotate" grp15 "" start1 (/ 360 4.0))
            (setq e1 (ENTNEXT E1))
            (while e1
              (if (not grp19)
                (setq grp19 (ssadd e1))
                (setq grp19 (ssadd e1 grp19))
              )
              (setq e1 (ENTNEXT E1))
            )
          )
        )
        (if (not (not grp16))
          (progn
            (setq e1 (entlast))
            (command "rotate" grp16 "" start1 (/ 360 4.0))
            (setq e1 (ENTNEXT E1))
            (while e1
              (if (not grp19)
                (setq grp19 (ssadd e1))
                (setq grp19 (ssadd e1 grp19))
              )
              (setq e1 (ENTNEXT E1))
            )
          )
        )
        (if (not (not grp17))
          (progn
            (setq e1 (entlast))
            (command "rotate" grp17 "" start1 (/ 360 4.0))
            (setq e1 (ENTNEXT E1))
            (while e1
              (if (not grp19)
                (setq grp19 (ssadd e1))
                (setq grp19 (ssadd e1 grp19))
              )
              (setq e1 (ENTNEXT E1))
            )
          )
        )
        (if (not (not grp18))
          (progn
            (setq e1 (entlast))
            (command "rotate" grp18 "" start1 (/ 360 4.0))
            (setq e1 (ENTNEXT E1))
            (while e1
              (if (not grp19)
                (setq grp19 (ssadd e1))
                (setq grp19 (ssadd e1 grp19))
              )
              (setq e1 (ENTNEXT E1))
            )
          )
        )

      )
    )
    (setq m   (/ m sca)
          d1  (/ d1 sca)
          l1  (/ l1 sca)
          d4  (/ d4 sca)
          d   (/ d sca)
          w_b (/ w_b sca)
          l   (/ l sca)
          d3  (/ d3 sca)
          dw  (/ dw sca)
          n1  (/ n1 sca)
          r   (/ r sca)
    )
    (command "zoom" "all")
    (set_grp grp0)
    (set_grp grp1)
    (set_grp grp2)
    (set_grp grp3)
    (set_grp grp4)
    (set_grp grp5)
    (set_grp grp6)
    (set_grp grp7)
    (set_grp grp8)
    (set_grp grp9)
    (set_grp grp10)
    (set_grp grp11)
    (set_grp grp12)
    (set_grp grp13)
    (set_grp grp14)
    (set_grp grp15)
    (set_grp grp16)
    (set_grp grp17)
    (set_grp grp18)
    (set_grp grp19)
    (set_grp grp20)
    (setq grp0 nil
          grp1 nil
          grp2 nil
          grp3 nil
          grp4 nil
          grp5 nil
          grp6 nil
          grp7 nil
    )
    (setq grp8 nil
          grp9 nil
          grp10        nil
          grp11        nil
          grp12        nil
          grp13        nil
          grp14        nil
          grp15        nil
    )
    (setq grp16        nil
          grp17        nil
          grp18        nil
          grp19        nil
          grp20        nil
    )
    (worm1_keep)
  )


                                        ;******** draw the bolt used in "bolt_draw"  
  (defun bodraw        (/ pb1 pb2 pb3 pb4 pb5 pb6 pb7 pb8 pb9 pb10 pb11 pb12
                 pmid star oldrot)
    (setq kkk (* 0.6 d4))
    (setq bol_b l1)
    (setq bol_l (+ l1 (* 1.5 c)))
    (setq bol_e (* 1.7 d4))
    (setq bol_m (* 0.7 d4))
    (setq thick (* 2.0 c))
    (setq wash_d (* 1.5 d4))
    (setq move 0.0)
    (setq bstart (polar ppp (+ rot pi) (* 2.0 c)))
    (setq pmid (* rot (/ 180 pi)))
    (command "layer" "s" "draw" "")
    (bmain bol_e kkk)
    (setq bstart1 (polar bstart rot (* -1 (+ (+ kkk 3.0) move))))
    (setq bstart2 (polar bstart rot (+ bol_l 3.0)))
    (setq pb3 (polar bstart (+ rot (* 0.5 pi)) (* 0.5 d4)))
    (setq pb4 (polar bstart (+ rot (* -0.5 pi)) (* 0.5 d4)))
    (setq pb1 (polar pb3 rot (- (- bol_l bol_b) (* 0.1 d4))))
    (setq pb2 (polar pb4 rot (- (- bol_l bol_b) (* 0.1 d4))))
    (if        (/= ch_s 1)
      (progn
        (command "pline" pb3 pb4 pb2 pb1 "cl")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (setq pb5 (polar pb3 rot (- bol_l (* 0.1 d4))))
    (setq pb6 (polar pb4 rot (- bol_l (* 0.1 d4))))
    (setq pb5 (polar pb5 (+ rot (* -0.5 pi)) (* 0.1 d4))
          pb6 (polar pb6 (+ rot (* 0.5 pi)) (* 0.1 d4))
    )
    (setq pb3 (polar pb5 (+ rot pi) (- bol_b (* 0.1 d4))))
    (setq pb4 (polar pb6 (+ rot pi) (- bol_b (* 0.1 d4))))
    (if        (/= ch_s 1)
      (progn
        (command "pline" pb1 pb2 pb4 pb3 "cl")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (if        (/= ch_s 1)
      (progn
        (command "pline"
                 pb3
                 (polar pb3 rot (- thick (- bol_l bol_b)))
                 (polar pb4 rot (- thick (- bol_l bol_b)))
                 pb4
                 "cl"
        )
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (setq pb7 (polar pb5 (+ rot (* -0.25 pi)) (* 0.1414 d4)))
    (setq pb8 (polar pb6 (+ rot (* 0.25 pi)) (* 0.1414 d4)))
    (if        (/= ch_s 1)
      (progn
        (command "pline" pb5 pb7 pb8 pb6 "c")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (setq pb9 (polar pb7 rot (* -1 bol_b)))
    (setq pb10 (polar pb8 rot (* -1 bol_b)))
    (if        (/= ch_s 1)
      (progn
        (command "line"
                 pb9
                 (polar pb9 rot (- thick (- bol_l bol_b)))
                 ""
        )
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (if        (/= ch_s 1)
      (progn
        (command "line"
                 pb10
                 (polar pb10 rot (- thick (- bol_l bol_b)))
                 ""
        )
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (setq pb9 (polar pb9 rot (- thick (- bol_l bol_b))))
    (setq pb10 (polar pb10 rot (- thick (- bol_l bol_b))))
    (setq pb9 (polar pb9 (+ rot (* 0.5 pi)) (* 0.5 (- wash_d d4))))
    (setq pb10 (polar pb10 (+ rot (* -0.5 pi)) (* 0.5 (- wash_d d4))))
    (setq pb1 (polar pb9 rot (* 0.15 d4)))
    (setq pb2 (polar pb10 rot (* 0.15 d4)))
    (if        (/= ch_s 1)
      (progn
        (command "pline" pb9 pb10 pb2 pb1 "c")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (setq move (* 0.15 d4))
    (setq pmid bstart)
    (setq bstart (polar bstart rot (+ thick move)))
    (setq pb9 (polar bstart (+ rot (* -0.889 pi)) (* 0.16 d4)))
    (setq pb    )
    (setq rot (+ pi rot))
    (bmain bol_e bol_m)
    (setq bstart pmid
          rot         (- rot pi)
    )
    (setq pb1 (polar pb5 rot (- (+ (* 0.1 d4) thick move bol_m) bol_l)))
    (setq pb2 (polar pb6 rot (- (+ (* 0.1 d4) thick move bol_m) bol_l)))
    (if        (/= ch_s 1)
      (progn

        (command "pline" pb1 pb5 pb6 pb2 "c")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (setq pb1 (polar pb1 (+ rot (* -0.5 pi)) (* 0.1 d4)))
    (setq pb2 (polar pb2 (+ rot (* 0.5 pi)) (* 0.1 d4)))
    (if        (/= ch_s 1)
      (progn
        (command "line" pb1 pb7 "")
        (setq grp20 (ssadd (entlast) grp20))
        (command "line" pb2 pb8 "")
        (setq grp20 (ssadd (entlast) grp20))
        (command "layer" "s" "center" "")
        (command "line" bstart1 bstart2 "")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (command "layer" "s" "draw" "")
  )

                                        ;********** draw main of bolt used in "draw1"
  (defun bmain (ee kkk1 / pb1 pb2 pb3 pb4 pb5 pb6 pb7 pb8 center pmid)
    (setq center (polar bstart rot (- (* 1.5 d4) kkk1)))
    (setq pmid (polar center (+ rot (* 0.5 pi)) (* 0.5 ee)))
    (setq pb1 (polar pmid rot (* -1.414 d4)))
    (setq pmid (polar center rot (* -1.5 d4)))
    (setq pb2 (polar pmid (+ rot (* 0.5 pi)) (* 0.375 ee)))
    (setq pb3 (polar pb1 (+ rot (* -0.5 pi)) (* 0.25 ee)))
    (setq pb4 (polar pb3 (+ rot (* -0.5 pi)) (* 0.5 ee)))
    (setq pb5 (polar pmid (+ rot (* -0.5 pi)) (* 0.375 ee)))
    (setq pb6 (polar pb4 (+ rot (* -0.5 pi)) (* 0.25 ee)))
    (setq pb7 (polar bstart (+ rot (* 0.5 pi)) (* 0.5 ee)))
    (setq pb8 (polar bstart (+ rot (* -0.5 pi)) (* 0.5 ee)))
    (setq bdd0 (abs (- (cadr pb2) (cadr pb5))))
    (if        (/= ch_s 1)
      (progn
        (command "pline"     pb1   "w"         0.3   ""    "a"   "s"         pb2
                 pb3   "s"   pmid  pb4         "s"   pb5   pb6   "l"         pb8
                 pb7   pb1   ""
                )
        (if (not grp20)
          (setq grp20 (ssadd (entlast)))
          (setq grp20 (ssadd (entlast) grp20))
        )
        (command "pline" pb2 pb5 "")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (setq pb1 (polar bstart (+ rot (* 0.5 pi)) (* 0.25 ee)))
    (setq pb2 (polar bstart (+ rot (* -0.5 pi)) (* 0.25 ee)))
    (if        (/= ch_s 1)
      (progn
        (command "pline" pb1 pb3 "")
        (setq grp20 (ssadd (entlast) grp20))
        (command "pline" pb2 pb4 "")
        (setq grp20 (ssadd (entlast) grp20))
      )
    )
    (command "zoom" "all")
  )

  (setq dia (load_dialog "worm1.dcl"))
  (if (not (new_dialog "worm1" dia))
    (exit)
  )
  (w_start1)
  (w_set1)
  (unload_dialog dia)
;;;  (command "ucs" "r" ucs_name)
;;;  (command "ucs" "del" ucs_name)
  (setvar "cmdecho" 1)
  (setvar "osmode" os_old)
)10 (polar bstart rot (* -0.15 d4)))
    (setq pb1 (polar pb10 (+ rot (* 0.111 pi)) (* 0.16 d4)))
    (if        (/= ch_s 1)
      (progn
        (command "pline" bstart pb9 pb10 pb1 "c")
        (setq grp20 (ssadd (entlast) grp20))
      )