[LISP程序]：自动生成大小视图窗口(2005.03.08更新)

它山之石

你是说在小窗口中的那个吗？
是俺用TEXT命令在CAD中写的。然后做成块，需要时就插入。
曾经想把它做成菜单形式，后又嫌太占屏幕，就一直没去碰它。

li809

有用的东西，谢谢

lxyljl

最初由 它山之石 发布
[B]

有道理，不过俺从没那么用过。待俺更新后再上传。 [/B]

盼楼主早日更新。  ：）

它山之石

　　其实很简单，你只要将“V”全部替换成“H”即可。如果集成到一个命令中就需要点编程的知识了。
[php]
(DEFUN C:88 (/ cv pt xcwz)
  (princ (strcat "\n*** 自动生成大小视图窗口软件 V040628 ***")
  )
  (princ (strcat "\n    ===  它山之石图形工作室作品  ==="))
  (setvar "CMDECHO" 0)
  (initget "S X")
  (setq xcwz (getkword "\n请选择小窗口位置：上侧(S)/下侧(X) <下侧>"))
  (if (or (= xcwz "s") (= xcwz "S"))
    (progn
      (COMMAND "_vports" "2" "h")
      (SETQ CV (Getvar "CVPORT"))
      (COMMAND "_vports" "2" "h")
      (cond ((= 2 CV) (COMMAND "_vports" "j" "3" "4"))
            ((= 3 CV) (COMMAND "_vports" "j" "2" "4"))
            ((= 4 CV) (COMMAND "_vports" "j" "2" "3"))
      )                                        ;cond
    )                                        ;progn
    (progn
      (COMMAND "_vports" "2" "h")
      (SETQ CV (Getvar "CVPORT"))
      (IF (= 2 CV)
        (setvar "CVPORT" 3)
        (setvar "CVPORT" 2)
      )                                        ;if
      (SETQ CV (Getvar "CVPORT"))
      (COMMAND "_vports" "2" "h")
      (SETQ CV1 (Getvar "CVPORT"))
      (COND ((= 2 CV)
             (IF (= 2 CV1)
               (setvar "CVPORT" 4)
               (setvar "CVPORT" 2)
             )
            )
            ((= 3 CV)
             (IF (= 3 CV1)
               (setvar "CVPORT" 4)
               (setvar "CVPORT" 3)
             )
            )
      )                                        ;cond
      (SETQ CV (Getvar "CVPORT"))
      (cond ((= 2 CV) (COMMAND "_vports" "j" "3" "4"))
            ((= 3 CV) (COMMAND "_vports" "j" "2" "4"))
            ((= 4 CV) (COMMAND "_vports" "j" "2" "3"))
      )                                        ;cond
    )                                        ;progn
  )                                        ;if or
  (princ (strcat "\n*** 自动生成大小视图窗口软件 V040628 ***"))
  (princ (strcat "\n    ===  它山之石图形工作室作品  ==="))
  (princ)
)
[/php]

lxyljl

呵呵，也是也是。
楼主能不能全部都揉进一个命令呢？
比如说输入命令后提示选项：（小窗口）左/右/上/下/对半左右/对半上下

它山之石

程序已更新，请到一楼下载附件。

;;;V050308 新增功能
;;; 1、利用VIEW命令的保存与恢复功能使拆分与合并后与最初视图一致。
;;; 2、自动激活大视窗。
;;; 3、可以设置小视窗在上下左右四个位置。

xzg_hello

要是有个对话框操作界面就更好了

whiteon

这个东东在画三维图形中还蛮能干的

它山之石

最初由 xzg_hello 发布
[B]要是有个对话框操作界面就更好了 [/B]

是否象CAD中的vports命令那样？

lxyljl

长老，我觉得命令调用对话框后直接用鼠标点击速度还是应该比你去看了选项后在敲键盘快，当然，这个是相对那些次常用的命令并且多选项来说的。对话框不用复杂，只要能把你执行22命令后的几个选项用按钮显示出来就ok了。

xzg_hello

最初由 它山之石 发布
[B]

是否象CAD中的vports命令那样？ [/B]

不错，就是类似这样，可以再增强下，增加些用户设置项，甚至支持拖放操作就更好了

贱人

搞不懂了，这个和cad自带的视口区别在哪里啊？我怎么觉的一样啊，就大小上不同

狂刀

问一个：切换视口，会引发其它视口重生成，并按焦点视口ｚｏｏｍ，怎么关掉？

它山之石

最初由 狂刀 发布
[B]问一个：切换视口，会引发其它视口重生成，并按焦点视口ｚｏｏｍ，怎么关掉？ [/B]

你指的是俺的程序象你说的那样吗？
俺利用(command "CVPORT" 3)来切换视口的，似乎并没有重生成。
你能说得再清楚点吗？

秦始皇

多谢楼主，
学习中……