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)
    )
)
)
)

wanhongron 发表于 2022-7-8 15:01:00

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

baitang36 发表于 2022-7-9 06:43:00


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

wzg356 发表于 2022-7-9 18:38:00


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

wanhongron 发表于 2022-7-9 20:44:00

谢谢wzg356侠，能用了
页: [1]
查看完整版本: 请教怎样把计算或量取的结果随鼠标显示