社区 › AutoLISP/Visual LISP 编程技术 › 分享一个简单grread代码，显示坐标点

liuhe 发表于 2022-8-12 13:28:20

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

代码功能及其简单


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

(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 发表于 2022-8-13 14:59:32

好棒！:victory::victory::victory:

白色微風1991 发表于 2022-8-15 20:21:54

好棒！學習

查看完整版本: 分享一个简单grread代码，显示坐标点