问题四：请看这个图，如你们画，要用多少时间？

lcad

(defun jbd ()
  (setq dcl1 (load_dialog "jb.dcl"))
  (if (not (new_dialog "JB" dcl1))
    (exit)
  )
  (setq dh1 "0")
  (set_tile "bl1" bl1)
  (set_tile "dh1" "0")
  (set_tile "btbl" btbl)
  (action_tile "bl1" "(setq bl1 $value)")
  (action_tile "dh1" "(setq dh1 $value)")
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq tes (start_dialog))
  (unload_dialog dcl1)
)
(defun c:jb ()
  (defun *error* (msg)
    (setvar "cmdecho" oe)
    (setvar "clayer" lay)
    (setvar "OSMODE" os)
      (redraw)
    (setq dh1  nil
          oe   nil
          os   nil
          lay  nil
          sxs  nil
          dhs  nil
          e    nil
          i    nil
          p0   nil
          p1   nil
          pc   nil
          bl   nil
          sca  nil
          ee1  nil
          e1   nil
          ee2  nil
          e2   nil
          bl1  nil
          btbl nil
          tes  nil
          dh   nil
          kkk  nil
          acs  nil
          k    nil
          test nil
          ptt  nil
          kk   nil
          pa   nil
          ang  nil
          e3   nil
          n    nil
          p    nil
          ep   nil
    )
    (princ)
  )
  (setq oe (getvar "cmdecho"))
  (setq os (getvar "OSMODE"))
  (setq lay (getvar "clayer"))
  (setvar "CMDECHO" 0)
  (setvar "osmode" (+ os 16384))
  (setvar "angdir" 0)
  (setvar "angbase" 0)
  (if (= (tblsearch "layer" "jbfd") nil)
    (command "layer" "n" "jbfd" "c" "7" "jbfd" "")
  )
  (setq        sxs (list "100:1"    "10:1"        "5:1"           "4:1"
                  "2.5:1"    "2:1"        "1:1"           "1:2"
                  "1:2.5"    "1:4"        "1:5"           "1:6"
                  "1:8"             "1:10"        "1:20"           "1:25"
                  "1:50"     "1:100"        "1:200"           "1:250"
                  "1:500"    "1:1000"        "1:2000"   "1:2500"
                  "1:5000"   "1:10000"        "1:20000"  "1:25000"
                  "1:50000"  "1:100000"
                 )
  )
  (setq        dhs (list "Ⅰ" "Ⅱ" "Ⅲ" "Ⅳ" "Ⅴ" "Ⅵ"        "Ⅶ" "Ⅷ" "Ⅸ" "Ⅹ" "Ⅺ"
                  "Ⅻ")
  )
  (princ "\n请画一个包围所有欲放大图形的圆:")
  (command "layer" "s" "jbfd" "")
  (command "circle" pause pause)
  (setq e (entlast))
  (setq        pc (cdr (assoc 10 (entget e)))
        r  (cdr (assoc 40 (entget e)))
  )
  (szbl pc)
  (command "line"
           (polar pc (dtr 45) r)
           (polar pc (dtr 45) (* 2 r))
           ""
  )
  (setq ee1 (entlast))
  (setq e1 (entget ee1))
  (command "line" (polar pc (dtr 45) (* 2 r)) "@10<0" "")
  (setq ee2 (entlast))
  (setq e2 (entget ee2))
  (setq p0 (cdr (assoc 10 e2)))
  (setq i 0)
  (while (< i (length sxs))
    (if        (= (nth i sxs) bl)
      (progn
        (setq bl1 (itoa (- i 1)))
        (setq i (length sxs))
      )
    )
    (setq i (+ i 1))
  )
  (setq btbl (strcat "本图比例为：" bl))
  (jbd)
  (if (= tes 1)
    (progn
      (setq kkk (nth (atoi bl1) sxs))
      (setq dh (nth (atoi dh1) dhs))
      (if (= (substr kkk 1 2) "1:")
        (setq acs (atof (substr kkk 3 (- (strlen kkk) 2))))
        (setq acs (/ 1 (atof (substr kkk 1 (- (strlen kkk) 2)))))
      )
      (setq k (/ sca acs))
      (command "text"
               "J"
               "C"
               (list (+ (nth 0 p0) 5) (+ (nth 1 p0) 1))
               "5"
               "0"
               dh
      )
      (setq e3 (entget (entlast)))
      (setq test 1)
      (command "redraw")
      (while test
        (setq ptt (grread T))
        (setq kk (car ptt))
        (setq pa (cadr ptt))
        (if (or (= kk 5) (= kk 3))
          (progn
            (setq ang (angle pc pa))
            (setq p0 (polar pc ang r))
            (setq e1 (subst (cons 10 p0) (assoc '10 e1) e1))
            (setq e1 (subst (cons 11 pa) (assoc '11 e1) e1))
            (entmod e1)
            (setq e2 (subst (cons 10 pa) (assoc '10 e2) e2))
            (setq
              e2 (subst (cons 11 (polar pa 0 10)) (assoc '11 e2) e2)
            )
            (entmod e2)
            (setq e3
                   (subst (cons 11 (list (+ (nth 0 pa) 5) (+ (nth 1 pa) 0.5)))
                          (assoc '11 e3)
                          e3
                   )
            )
            (entmod e3)
          )
        )
        (if (= kk 3)
          (setq test nil)
        )
      )
      (princ "\n请选取局部放大图放置点:")
      (command "circle" pc (* r k))
      (setq e1 (entget (entlast)))
      (setq test 1)
      (command "redraw")
      (while test
        (setq ptt (grread T))
        (setq kk (car ptt))
        (setq p (cadr ptt))
        (if (or (= kk 5) (= kk 3))
          (progn
            (setq e1 (subst (cons 10 p) (assoc '10 e1) e1))
            (entmod e1)
          )
        )
        (if (= kk 3)
          (setq test nil)
        )
      )

      (entdel (entlast))
      (command "copy" "cp")
      (setq n 0)
      (repeat 180
        (command (polar pc (/ (* 2 n pi) 180) r))
        (setq n (+ n 1))
      )
      (command "" "" pc p)
      (setq n 0)
      (setvar "ICKBOX" 5)
      (command "zoom" "C" p (* 3 r))
      (COMMAND "CIRCLE" p r)
      (setq ep (entlast))
      (command "trim" ep "")
      (repeat 180
        (command "F" (polar p (/ (* 2 n pi) 180) (* r 1.01)))
        (setq n (+ n 1))
        (command (polar p (/ (* 2 n pi) 180) (* r 1.01)) "")
      )
      (command "" "zoom" "")
      (command "scale"
               "C"
               (list (- (car p) r) (- (cadr p) r))
               (list (+ (car p) r) (+ (cadr p) r))
               ""
               p
               k
      )
      (command "erase" ep "")
      (setq p0 (polar p (dtr 90) (+ (* k r) 10)))

      (command "line" (polar p0 pi 7.5) (polar p0 0 7.5) "")
      (command "text"
               "J"
               "C"
               (polar p0 (dtr 90) 1)
               "5"
               "0"
               dh
      )
      (command "text"
               "J"
               "C"
               (polar p0 (dtr 270) 6)
               "5"
               "0"
               kkk
      )
      (command "redraw")
    )
    (progn
      (entdel e)
      (entdel ee1)
      (entdel ee2)
    )
  )
  (setvar "cmdecho" oe)
  (setvar "clayer" lay)
  (setvar "OSMODE" os)
  (setq        dh1  nil
        oe   nil
        os   nil
        lay  nil
        sxs  nil
        dhs  nil
        e    nil
        i    nil
        p0   nil
        p1   nil
        pc   nil
        bl   nil
        sca  nil
        ee1  nil
        e1   nil
        ee2  nil
        e2   nil
        bl1  nil
        btbl nil
        tes  nil
        dh   nil
        kkk  nil
        acs  nil
        k    nil
        test nil
        ptt  nil
        kk   nil
        pa   nil
        ang  nil
        e3   nil
        n    nil
        p    nil
        ep   nil
  )
  (redraw)
  (princ)
)

;jb.dcl:

JB:dialog{
  label = "生成局部放大图";
    :text{
      label = "本图比例为";
      key="btbl";
    }
   :row{
       :text{
          label = "比例:";
        }
      :popup_list {
        alignment=top;
        key = "bl1";
        list="100:1\n10:1\n5:1\n4:1\n2.5:1\n2:1\n1:1\n1:2\n1:2.5\n1:4\n1:5\n1:6\n1:8\n1:10\n1:20\n1:25\n1:50\n1:100\n1:200\n1:250\n1:500\n1:1000\n1:2000\n1:2500\n1:5000\n1:10000\n1:20000\n1:25000\n1:50000\n1:100000";
      }
    }
    :row{
       :text{
          label = "代号:";
        }
      :popup_list {
        alignment=top;
        key = "dh1";
        list="Ⅰ\nⅡ\nⅢ\nⅣ\nⅤ\nⅥ\nⅦ\nⅧ\nⅨ\nⅩ\nⅪ\nⅫ";
      }
    }
  :spacer{}
  ok_cancel;
}

龙龙仔

zh3

hzzhao

huangzq

tjqjwjs

plsboy

不过我是用高华CAD R14版的软件，很多功能加快速度，如果用现在的ACAD2002版，可能速度就没有那么快了。

wcj_mj

不能超过5分钟，否则还需练习！

xjliubo