求助一个问题，希望得到帮助，谢谢！

r1664595827 · 发表于 2017-2-21 10:33:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各位大大好：
有个问题想问一下，CAD里面有没有开关函数啊？打开OP函数后->显示选项卡->布局元素里面->显示可打印区域这个选项是否可以通过LISP语言实现？就是不需要打开op函数直接运行一段程序就可以把这个选项设置为选定或未选定状态？第一次发帖，有什么不对，还请各位大大包含，谢谢各位大大！布局元素.jpg

marting · 发表于 2017-2-21 13:42:24

本帖最后由 marting 于 2017-2-21 14:28 编辑

使用 ACTIVEX 应该可以

QQ截图20170221142015.png

Lisphk · 发表于 2017-2-21 15:33:51

下面命令是个开关命令，交替显示和关闭LAYOUT TAB标签。

(defun c:tt ()
  (setq        dispObj
         (vla-get-Display
           (vla-get-Preferences
             (vlax-get-acad-object)
           )
         )
  )
  (if (= (vla-get-displaylayouttabs dispObj) :vlax-true)
    (progn
      (vla-put-displaylayouttabs dispObj :vlax-false)
      (princ "\rLayout Tabs 关闭.")
    )
    (progn
      (vla-put-displaylayouttabs dispObj :vlax-true)
      (princ "\rLayout Tabs 开启.")
    )
  )
  (princ)
)

r1664595827 · 发表于 2017-2-21 15:51:04

是activex控件么？这个在lisp里面怎么调用啊？

Lisphk · 发表于 2017-2-21 16:08:53

r1664595827 发表于 2017-2-21 15:51

看我上面给你写的代码，就那么用。 ActiveX 每个方法都有对应的 vla 函数。

r1664595827 · 发表于 2017-2-21 16:25:46

Lisphk 发表于 2017-2-21 16:08

我去试试看，谢谢大大

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

[求助] 求助一个问题，希望得到帮助，谢谢！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子