;;;局部放大===========================================
;;;全部变量JBHD-A(标记字母),JBHD-SC(放大倍数)
(DEFUN HH:JBFD ( / CIR_R CLAY CP DATA DATA_A DATA_B DATA_C DATA_D DATA_G DIMCE DIMT HD IN_P JBHD-STRD JBHD-STRIN LAST1 LASTP LASTT MODE OSMO PD SCA_TT STRD STRD1 STRD2 X)
   (SETVAR "CMDECHO" 0)
   (SETVAR "MENUECHO" 0)  
   (COMMAND "_.UNDO" "_GROUP")
   (setq dimce (getvar "dimcen"))  
   (setvar "dimcen" 0)
   (SETQ CLAY (GETVAR "CLAYER"))
   (SETQ OSMO (GETVAR "OSMODE"))
   (SETQ MODE (GETVAR "ORTHOMODE"))
   (SETQ dimt (GETVAR "dimtofl"))
   (SETVAR "OSMODE" 0)
   (SETVAR "ORTHOMODE" 0)
   (IF (NULL (TBLSEARCH "LAYER" "DIM"))
     (COMMAND "LAYER" "M" "DIM" "C" "256" "" "" "" "" "")
   )
   (SETVAR "CLAYER" "DIM")
   (INITGET 1)
   (SETQ CP (GETPOINT "\n局部放大中心点: "))
   (PROMPT "\n放大范围: ")
   (COMMAND "_.CIRCLE" CP PAUSE)
   (SETQ LAST1 (ENTLAST));圆
   (setq lastt (cons last1 (list (GETVAR "LASTPOINT"))));(圆.圆心)
   (SETQ CIR_R (CDR (ASSOC 40 (ENTGET LAST1))))
   (SETQ DATA_G (MAPCAR
    'ANGTOF
    '("0" "15"
     "30" "45"
     "60" "75"
     "90" "105"
     "120" "135"
     "150" "165"
     "180" "195"
     "210" "225"
     "240" "255"
     "270" "285"
     "300" "315"
     "330" "345"
     "0"
    )
         )          ; MAPCAR
   )            ; SETQ
   (SETQ DATA_A (MAPCAR
    '(LAMBDA (X)
       (POLAR CP X CIR_R)
     )
    DATA_G
         )
   )
   (SETQ DATA (SSGET "CP" DATA_A '((-4 . "<NOT") (0 . "TEXT")
        (-4 . "NOT>")
        (-4 . "<NOT")
        (0 . "MTEXT")
        (-4 . "NOT>")
        (-4 . "<NOT")
        (0 . "DIMENSION")
        (-4 . "NOT>")
        (-4 . "<NOT")
        (0 . "HATCH")
        (-4 . "NOT>")


AAAAAAAAAAAAAAAAA

好看