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

wanhongron

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

ljfdjjj

1. (defun c:tt()
   
2. (entmake(list '(0 . "text")
   
3.               (cons 1 "计算结果")
   
4.               '(40 . 5)
   
5.               (cons 10 '(0 0))
   
6.         )
   
7. )
   
8. (setq ent(entlast) wh t)
   
9. (while wh
   
10.   (setq pt(grread t 8))
    
11.   (if(=(car pt)5)
    
12.     (entmod(subst(cons 10(cadr pt))(assoc 10(entget ent))(entget ent)))
    
13.     (progn
    
14.       (command "erase" ent "")
    
15.       (setq wh nil)
    
16.     )
    
17.   )
    
18. )
    
19. )

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

wanhongron

@ljfdjjj侠，麻烦说下怎么用，加载后只见命令栏在闪，未见其他东西

baitang36

wanhongron 发表于 2022-7-8 15:01
@ljfdjjj侠，麻烦说下怎么用，加载后只见命令栏在闪，未见其他东西

试验能用，只是文字很小，用滚轮放大才能看清

wzg356

wanhongron 发表于 2022-7-8 15:01
@ljfdjjj侠，麻烦说下怎么用，加载后只见命令栏在闪，未见其他东西

'(40 . 5)=== 改为(cons 40 (getvar 'textsize))

wanhongron

谢谢wzg356侠，能用了