怎么在状态栏上增加文字

taoyi0727

我用的是海龙工具  他上这个是怎么实现的?

菜卷鱼

纵横八方 发表于 2019-9-19 19:44
能打个样吗

这是我做的一个反应器，就是每次命令结束或者中断，检测上次是用的什么命令，假如命令是DIM开头的，但是不是DIMSTYLE 就自动恢复图层。

你可以用这个改，每次命令结束之后，检测一下左下角是不是被改了，或者每次使用完命令，你直接改成你要的左下角

这里面是2个反应器 *layerend* *layercancel* ，layerback 是执行程序

1. (or *layerend*
   
2.     (setq *layerend* (vlr-command-reactor
   
3.          nil
   
4.          '(
   
5.            (:VLR-commandEnded . layerback)
   
6.           ))))
   
7. 
   
8. (or *layercancel*
   
9.     (setq *layercancel* (vlr-command-reactor
   
10.          nil
    
11.          '(
    
12.            (:VLR-commandcancelled . layerback)
    
13.           ))))
    
14. 
    
15. (defun layerback (x1 x2 / A1 A2 )
    
16. (setq  a1 x1 a2 x2)
    
17. (IF (= mm_lay nil)(setq mm_lay (getvar "CLAYER")))
    
18. (if (and (wcmatch (CAR a2) "DIM*")(not (wcmatch (CAR a2) "DIMSTYLE*")))  (setvar "clayer" mm_lay ))
    
19. )

(or *layerend*<br />     (setq *layerend* (vlr-command-reactor<br />          nil<br />          '(<br />            (:VLR-commandEnded . layerback)<br />           ))))<br /> <br /> (or *layercancel*<br />     (setq *layercancel* (vlr-command-reactor<br />          nil<br />          '(<br />            (:VLR-commandcancelled . layerback)<br />           ))))<br /> <br /> (defun layerback (x1 x2 / A1 A2 )<br /> (setq  a1 x1 a2 x2)<br /> (IF (= mm_lay nil)(setq mm_lay (getvar "CLAYER")))<br /> (if (and (wcmatch (CAR a2) "DIM*")(not (wcmatch (CAR a2) "DIMSTYLE*")))  (setvar "clayer" mm_lay ))<br /> )

669423907

(command "setvar" "modemacro" "Ｆ= $(getvar,filletrad) Ｃ= $(getvar,chamfera)×$(getvar,chamferb)") ;CAD左下角显示

taoyi0727

669423907 发表于 2019-9-15 14:11
(command "setvar" "modemacro" "Ｆ= $(getvar,filletrad) Ｃ= $(getvar,chamfera)×$(getvar,chamferb)")  ...

谢谢!~!~搞了这么久
有这个系统变量我都不知道

纵横八方

关键是不能弄成永久的，用到天正的功能 又变回 天正的比例了

shcvip

我在2020版本显示的是右下角。

菜卷鱼

纵横八方 发表于 2019-9-15 20:01
关键是不能弄成永久的，用到天正的功能 又变回 天正的比例了

弄个反应器啊

纵横八方

什么意思，能打个样吗

纵横八方

菜卷鱼 发表于 2019-9-19 17:05
弄个反应器啊

能打个样吗

669423907

;变量反应器 free-Lancer
(defun blfyq(v1 v2 / s)
(setq s "Ｆ= $(getvar,filletrad) Ｃ= $(getvar,chamfera)×$(getvar,chamferb)") ;CAD左下角显示
  (if (/= (getvar'modemacro) s)
    (setvar'modemacro s)
  )
  (princ)
)
(vlr-editor-reactor
  nil
  '((:vlr-lispEnded . blfyq)
    (:vlr-lispCancelled . blfyq)
   )
)