±ê×¢·É³öÈ¥£¬£¬ÎÊÌâͨ³£³öÔÚÄÄÀ

»ÊÉÏ¿ìÁï

(DEFUN C:auor (/ p01_midx_l p01_midx_r p01_midx_u p01_midx_d new_1 p01_middle cdat
   p1 p1x p1y p2 p2x p2y Xmid0 Xmid1 Xmid2 pax pay pbx pby pa pb edit_dim
   base_13x13y ss sslen ssno ent name p0 p01 p01x p01y py p01_midx p01_midy
   base_13y13x ymid0 ymid1 ymid2 PX edit_y edit_x yes_ok map_list po_list)
(setq cdat (atoi (rtos (getvar "cdate"))))
(if (> cdat 20000430)
    (progn
(setvar "cmdecho" 0)
(setvar "dimzin" 8)
(prompt "\n Thank you!
  \n Thank you!
  \n Thank you!
  \n Thank you!")
(setq dcl_id (load_dialog "auor.dcl"))
(if (not (new_dialog "auor" dcl_id)) (exit))
(set_tile "fx" "fx2")
(set_tile "fy" "fy2")
(if (null edit_x) (setq edit_x 15))
(if (null edit_y) (setq edit_y 15))
(if (null edit_dim) (setq edit_dim (getvar "dimtxt")))
(set_tile "edit_x" (rtos edit_x))
(set_tile "edit_y" (rtos edit_y))
(set_tile "edit_dim" (rtos edit_dim))
(if (null yes_ok) (setq yes_ok 1))
(set_tile "yes_ok" (rtos yes_ok))
(action_tile "edit_dim" "(setq edit_dim (check $key))")
(action_tile "edit_x" "(setq edit_x (check $key))")
(action_tile "edit_y" "(setq edit_y (check $key))")
(action_tile "accept" "(setq valuex (get_tile \"fx\"))
    (setq yes_ok (distof (get_tile \"yes_ok\")))
    (setq valuey (get_tile \"fy\"))(done_dialog 1)"
)
(setq do_what (start_dialog))
(unload_dialog dcl_id)
   (if (= 1 do_what)
     (progn
(cond ((= valuex "fx2") (setq fx 2))
  ((= valuex "fx2.5") (setq fx 2.5))
  ((= valuex "fx3") (setq fx 3))
  ((= valuex "fx3.5") (setq fx 3.5))
  ((= valuex "fx4") (setq fx 4))
  ((= valuex "fx5") (setq fx 5))
  ((= valuex "fx7") (setq fx 7))
  ((= valuex "fx10") (setq fx 10))
)
(cond ((= valuey "fy2") (setq fy 2))
  ((= valuey "fy2.5") (setq fy 2.5))
  ((= valuey "fy3") (setq fy 3))
  ((= valuey "fy3.5") (setq fy 3.5))
  ((= valuey "fy4") (setq fy 4))
  ((= valuey "fy5") (setq fy 5))
  ((= valuey "fy7") (setq fy 7))
  ((= valuey "fy10") (setq fy 10))
)
  ;;;;;
  (if  (not (tblsearch "style" "iso-25"))
      (command "style" "iso-25" "gbcbig" "" "0.7" "" "" "" "")
  )
  ;;;;;
  (setvar "dimtxt" edit_dim)
  (setvar "dimasz" (/ edit_dim 3))
  (setvar "dimexo" (/ edit_dim 4))
  (setvar "dimtxsty" "iso-25")
  ;;;;;
  (setq pick (getvar "pickbox"))
  (SETVAR "pickbox" 10)
  (SETVAR "OSMODE" 183)
  (SETQ PTOR (GETPOINT "\n ÇëÑ¡Ôñ×ø±êÔ­µã"))
  (COMMAND "_UCS" "O" PTOR)
  (COMMAND "_UCSICON" "OR")
  (SETVAR "CMDECHO" 0)
  (setq   txt (getvar "dimtxt")
          txt0 (/ txt 5)
          txt1 (+ txt txt0)
   txt2 (- 0 txt1)
  )
;;;;;;;
  (SETQ   P1   (GETPOINT "\n ÇëÑ¡Ôñ×óϽǵã")
   P1X  (CAR P1)
   P1Y  (CADR P1)
   P2   (GETCORNER P1 "\n ÇëÑ¡ÔñÓÒÉϽǵã")
   P2X  (CAR P2)
   P2Y  (CADR P2)
   Xmid0 (abs (/ (- p2x p1x) fx))
   Xmid1 (+ p1x Xmid0)
   Xmid2 (- p2x Xmid0)
   Ymid0 (abs (/ (- p2Y p1Y) fy))
   Ymid1 (+ p1Y Ymid0)
   Ymid2 (- p2Y Ymid0)
   PAX  (- P1X 13)
   PAY  (- P1Y 13)
   PBX  (+ P2X 13)
   PBY  (+ P2Y 13)
   PA   (LIST PAX PAY)
   PB   (LIST PBX PBY)
   po_left (+ p1x 40)
   po_down (+ p1y 40)
   po_right (- p2x 40)
   po_up (- p2y 40)
  )
  (SETVAR "OSMODE" 0)
;;111111111111
  (SETQ SS (SSGET "c" P1 P2 (list (cons -4 "<or")(cons 0 "CIRCLE") (cons 0 "INSERT")
   (cons 0 "POINT") (cons -4 "<and")(cons 0 "ARC")(cons -4 ">")(cons 40 2.5)
   (cons -4 "<")(cons 40 15)(cons -4 "and>")(cons -4 "or>")))
  )
  (if (null ss) (setq ss (ssadd)))
  (setq   SSLEN  (SSLENGTH   SS)
                     SSNO  -1)
  (REPEAT SSLEN
   (SETQ SSNO (1+ SSNO))
                (SETQ ENT (SSNAME SS SSNO))
                        (SETQ P0 (CDR (ASSOC 10 (ENTGET ENT
                        )        )    )         )
                        (SETQ P01 (TRANS P0 0 1)
    map_list (append map_list (list p01))
   )
  )
  (setq   po_o (list p2x p1y)
   po_list (list p1 p2 po_o)
   map_list (append map_list po_list)
   SSNO -1
   )
  (REPEAT (length map_list)
   (SETQ SSNO (1+ SSNO))
                (SETQ P01 (nth SSNO map_list)
                              P01X (CAR P01)
                              P01Y (CADR P01)
                        )
   (if (and (>= P01X Xmid2)(null (member p01 p01_midx_r)))
       (setq p01_midx_r (append p01_midx_r (list p01)))
   )
   (if (and (<= P01X Xmid1)(null (member p01 p01_midx_l))
    (null (member p01 p01_midx_r)))
       (setq p01_midx_l (append p01_midx_l (list p01)))
   )
   (if (and (<= P01Y ymid1)(null (member p01 p01_midx_d)))
       (setq p01_midx_d (append p01_midx_d (list p01)))
   )
   (if (and (>= P01Y ymid2)(null (member p01 p01_midx_u))
    (null (member p01 p01_midx_d)))
       (setq p01_midx_u (append p01_midx_u (list p01)))
   )
   (if (and (< Xmid1 P01X Xmid2)(null (member p01 p01_midx)))
       (setq p01_midx (append p01_midx (list p01)))
   )
   (if (and (< ymid1 P01Y ymid2)(null (member p01 p01_midy)))
       (setq p01_midy (append p01_midy (list p01)))
   )
       )
  (setq p01_middle p01_midx_r
      new (list)
         add_del <
         pbx_pax pbx
         sin_cos cos
  )
  (p01_mid)
  (pyord)
  (setq p01_middle p01_midx_l
      new (list)
         add_del >
         pbx_pax pax
         sin_cos cos
  )
  (p01_mid)
  (pyord)
  (setq p01_middle p01_midx_d
      new (list)
         add_del >
         pbx_pax pay
         sin_cos sin
  )
  (p01_mid)
  (pxord)
  (setq p01_middle p01_midx_u
      new (list)
         add_del <
         pbx_pax pby
         sin_cos sin
  )
  (p01_mid)
  (pxord)
;;********
  (setq ssno -1)
  (repeat (length p01_midx)
   (setq   ssno (1+ ssno)
    p01 (nth ssno p01_midx)
    P01X  (atof (rtos (CAR P01) 2 3))
                                P01Y  (atof (rtos (CADR P01) 2 3))
   )
   (PYNIL)
  )
;;;;;;;;;;
  (setq ssno -1)
  (repeat (length p01_midy)
   (setq   ssno (1+ ssno)
    p01 (nth ssno p01_midy)
    P01X  (atof (rtos (CAR P01) 2 3))
                                P01Y  (atof (rtos (CADR P01) 2 3))
   )
   (PxNIL)
  )
  (princ)
  (SETVAR "OSMODE" 183)
  (setvar "pickbox" pick)
    );;do_what=1
   )
  )
  (prompt "¶Ô²»Æð!ÊÔÓÃÆÚËȹý,Çë°²×°Õý°æ!")
)
)
;;;;;;;@@@@@@@@
;;;;;;;@@@@@@@@
(defun p01_mid (/ p01)
(while (> (length p01_middle) 0)
  (setq   no -1
   dist_o -2
  )
  (repeat (length p01_middle)
   (SETQ   no (1+ no)
    P01 (nth no p01_middle)
    angl_p01 (angle po_o P01)
    dist_p01 (distance po_o P01)
    dist_all (* dist_p01 (sin_cos (- angl_p01 (/ pi 2))))
   )
   (if (> dist_all dist_o)
      (progn
    (setq   dist_o dist_all
     p0_all P01
    )
      )
   )
  )
  (while (/= (distance po_o (car p01_middle))(distance po_o p0_all))
   (setq   new_1 (cons (car p01_middle) new_1)
    p01_middle (cdr p01_middle)
   )
  )
  (setq p01_middle (append (cdr p01_middle) new_1)
   new (cons p0_all new)
   new_1 nil
  )
)
)
;;;;;;;
(defun pyord (/ p01)
        (SETVAR "OSMODE" 0)
(SETVAR "pickbox" 10)
(setq base_y (- p1y 20)
       base_13x (atof (rtos (- p1y 20) 2 3))
       base_13y (atof (rtos (- p1y 20) 2 3))
    no -1
)
(repeat (length new)
  (setq   no (1+ no)
   p01 (nth no new)
   p01x (atof (rtos (car p01) 2 3))
   p01y (atof (rtos (cadr p01) 2 3))
  )
  (if (= p01y base_13y)
     (progn
   (if (add_del base_13x p01x)
      (progn
    (entdel (entlast))
    (COMMAND "_DIMORDINATE" P01 p01_14)
    (setq   base_y (cadr p01_14)
           base_13x (atof (rtos p01x 2 3))
                  base_13y (atof (rtos p01y 2 3))
    )
      )
   )
     )
     (progn
   (if (> (- p01y base_y) txt1)
    (setq p01_14 (list pbx_pax p01y))
    (setq p01_14 (list pbx_pax (+ txt1 base_y)))
   )
   (COMMAND "_DIMORDINATE" P01 p01_14)
   (setq   base_y (cadr p01_14)
          base_13x (atof (rtos p01x 2 3))
                 base_13y (atof (rtos p01y 2 3))
   )
     )
  )
  (if (null (member base_13y base_13x13y))
   (setq base_13x13y (cons base_13y base_13x13y)))
)
)
;;;;;;
(defun pxord (/ p01)
        (SETVAR "OSMODE" 0)
(SETVAR "pickbox" 10)
(setq base_y (+ p2x 20)
       base_13x (atof (rtos (+ p2x 20) 2 3))
       base_13y (atof (rtos (+ p2x 20) 2 3))
    no -1
)
(repeat (length new)
  (setq   no (1+ no)
   p01 (nth no new)
   p01x (atof (rtos (car p01) 2 3))
   p01y (atof (rtos (cadr p01) 2 3))
  )
  (if (= p01x base_13x)
     (progn
   (if (add_del base_13y p01y)
      (progn
    (entdel (entlast))
    (COMMAND "_DIMORDINATE" P01 p01_14)
    (setq   base_y (car p01_14)
           base_13x (atof (rtos p01x 2 3))
                  base_13y (atof (rtos p01y 2 3))
    )
      )
   )
     )
     (progn
   (if (< (- p01x base_y) txt2)
    (setq p01_14 (list p01x pbx_pax))
    (setq p01_14 (list (+ base_y txt2) pbx_pax))
   )
   (COMMAND "_DIMORDINATE" P01 p01_14)
   (setq   base_y (car p01_14)
          base_13x (atof (rtos p01x 2 3))
                 base_13y (atof (rtos p01y 2 3))
   )
     )
  )
  (if (null (member base_13x base_13y13x))
   (setq base_13y13x (cons base_13x base_13y13x)))
)
)
;;;;******PYNIL
(DEFUN PYNIL (/ list_right1 list_left1 p01_right p01_right1 p01_left1 p01_right2 p01_left2
   p01_left list_right list_left list_right2 list_left2 list_all
   noadd noadd_dist list_qty addangl list_no ok_p01 pot_angl noadd_whil)
    (SETVAR "OSMODE" 0)
    (if (= 1 yes_ok)
  (setq   ssget_py1 nil)
  (setq   ssget_py1 (member p01y base_13x13y))
    )
    (if (or (< p01y po_down) (> p01y po_up))
  (setq   ssget_py1 (member p01y base_13x13y))
    )
    (IF (null ssget_py1)
      (PROGN
     (SETQ   len_P01Y (strlen (RTOS P01Y 2 2))
   texthigh (getvar "dimtxt")
   texthigh_half (/ texthigh 2)
    textwid (* (* len_P01Y texthigh) 0.6)
   aszwid (getvar "dimasz")
   noadd 0
   list_left1 (list)
   list_all (list)
   list_qty (list)
  )
  (while (< noadd edit_x)
   (setq   noadd (+ 2 noadd)
    noadd_dist (+ noadd (* 2 aszwid))
    list_qty (cons noadd_dist list_qty)
   )
  )
  (setq qty_max (nth 0 list_qty))
  (setq list_qty (reverse list_qty))
  (setq pot_left (polar p01 2.6 (+ qty_max textwid)))
  (setq pot_right (polar p01 5.7 (+ qty_max textwid)))
  (setq ch_ss (ssget "C" pot_left pot_right (list (cons 0 "DIMENSION"))))
  (setq ch_no -1
        ch_ok nil
  )
  (if (not (null ch_ss))
      (repeat (sslength ch_ss)
   (setq   ch_no (1+ ch_no)
    ch_name (ssname ch_ss ch_no)
   )
                        (SETQ ch_13 (TRANS (CDR (ASSOC 13 (entget ch_name))) 0 1))
   (SETQ ch_14 (TRANS (CDR (ASSOC 14 (entget ch_name))) 0 1))
   (setq ch_x (atof (rtos (caddr (assoc 13 (entget ch_name))) 2 3)))
   (setq ch_angl (angle ch_13 ch_14))
   (if (and (or (<= 0 ch_angl 0.78) (<= 2.4 ch_angl 3.9)
    (<= 5.5 ch_angl 6.3))
    (= ch_x (atof (rtos (cadr (trans p01 1 0)) 2 3))))
    (setq ch_ok (cons "ng" ch_ok))
   )
      )
  )
;;;;;;;
(if (null ch_ok)
     (progn
;;;;;;;
  (setq list_no -1)
  (repeat (length list_qty)
   (setq   list_no (1+ list_no)
    p01_right (list (polar p01 0 (nth list_no list_qty)))
    list_right (append list_right p01_right)
   )
  )
  (setq list_no -1)
  (repeat (length list_qty)
   (setq   list_no (1+ list_no)
    p01_left (list (polar p01 pi (nth list_no list_qty)))
    list_left (append list_left p01_left)
   )
  )
;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl pi
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_left1 (list (polar p01 addangl (nth list_no list_qty)))
    list_left1 (append list_left1 p01_left1)
   )
     )
  )
;;;;;
;;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl 0
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_right1 (list (polar p01 addangl (nth list_no list_qty)))
    list_right1 (append list_right1 p01_right1)
   )
     )
  )
;;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl (/ (* pi 150) 180)
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_left2 (list (polar p01 addangl (nth list_no list_qty)))
    list_left2 (append list_left2 p01_left2)
   )
     )
  )
;;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl (/ (* pi 330) 180)
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_right2 (list (polar p01 addangl (nth list_no list_qty)))
    list_right2 (append list_right2 p01_right2)
   )
     )
  )
