[编程交流] 如何链接属性块wi

(command "Insert" "Dwg1" pt 1 1 0 Lat long)
Change 
(princ (strcat "\n Latitude to (setq Lat (strcat "Latitude 

(defun C:1 ()
 (setq lonzone (getint "\n Enter Zone:"))
 (initget "N S")
 (setq Hem (getkword "\n Enter the Hemisphere (S/N):"))
 (setq Pnt (Getpoint "\n Specify Point:"))
 (setq Xval (car Pnt))
 (setq Yval (car (cdr Pnt)))
 (if (= Hem "S")
   (setq Y (- 10000000 Yval))
   (setq Y Yval)
 )
 (if (and (or (= Hem "S") (= Hem "N")) (= Yval 0.0))
   (progn
     (setq Y Yval)
     (setq Hem "Equator")
   )
   (progn
     (setq Y Y)
     (Setq Hem Hem)
   )
 )
 (setq b 6356752.3142)
 (setq a 6378137.0)
 (setq X (- 500000.0 Xval))
 (setq e (sqrt (- 1.0 (expt (/ b a) 2.0))))
 (setq k0 0.9996)
 (setq meridional-arc (/ Y k0))
 (setq        mu (/ meridional-arc
      (* a
         (- 1
            (/ (expt e 2) 4)
            (/ (* 3 (expt e 4)) 64)
            (/ (* 5 (expt e 6)) 256)
         )
      )
   )
 )
 (setq        e1 (/ (- 1 (expt (- 1 (expt e 2)) 0.5))
      (+ 1 (expt (- 1 (expt e 2)) 0.5))
   )
 )
 (setq j1 (- (/ (* 3 e1) 2) (/ (* 27 (expt e1 3)) 32)))
 (setq j2 (- (/ (* 21 (expt e1 2)) 16) (/ (* 55 (expt e1 4)) 32)))
 (setq j3 (/ (* 151 (expt e1 3)) 96))
 (setq j4 (/ (* 1097 (expt e1 4)) 512))
 (setq        footprint-latitude
 (+ mu
    (* j1 (sin (* 2.0 mu)))
    (* j2 (sin (* 4.0 mu)))
    (* j3 (sin (* 6.0 mu)))
    (* j4 (sin (* 8.0 mu)))
 )
 )
 (setq eprime2 (/ (* e e) (- 1.0 (* e e))))
 (setq c1 (* eprime2 (expt (cos footprint-latitude) 2)))
 (setq        t1 (expt (/ (sin footprint-latitude) (cos footprint-latitude))
         2
   )
 )
 (setq        r1 (/ (* a (- 1 (expt e 2)))
      (expt (- 1
               (* (expt e 2)
                  (expt (sin footprint-latitude) 2)
               )
            )
            1.5
      )
   )
 )
 (setq        n1 (/ a
      (expt (- 1
               (* e
                  e
                  (sin footprint-latitude)
                  (sin footprint-latitude)
               )
            )
            0.5
      )
   )
 )
 (setq d (/ X (* n1 k0)))
 (setq
   q1 (/ (* n1 (/ (sin footprint-latitude) (cos footprint-latitude)))
  r1
      )
 )
 (setq q2 (/ (* d d) 2))
 (setq        q3 (/ (* (- (+ 5
               (* 3 t1)
               (* 10 c1)
            )
            (* 4 c1 c1)
            (* 9 eprime2)
         )
         (expt d 4)
      )
      24
   )
 )
 (setq        q4 (/ (* (- (+ 61
               (* 90 t1)
               (* 298 c1)
               (* 45 t1 t1)
            )
            (* 3 c1 c1)
            (* 252 eprime2)
         )
         (expt d 6)
      )
      720
   )
 )
 (setq q6 (/ (* (+ 1 (* 2 t1) c1) (expt d 3)) 6))
 (setq        q7 (/ (*
        (+ (- (+ (- 5 (* 2 c1)) (* 28 t1)) (* 3 c1 c1))
           (* 8 eprime2)
           (* 24 t1 t1)
        )
        (expt d 5)
      )
      120
   )
 )
 (setq zone-cm (- (* 6.0 lonzone) 183.0))
 (setq lat (- footprint-latitude (* q1 (+ (- q2 q3) q4))))
 (setq latitude (* (/ 180 pi) lat))
 (if (> latitude 90.0)
   (setq latitude 90.0)
   (setq latitude latitude)
 )
 (setq latdeg (fix latitude))
 (setq latmins (* (- latitude (fix latitude)) 60))
 (setq latsecs (* (- latmins (fix latmins)) 60))
 (setq long (/ (+ (- d q6) q7) (cos footprint-latitude)))
 (setq longr (* (/ 180 pi) long))
 (setq longitude (- zone-cm longr))
 (if (< longitude 0.0)
   (setq lonhem "W")
   (setq lonhem "E")
 )
 (if (< longitude 0.0)
   (setq longitude (* -1 longitude))
   (setq longitude longitude)
 )
 (setq londeg (fix longitude))
 (setq lonmins (* (- longitude (fix longitude)) 60))
 (setq lonsecs (* (- lonmins (fix lonmins)) 60))
 (setq Lat (strcat "Latitude" (itoa latdeg)
         "°"
         (itoa (fix latmins))
         "'"
         (rtos latsecs 2 2)
         "''"
         Hem
 )
 )
 (setq long (strcat "Longitude" (itoa londeg)
         "°"
         (itoa (fix lonmins))
         "'"
         (rtos lonsecs 2 2)
         "''"
         lonhem
 )
 )
(command "Insert" "test" pnt 1 1 0 Lat long)
 (princ)
)

Command: 1
Enter Zone:42
Enter the Hemisphere (S/N):N
Specify Point:Unknown command "LATITUDE20°55'23.23''N".  Press F1 for help.
Unknown command "LONGITUDE71°31'26.21''E".  Press F1 for help.