[编程交流] 插入块而不是圆环

 
(DEFUN C:TH ()
       (SETQ h (GETDIST " \n Enter HEIGHT OF TEXT : "))
       (setq  x (* 6 h))
       (setq  y (* 12 h))
       (setq  y1 (* 2 h))
       (setq  z (/ h 2))
       (SETQ CRN (GETPOINT "\n Enter Top Left Start corner for table: ")
              angle (getangle "\n Pick Rotation Angle :")
              ang (* angle 57.32484076)
              NO (GETINT " \n Enter start number : ")
              PNT (GETPOINT "\n Pick first coordinate: ")
              CRN1 (POLAR CRN angle x)
              CRN2 (POLAR CRN1 angle y)) 
     (setq p1 (polar crn (+ angle 3.14) h)
            p2 (polar crn1 (+ angle 3.14) h)
            p3 (polar crn2 (+ angle 3.14) h)
            p7 (polar p1 (+ angle 1.57) (* 2 h))
            p8 (polar p2 (+ angle 1.57) (* 2 h))
            p9 (polar p3 (+ angle 1.57) (* 2 h))
            p10 (polar p7 (+ angle 1.57) (* 3 h))
            p11 (polar p8 (+ angle 1.57) (* 3 h))
            p12 (polar p9 (+ angle 1.57) (* 3 h))
            p13 (polar p12 angle  y )
            p14 (polar p9 angle  y )
            Ins1 (polar crn (+ angle 1.57) (* 3 h))
            Ins2 (polar crn1 (+ angle 1.57) (* 3 h))
            Ins3 (polar crn2 (+ angle 1.57) (* 3 h)))
      (command "regenauto" "off")
      (WHILE PNT
      (SETQ EPNT (RTOS (CAR PNT) 2 3)
            NPNT (RTOS (CADR PNT) 2 3)
            pnt1 (polar pnt (+ angle 0.7857142857) (* h 0.85))
            CRN1 (POLAR CRN angle x)
            CRN2 (POLAR CRN1 angle y)) 
      (setq NO1 (RTOS no 2 0))
      (SETQ NO2 (STRCAT "P" NO1))
      (COMMAND "LAYER" "M" "ID" "C" "C" "" "")
      (COMMAND "STYLE" "ITALICT" "ITALICT" H "1" "" "" "" "" )
      (COMMAND "TEXT" pnt1 ang  NO2)
      (COMMAND "DONUT" "0" z pnt "")
      (COMMAND "TEXT" CRN ang  NO2)
      (COMMAND "TEXT" CRN1 ang  EPNT)
      (COMMAND "TEXT" CRN2 ang  NPNT)
        (SETQ CRN (POLAR CRN (+ angle 4.712389) y1)
            CRN1 (POLAR CRN1 (+ angle 4.712389) y1)
            CRN2 (POLAR CRN2 (+ angle 4.712389) y1)
            NO (1+ NO)
            PNT (GETPOINT "\nPick next coordinate, or RETURN if done: "))
)
(setvar "osmode" 0)
(setq p4 (polar crn (+ angle 3.14) h)
     p5 (polar crn1 (+ angle 3.14) h)
     p6 (polar crn2 (+ angle 3.14) h)
     p15 (polar p6 angle  y ))
(command "line" p10 p4 "")
(command "line" p11 p5 "")
(command "line" p12 p6 "")
(command "line" p4 p15 "")
(command "line" p7 p14 "")
(command "line" p10 p13 "")
(command "line" p13 p15 "")
(setq h1 ( * 1.2 h))
(COMMAND "STYLE" "ITALICT" "ITALICT" H1 "1" "" "" "" "" )
(COMMAND "TEXT" ins1 ang  "Point")
(COMMAND "TEXT" ins2 ang  "Easting")
(COMMAND "TEXT" ins3 ang  "Northing")
)

(SETQ CRN (GETPOINT "\n Enter Top Left Start corner for table: ")
              [b][color="blue"]angle[/color][/b] (getangle "\n Pick Rotation Angle :")
              ang (* angle 57.32484076)
              NO (GETINT " \n Enter start number : ")
              PNT (GETPOINT "\n Pick first coordinate: ")
              CRN1 (POLAR CRN angle x)
              CRN2 (POLAR CRN1 angle y)) 

(COMMAND "DONUT" "0" z pnt "")

(command "_.-insert" (put here the insertion point ) "" "" "")

(command "_.-insert" <blockname> <insertionpoint> <xscale> <yscale> <rotation>)

[b][color=#0000ff]ang[/color][/b] (getangle "\n Pick Rotation Angle :")
              ang (* ang 57.32484076)
or just 
[b][color=#0000ff](setq ang[/color][/b] (* 57.32484076 (getangle "\n Pick Rotation Angle :")))