;;;;;;
  (setq noadd -1)
  (repeat (length list_right)
   (setq   noadd (1+ noadd)
    list_all (append list_all (list (nth noadd list_left)))
    list_all (append list_all (list (nth noadd list_right)))
   )
  )
;;;;;
  (setq noadd -1)
  (repeat (length list_left1)
   (setq noadd (1+ noadd))
   (setq   list_all (append list_all (list (nth noadd list_left1)))
    list_all (append list_all (list (nth noadd list_right1)))
    list_all (append list_all (list (nth noadd list_left2)))
    list_all (append list_all (list (nth noadd list_right2)))
   )
  )
  (setq list_all (append list_all (list (polar p01 0 4) (polar p01 pi 4))))
;;;;;
  
;;;;;
  (setq noadd_whil -1
        ok_p01 NIL
  )
  (while (and (null ok_p01) (> (- (length list_all) noadd_whil) 1))
   (setq   noadd_whil (1+ noadd_whil)
    xpott (nth noadd_whil list_all)
   )
   (selecty xpott)
  )
    (if ok_p01
  (COMMAND "_DIMORDINATE" P01 ok_p01)
  (progn
   (setq ok_p01 (polar p01 0 3))
   (setq dim_color (getvar "dimclrt"))
   (setvar "dimclrt" 2)
   (COMMAND "_DIMORDINATE" P01 ok_p01)
   (setvar "dimclrt" dim_color)
  )
    )
))
)
   )
)
;;;;;
(defun selecty (xpot / int_list pot_int pot_angl pot_14 pot_13 nam_dim dim_name dim_full
   y_14 y_p01 Y_xpot)
  (if (> (car xpot) (car p01)) (setq angl 0) (setq angl pi))
  (if (null (ssget "C" (polar xpot 1.57 texthigh_half)
   (polar (polar xpot 4.71 texthigh_half) angl textwid)))
    (progn
  (setq dimx_angl (angle p01 xpot))
  (setvar "pickbox" 10)
  (setq dim_full (ssget "C" xpot (polar p01 dimx_angl 4)(list (cons 0 "DIMENSION"))))
  (SETVAR "pickbox" 10)
  (setq int_list nil)
  (if (not (null dim_full))
      (progn
   (setq noadd -1)
   (repeat (sslength dim_full)
    (setq   noadd (1+ noadd)
     dim_name (ssname dim_full noadd)
    )
                            (SETQ pot_13 (trans (CDR (ASSOC 13 (entget dim_name))) 0 1))
    (SETQ pot_14 (trans (CDR (ASSOC 14 (entget dim_name))) 0 1))
    (setq pot_angl (angle pot_13 pot_14))
    (if (or (<= 0 pot_angl 0.78) (<= 2.4 pot_angl 3.9) (<= 5.5 pot_angl 6.3))
        (progn
     (setq pot_15 (polar pot_14 pot_angl textwid))
     (setq pot_int (inters pot_13 pot_15 p01 xpot))
     (if (not (null pot_int))
         (setq int_list (cons pot_int int_list))
         (progn
      (setq   y_14 (cadr pot_14)
       y_p01 (cadr p01)
       y_xpot (cadr xpot)
      )
      (if (or (<= (abs (- y_p01 y_14)) texthigh_half)
       (<= (abs (- y_xpot y_14)) texthigh_half)
           )
           (setq int_list (cons 3 int_list))
      )
         )
     )
         )
    )
    )
    (if (null int_list) (setq ok_p01 xpot) (setq ok_p01 nil))
       )
       (progn (setq ok_p01 xpot))
  )
  )
  (progn
  (setq ok_p01 nil)
   )
  )
)
;;;;******PxNIL
;;;;******PxNIL
(DEFUN PxNIL (/ list_up1 list_down1 p01_up p01_down p01_down1 p01_up1 p01_up2 p01_down2
  list_up list_down list_up2 list_down2 pot_angl list_all angl13_14 ssget_13X
ssget_14X ssget_13 noadd noadd_dist list_qty addangl list_no ok_p01 noadd_repeat)
    (SETVAR "OSMODE" 0)
    (if (= 1 yes_ok)
  (setq   ssget_px1 nil)
  (setq   ssget_px1 (member p01x base_13y13x))
    )
    (if (or (> p01x po_right)(< p01x po_left))
  (setq   ssget_px1 (member p01x base_13y13x))
    )
    (IF (null ssget_px1)
     (PROGN
     (SETQ   len_P01x (strlen (RTOS P01x 2 2))
   texthigh (getvar "dimtxt")
   texthigh_half (/ texthigh 2)
    textwid (* (* len_P01x texthigh) 0.6)
   aszwid (getvar "dimasz")
   noadd 0
   list_all (list)
   list_qty (list)
  )
  (while (< noadd edit_y)
   (setq   noadd (+ 2 noadd)
    noadd_dist (+ noadd (* 2 aszwid))
    list_qty (cons noadd_dist list_qty)
   )
  )
  (setq qty_max (nth 0 list_qty))
  (setq list_qty (reverse list_qty))
  (setq pot_up (polar p01 2 (+ qty_max textwid)))
  (setq pot_down (polar p01 5.2 (+ qty_max textwid)))
  (setq ch_ss (ssget "C" pot_up pot_down (list (cons 0 "DIMENSION"))))
  (setq ch_no -1
        ch_ok nil
  )
  (if (not (null ch_ss))
      (repeat (sslength ch_ss)
   (setq   ch_no (1+ ch_no)
    ch_name (ssname ch_ss ch_no)
   )
                        (SETQ ch_13 (TRANS (CDR (ASSOC 13 (entget ch_name))) 0 1))
   (SETQ ch_14 (TRANS (CDR (ASSOC 14 (entget ch_name))) 0 1))
   (setq ch_x (atof (rtos (cadr (assoc 13 (entget ch_name))) 2 3)))
   (setq ch_angl (angle ch_13 ch_14))
   (if (and (or (<= 0.79 ch_angl 2.3) (<= 3.95 ch_angl 5.46))
    (= ch_x (atof (rtos (car (trans p01 1 0)) 2 3))))
    (setq ch_ok (cons "ng" ch_ok))
   )
      )
  )
;;;;;
(if (null ch_ok)
     (progn
  (setq list_no -1)
  (repeat (length list_qty)
   (setq   list_no (1+ list_no)
    p01_up (list (polar p01 (/ pi 2) (nth list_no list_qty)))
    list_up (append list_up p01_up)
   )
  )
  (setq list_no -1)
  (repeat (length list_qty)
   (setq   list_no (1+ list_no)
    p01_down (list (polar p01 (/ (* 3 pi) 2) (nth list_no list_qty)))
    list_down (append list_down p01_down)
   )
  )
;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl (/ pi 2)
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_up1 (list (polar p01 addangl (nth list_no list_qty)))
    list_up1 (append list_up1 p01_up1)
   )
     )
  )
;;;;;
;;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl (/ (* pi 3) 2)
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_down1 (list (polar p01 addangl (nth list_no list_qty)))
    list_down1 (append list_down1 p01_down1)
   )
     )
  )
