乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
楼主: wakibd

[编程交流] “模型”选项卡到“布局”选项卡

[复制链接]
Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:08:22 | 显示全部楼层
当我们都在做的时候。。。
 
  2. (defun c:tm ()
  3.  (or (and (zerop (getvar 'tilemode))
  4.           (setvar 'tilemode 1))
  5.      (setvar 'tilemode 0))
  6.  (princ))
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-6 15:11:00 | 显示全部楼层
更复杂的是：D：
 
  1. (defun c:tm (/ spc doc)
  2.  (vl-load-com)
  3.  (setq spc (vlax-get (setq doc (vlax-get (vlax-get-acad-object) 'activedocument))
  4.                      'activespace
  5.            )
  6.  )
  7.  (vlax-put doc 'activespace (- 1 spc))
  8.  (princ)
  9. )
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:14:54 | 显示全部楼层
不确定是否已使用COND。。。
 
  2. (defun c:tm ()
  3.  (cond ((zerop (getvar 'tilemode))
  4.         (setvar 'tilemode 1))
  5.        (T (setvar 'tilemode 0)))
  6.  (princ))
回复

使用道具 举报

Freerefill

20

主题

344

帖子

325

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
100
发表于 2022-7-6 15:17:10 | 显示全部楼层
“CTAB”也可以。。
 
  2. (defun c:tm( / )
  3.  (if (member (getvar "ctab") (layoutlist))
  4.    (setvar "ctab" "Model")
  5.    (setvar "ctab" (nth 0 (layoutlist)))
  6.    )
  7.  )
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 15:21:05 | 显示全部楼层
 
炫耀
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 15:23:46 | 显示全部楼层
好吧，我做了一个。。。
 
 
  1. (defun c:tmz( / )
  2.  (if (member (getvar "ctab") (layoutlist))
  3.    (setvar "ctab" "Model")
  4.    (command "layout" "set" (nth 0 (layoutlist)))
  5.    )
  6.  )
回复

使用道具 举报

wizman

1

主题

316

帖子

311

银币

初来乍到

Rank: 1

铜币
29
发表于 2022-7-6 15:28:34 | 显示全部楼层
这是另一个
  1. 11
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:31:57 | 显示全部楼层
 
Ingenius-没有想到这一点
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 15:32:56 | 显示全部楼层
哈哈，这不漂亮，但我把它扔在一起了
 
  1. 12
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:37:54 | 显示全部楼层
无法抗拒：
 
  1. 13
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-5 00:15 , Processed in 0.500814 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表