【组装工】视图控制之菜鸟粗糙版

f4800

tigcat 发表于 2021-7-6 08:49
谢谢大侠回复

我是新手哦。。。。。。 向你学习

tigcat

f4800 发表于 2021-7-6 14:35
我是新手哦。。。。。。 向你学习

论坛很好，大家一起学习进步。

weshell

顶楼主，楼主你说的控制面板悬浮的问题解决了么，我是搞电气设计的，经常需要强电-弱电-消防三个平面来回对照，画这个平面的时候经常会发现另一个平面漏了一些东西或者哪里画错了，平移缩放过去改，改完了再回来，一张DWG中参照了多个建筑平面时，这个工作量就比较大了，而且找起来也不方便，这个插件挺有帮助的，就是和楼主说的一样，要是面板能悬浮就更好了

tigcat

weshell 发表于 2021-8-5 15:36
顶楼主，楼主你说的控制面板悬浮的问题解决了么，我是搞电气设计的，经常需要强电-弱电- ...

面板悬浮要用到lisp以外的程序语言编程，这个我没有精力和能力去钻研，只能凑合用，如果有高手做出并愿意分享的话那就好了。

Nico

能在视图边上加个备注  就更好了

mj0000

思路很好，避免大跨度切换

mj0000

按以下修改，可以支持布局，模型空间
;;; 保存视图1
(defun c:v-1 ()
  (if (= 0 (setq *BC_1_tilemode* (getvar "tilemode"))) ;记录当前视图状态
    (setq *BC_1_cvport* (getvar "cvport")) ;记录当前视图状态
  )
  (if (tblobjname "view" "S1") ;查找视图S1
    (command "-view" "D" "S1") ;删除视图S1
  )
  (command "-view" "S" "S1") ;保存视图S1
  (princ)
)
;;; 恢复视图1
(defun c:r-1 ()
  (if (= 1 *BC_1_tilemode*)
    (setvar "tilemode" 1)
    (progn
      (setvar "tilemode" 0)
      (setvar "cvport" *BC_1_cvport*)
    )
  )
  (command "-view" "R" "S1") ;恢复视图S1
  (princ)
)

tigcat

mj0000 发表于 2021-8-6 11:34
按以下修改，可以支持布局，模型空间
;;; 保存视图1
(defun c:v-1 ()

感谢大侠修正，需要用布局的朋友可以自行修改了！

hf423

tigcat 发表于 2021-8-5 19:14
面板悬浮要用到lisp以外的程序语言编程，这个我没有精力和能力去钻研，只能凑合用，如果有高手 ...

论坛里高飞鸟大侠的HFB_AddPane就能实现你的要求，无需悬浮，直接在CAD下面状态栏上点

http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=90447&pid=496301&fromuid=400853
只可惜最高只支持到CAD2014

tigcat

谢谢回复，有时间试试