;;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl (/ (* pi 60) 180)
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_up2 (list (polar p01 addangl (nth list_no list_qty)))
    list_up2 (append list_up2 p01_up2)
   )
     )
  )
;;;;;
  (setq list_no -1)
  (repeat (length list_qty)
     (setq   list_no (1+ list_no)
    addangl (/ (* pi 240) 180)
     )
     (repeat 2
   (setq   addangl (+ addangl (/ (* pi 10) 180))
    p01_down2 (list (polar p01 addangl (nth list_no list_qty)))
    list_down2 (append list_down2 p01_down2)
   )
     )
  )
;;;;;;
  (setq noadd -1)
  (repeat (length list_up)
   (setq   noadd (1+ noadd)
    list_all (append list_all (list (nth noadd list_up)))
    list_all (append list_all (list (nth noadd list_down)))
   )
  )
;;;;;
  (setq noadd -1)
  (repeat (length list_up1)
   (setq noadd (1+ noadd))
   (setq   list_all (append list_all (list (nth noadd list_up1)))
    list_all (append list_all (list (nth noadd list_down1)))
    list_all (append list_all (list (nth noadd list_up2)))
    list_all (append list_all (list (nth noadd list_down2)))
   )
  )
  (setq list_all (append list_all (list (polar p01 (/ pi 2) 4) (polar p01 (/ (* 3 pi) 2) 4))))
