请教怎样把计算或量取的结果随鼠标显示

wanhongron · 发表于 2022-7-8 10:05:00

请教大侠，能实现计算或量取的结果随鼠标显示吗，主要是为了少看命令栏，眼睛老往下看太麻烦了

ljfdjjj · 发表于 2022-7-8 11:43:00

(defun c:tt()
(entmake(list '(0 . "text")
              (cons 1 "计算结果")
              '(40 . 5)
              (cons 10 '(0 0))
        )
)
(setq ent(entlast) wh t)
(while wh 
  (setq pt(grread t 8))
  (if(=(car pt)5)
    (entmod(subst(cons 10(cadr pt))(assoc 10(entget ent))(entget ent)))
    (progn
      (command "erase" ent "")
      (setq wh nil)
    )
  )
)
)