明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1455|回复: 12

[提问] 怎么在状态栏上增加文字

[复制链接]
发表于 2019-9-15 13:37 | 显示全部楼层 |阅读模式
我用的是海龙工具  他上这个是怎么实现的?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2019-9-20 11:25 | 显示全部楼层

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

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

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

  1. (or *layerend*
  2.     (setq *layerend* (vlr-command-reactor
  3.          nil
  4.          '(
  5.            (:VLR-commandEnded . layerback)
  6.           ))))

  7. (or *layercancel*
  8.     (setq *layercancel* (vlr-command-reactor
  9.          nil
  10.          '(
  11.            (:VLR-commandcancelled . layerback)
  12.           ))))

  13. (defun layerback (x1 x2 / A1 A2 )
  14. (setq  a1 x1 a2 x2)
  15. (IF (= mm_lay nil)(setq mm_lay (getvar "CLAYER")))
  16. (if (and (wcmatch (CAR a2) "DIM*")(not (wcmatch (CAR a2) "DIMSTYLE*")))  (setvar "clayer" mm_lay ))
  17. )

点评

谢谢分享  发表于 2019-9-20 17:12
回复 支持 1 反对 0

使用道具 举报

发表于 2019-9-15 14:11 | 显示全部楼层
(command "setvar" "modemacro" "F= $(getvar,filletrad) C= $(getvar,chamfera)×$(getvar,chamferb)") ;CAD左下角显示

评分

参与人数 1明经币 +1 收起 理由
taoyi0727 + 1 谢谢

查看全部评分

回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2019-9-15 17:02 | 显示全部楼层
669423907 发表于 2019-9-15 14:11
(command "setvar" "modemacro" "F= $(getvar,filletrad) C= $(getvar,chamfera)×$(getvar,chamferb)")  ...

谢谢!~!~搞了这么久
有这个系统变量我都不知道
发表于 2019-9-15 20:01 | 显示全部楼层
关键是不能弄成永久的,用到天正的功能 又变回 天正的比例了
发表于 2019-9-18 08:48 | 显示全部楼层
我在2020版本显示的是右下角。
发表于 2019-9-19 17:05 | 显示全部楼层
纵横八方 发表于 2019-9-15 20:01
关键是不能弄成永久的,用到天正的功能 又变回 天正的比例了

弄个反应器啊
发表于 2019-9-19 19:44 来自手机 | 显示全部楼层
什么意思,能打个样吗
发表于 2019-9-19 19:44 来自手机 | 显示全部楼层
菜卷鱼 发表于 2019-9-19 17:05
弄个反应器啊

能打个样吗
发表于 2019-9-20 17:12 | 显示全部楼层
;变量反应器 free-Lancer
(defun blfyq(v1 v2 / s)
(setq s "F= $(getvar,filletrad) C= $(getvar,chamfera)×$(getvar,chamferb)") ;CAD左下角显示
  (if (/= (getvar'modemacro) s)
    (setvar'modemacro s)
  )
  (princ)
)
(vlr-editor-reactor
  nil
  '((:vlr-lispEnded . blfyq)
    (:vlr-lispCancelled . blfyq)
   )
)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 15:07 , Processed in 0.236532 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表