;;;;;
  
;;;;;
  (setq noadd_repeat -1
        ok_p01 NIL
  )
  (while (and (null ok_p01) (> (- (length list_all) noadd_repeat) 1))
   (setq   noadd_repeat (1+ noadd_repeat)
    xpott (nth noadd_repeat list_all)
   )
   (selectx xpott)
  )
       (if ok_p01
  (COMMAND "_DIMORDINATE" P01 ok_p01)
  (progn
   (setq ok_p01 (polar p01 (/ pi 2) 3))
   (setq dim_color (getvar "dimclrt"))
   (setvar "dimclrt" 2)
   (COMMAND "_DIMORDINATE" P01 ok_p01)
   (setvar "dimclrt" dim_color)
  )
      )
))
)
   )
)
;;;;;;;
(defun selectx (xpot / int_list pot_int pot_angl pot_14 pot_13 nam_dim dim_name dim_full)
  (if (> (cadr xpot) (cadr p01)) (setq angl (/ pi 2)) (setq angl (/ (* 3 pi) 2)))
  (if (null (ssget "C" (polar xpot pi texthigh_half)
   (polar (polar xpot 0 texthigh_half) angl textwid)))
    (progn
  (setq dimx_angl (angle p01 xpot))
  (setvar "pickbox" 10)
  (setq dim_full (ssget "C" xpot (polar p01 dimx_angl 3)(list (cons 0 "DIMENSION"))))
  (SETVAR "pickbox" 10)
  (setq int_list nil)
  (if (not (null dim_full))
      (progn
   (setq noadd -1)
   (repeat (sslength dim_full)
    (setq   noadd (1+ noadd)
     dim_name (ssname dim_full noadd)
    )
    (setq pot_angl NIL)
                            (SETQ pot_13 (TRANS (CDR (ASSOC 13 (entget dim_name))) 0 1))
    (SETQ pot_14 (TRANS (CDR (ASSOC 14 (entget dim_name))) 0 1))
    (setq len_13x (strlen (RTOS (cadr pot_13) 2 2))
      textwid1 (* (* len_13x texthigh) 0.7)
    )
    (setq pot_angl (angle pot_13 pot_14))
    (if (or (<= 0.79 pot_angl 2.3) (<= 3.95 pot_angl 5.46))
        (progn
     (setq pot_15 (polar pot_14 pot_angl textwid))
     (setq pot_int (inters pot_13 pot_15 p01 xpot))
     (if (not (null pot_int))
         (setq int_list (cons pot_int int_list))
         (progn
      (setq   x_14 (car pot_14)
       x_p01 (car p01)
       x_xpot (car xpot)
      )
      (if (or (<= (abs (- x_p01 x_14)) texthigh_half)
       (<= (abs (- x_xpot x_14)) texthigh_half)
           )
           (setq int_list (cons 3 int_list))
      )
          )
       )
           )
           (progn
      (setq pot_16 (polar pot_14 pot_angl textwid1))
      (setq pot_int3 (inters pot_14 pot_16 p01 xpot))
      (if (not (null pot_int3))
       (setq int_list (cons pot_int3 int_list))
      )
     )
      )
    )
    (if (null int_list) (setq ok_p01 xpot) (setq ok_p01 nil))
       )
       (progn (setq ok_p01 xpot))
  )
  )
  (progn
  (setq ok_p01 nil)
   )
  )
)
;;;;;;;
(defun check (number)
  (set_tile "error" "")
  (if (not (distof (get_tile number)))
   (progn
    (set_tile "error" "error value")
    (mode_tile number 2)
    (mode_tile number 3)
    nil
   )
   (distof (get_tile number))
  )
)





