【右键菜单】函数修正

1028695446 · 发表于 2020-6-24 00:34

本帖最后由 1028695446 于 2020-6-24 01:19 编辑

原贴地址，请移步至：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101509&extra=page%3D1%26filter%3Dtypeid%26typeid%3D14&page=1

本次主要对该 “右键菜单函数“ 做个补充完善：
问题描述：在布局中图纸空间中使用该右键菜单函数，临时生成的菜单，只显示列表框和背景遮罩，但是不显示文字
原因分析：使用 vla-addtext 函数，始终使用的是模型空间，所以在布局中的图纸空间使用该右键菜单函数，生成的临时文字在模型空间中，并不在图纸空间中
解决思路：增加个简单的判断：当前是否在布局中图纸空间

注：以下代码，为了顺带解释下 "tilemode"和"CVPORT"2个参数的组合表达的情况，所以判断看起来比较冗杂
...
(if (not *YH_doc*)(setq *YH_doc* (vla-get-activedocument (vlax-get-acad-object))));获取当前图档指针
(setq a (=(getvar "tilemode")0) );;模型1，布局0
(setq b (=(getvar "CVPORT")1));;图纸空间1
(cond
      ((and a b);布局中的图纸空间
            (setq YH_spc (vla-get-PaperSpace *YH_doc*))
      )
      ((and a (not b));布局中的模型空间
            (setq YH_spc (vla-get-modelspace *YH_doc*))
      )
      ((and (not a) (not b));模型空间
            (setq YH_spc (vla-get-modelspace *YH_doc*))
      )
)
(setq YH_text (vla-addtext YH_spc WZ (vlax-3d-point WPT) WZhigh))

...

简化下就是
...
(if (not *YH_doc*)(setq *YH_doc* (vla-get-activedocument (vlax-get-acad-object))));获取当前图档指针
(if (and
      (zerop (getvar "tilemode"))
      (=(getvar "CVPORT")1)
)
      (setq YH_spc (vla-get-PaperSpace *YH_doc*))
      (setq YH_spc (vla-get-modelspace *YH_doc*))
)

(setq YH_text (vla-addtext YH_spc WZ (vlax-3d-point WPT) WZhigh))

...
请自行去原贴页面下载源码，自行搜索替换相关内容

以下附上自用的相关应用

lrd1861 · 发表于 2020-6-24 10:21

这是小号

fxlt619 · 发表于 2020-6-24 11:06

太厉害了！

fxlt619 · 发表于 2020-6-24 11:12

要是支持天正就好了

vladimir · 发表于 2020-12-6 18:57

不能用啊，楼主

p-3-ianlcc · 发表于 2020-12-10 16:56

不錯用，很棒！
謝謝分享！

200853006 · 发表于 2020-12-15 20:58

谢谢分享！

wgij007 · 发表于 2021-3-27 22:06

能不能搞成3行吗，2行内容多就不够看.

alexmai · 发表于 2021-6-9 21:22

好用，能增加功能，支持属性块文字修改，就完美了

meja · 发表于 2021-8-12 21:24

这个使用起来相当方便啊，取代词库！

账号		自动登录	找回密码
密码			注册

【右键菜单】函数修正

本帖子中包含更多资源

点评

评分