分享一个简单grread代码，显示坐标点

liuhe

代码功能及其简单


主要是用文本实时显示坐标点

(DEFUN C:CE1 ()
  (setq st T)
  (ENTMAKE (LIST '(0 . "TEXT")
                 (CONS 1
                       (STRCAT (RTOS (CAR '(0 0)) 2 0)
                               ","
                               (RTOS (CADR '(0 0)) 2 0)
                       )
                 )
                 (CONS 10 '(0 0))
                 (CONS 40 350)
           )
  )
  (SETQ ent (ENTGET (ENTLAST)))
  (while (and st (setq get (grread T 8)))
    (COND
      ((= 5 (car get))
       (PROGN

         (entmod (subst (cons 10 (cadr get)) (assoc 10 ent) ent))
         (SETQ ent (ENTGET (ENTLAST)))
         (entmod (subst        (cons 1
                              (STRCAT (RTOS (CAR (cadr get)) 2 0)
                                      ","
                                      (RTOS (CADR (cadr get)) 2 0)
                              )
                        )
                        (assoc 1 ent)
                        ent
                 )
         )
       )
      )
      ((= 3 (car get))
       (setq st nil)
       (entmod (subst (cons 10 (cadr get)) (assoc 10 ent) ent))
       (SETQ ent (ENTGET (ENTLAST)))
       (entmod (subst (cons 1
                            (STRCAT (RTOS (CAR (cadr get)) 2 0)
                                    ","
                                    (RTOS (CADR (cadr get)) 2 0)
                            )
                      )
                      (assoc 1 ent)
                      ent
               )
       )
      )
    )

  )
)

bonny

好棒！

白色微風1991

好棒！學習