auor:dialog {label="dimordinate¦Û×Ô¶¯×ø±ê±ê×¢!";
:row{
:radio_column{key="fx";
   label=X·½Ïò;
  :radio_button{
   label="·Ö³É2·Ý";
   key="fx2";}
  :radio_button{
   label="·Ö³É2.5·Ý";
   key="fx2.5";}
  :radio_button{
   label="·Ö³É3·Ý";
   key="fx3";}
  :radio_button{
   label="·Ö³É3.5·Ý";
   key="fx3.5";}
  :radio_button{
   label="·Ö³É4·Ý";
   key="fx4";}
  :radio_button{
   label="·Ö³É5·Ý";
   key="fx5";}
  :radio_button{
   label="·Ö³É7·Ý";
   key="fx7";}
  :radio_button{
   label="·Ö³É10·Ý";
   key="fx10";}
   }
:radio_column{key="fy";
   label=Y·½Ïò;
  :radio_button{
   label="·Ö³É2·Ý";
   key="fy2";}
  :radio_button{
   label="·Ö³É2.5·Ý";
   key="fy2.5";}
  :radio_button{
   label="·Ö³É3·Ý";
   key="fy3";}
  :radio_button{
   label="·Ö³É3.5·Ý";
   key="fy3.5";}
  :radio_button{
   label="·Ö³É4·Ý";
   key="fy4";}
  :radio_button{
   label="·Ö³É5·Ý";
   key="fy5";}
  :radio_button{
   label="·Ö³É7·Ý";
   key="fy7";}
  :radio_button{
   label="·Ö³É10·Ý";
   key="fy10";}
   }
  }
:row{
  :edit_box{label="xÏò×î´óÆ«ÒÆ:";
   edit_width=7;
   key="edit_x";
   }
  :edit_box{label="yÏò×î´óÆ«ÒÆ:";
   edit_width=7;
   key="edit_y";
   }
  }
:row{
  :toggle{label="±ê×¢Öظ´³ß´ç";
    key="yes_ok";}
  spacer_1;
  :edit_box{label="ÎÄ×ָ߶È:";
    edit_width=7;
    //fixed_width=true;
    key="edit_dim";
   }
  }
ok_cancel;
errtile;
  }

lostbalance

´úÂëÌ«³¤£¬¿´²»Ì«Ã÷°×¡£¹â¿´Í¼µÄ»°£¬ÓÒ²àÕý³££¬×ó²à²»Õý³££¬²Â²âÊDz»ÊÇ£¬×ó²à×ø±êµÄ¶¨Î»µã£¬°ÑÏà¶Ô×ø±ê×÷Ϊ¾ø¶Ô×ø±êÀ´¶¨Î»ÁË£¿

»ÊÉÏ¿ìÁï

lostbalance ·¢±íÓÚ 2016-10-25 13:15
´úÂëÌ«³¤£¬¿´²»Ì«Ã÷°×¡£¹â¿´Í¼µÄ»°£¬ÓÒ²àÕý³££¬×ó²à²»Õý³££¬²Â²âÊDz»ÊÇ£¬×ó²à×ø±êµÄ¶¨Î»µã£¬°ÑÏà¶Ô×ø±ê×÷Ϊ ...

ÇëÎÊ£ºÏà¶Ô×ø±ê Óë ¾ø¶Ô×ø±ê£¬·Ö±ðÊÇUCS "O" ºÍ UCS "W" Âð£¿ÎÒÏà³¢ÊԸĸĸóÌÐò£¬£¬ÕÒ²»µ½ÏÂÊֵĵط½

ËüÏÖÔÚµÄÌصãÊÇ£ºÍ¨³£¶¼Íù×ó²à·É£¬Èç¹û½«Í¼ÐÎÍù×ó²àƽÒÆÒ»¶Î¾àÀ룬ÔòÍùÓÒ²à·É

·É³öÈ¥µÄ¶¼ÊÇY×ø±ê³ß´ç£¬ÒÔ¼°Óë¸Ã×ø±ê¹²µãµÄX×ø±ê³ß´ç£¬¼´·É³öÈ¥µÄÊÇ×ø±êµã£¬²¢·Ç³ß´çÎı¾(Èçͼ£©





ͼÐβ»Ò»Ñùʱ£¬·É³öÈ¥µÄÊýÁ¿Ò²²»Ò»Ñù¶à
·É³öÈ¥µÄ³¤¶ÈÒ²²»Ò»Ñù

lostbalance

»ÊÉÏ¿ìÁï ·¢±íÓÚ 2016-10-25 17:40
ÇëÎÊ£ºÏà¶Ô×ø±ê Óë ¾ø¶Ô×ø±ê£¬·Ö±ðÊÇUCS "O" ºÍ UCS "W" Âð£¿ÎÒÏà³¢ÊԸĸĸóÌÐò£¬£¬ÕÒ²»µ½ÏÂÊֵĵط½

...

ÎÒÖ¸µÄ²»ÊÇ×ø±êϵ£¬¿ÉÄÜ˵ƫÒÆÁ¿±È½ÏºÃÒ»µã
¾ÍÊDZÈÈ磬²ÎÕÕµã×ø±ê(x0,y0)£¬¼ÆËãµÄÆ«ÒÆÁ¿ÊÇ(dx,dy)£¬Êä³öµÄʱºòÖ±½ÓÓÃÁËÆ«ÒÆÁ¿×ö×îÖÕ×ø±ê£¬Ã»ÓмÓÉϲÎÕÕµã×ø±ê£¬»òÕßÓ¦¸Ãx0+dxµÄ£¬ÓÃÁËx0-dx¡£Öмä¼Ó¼¸¸öprinc£¬¿´¿´±äÁ¿µÄÈ¡ÖµÒÔ¼°Õý¸ººÅ¶Ô²»¶Ô¡£

»ÊÉÏ¿ìÁï

lostbalance ·¢±íÓÚ 2016-10-26 08:43
ÎÒÖ¸µÄ²»ÊÇ×ø±êϵ£¬¿ÉÄÜ˵ƫÒÆÁ¿±È½ÏºÃÒ»µã
¾ÍÊDZÈÈ磬²ÎÕÕµã×ø±ê(x0,y0)£¬¼ÆËãµÄÆ«ÒÆÁ¿ÊÇ(dx,dy)£¬Êä³ö ...

лл£¬£¬£¬£¬£¬£¬