快速保存视图和恢复vi

liuhaixin88 · 发表于 2022-7-5 22:29:53

大家好，
我想用三个命令来保存视图，用三个命令来恢复视图。
如。
命令“save_view1”保存视图，视图名称为“view1”
命令“restore\u view1”将视图恢复到“view1”
......视图2
......视图3

BlackBox · 发表于 2022-7-5 22:40:43

这些应该让你开始。。。。

保存视图：


(defun c:ViewSave () (command "._-view" "_s") (princ))

还原视图：

copy


(defun c:ViewRestore () (command "._-view" "_r") (princ))

liuhaixin88 · 发表于 2022-7-5 22:47:35

非常感谢。BB我知道。

copy

(defun c:ViewSave1 () (command "._-view" "_s" "view1") (princ))

copy

(defun c:ViewRestore1 () (command "._-view" "_r" "view1") (princ))

liuhaixin88 · 发表于 2022-7-5 22:53:05

（defun c:ViewRestore（）（vl cmdf._-view”“\r”“view1”）（princ））

“命令”和“vl cmdf”哪个更好？

BlackBox · 发表于 2022-7-5 22:56:06

不客气，刘海欣88；我很乐意帮忙。

干杯

BlackBox · 发表于 2022-7-5 23:05:31

它们在功能上是相同的，但COMMAND总是返回Nil，而VL-CMDF返回T，这在测试表达式等中可能很有用。

干杯

liuhaixin88 · 发表于 2022-7-5 23:09:16

嗨，BB，很好的教学。再次感谢你。

干杯

BlackBox · 发表于 2022-7-5 23:14:46

刘海欣，你说得太好了。

David Bethel · 发表于 2022-7-5 23:18:45

我使用类似的方法：

copy


[color=#8b4513];;;SAVE[/color]
[b][color=BLACK]([/color][/b]defun c:sv [b][color=FUCHSIA]([/color][/b]/ p v vn vi[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq p [color=#2f4f4f]"VIEW"[/color] v 1[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq vn [b][color=NAVY]([/color][/b]strcat p [b][color=MAROON]([/color][/b]itoa v[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]tblsearch [color=#2f4f4f]"VIEW"[/color] vn[b][color=NAVY])[/color][/b]
          [b][color=NAVY]([/color][/b]setq v [b][color=MAROON]([/color][/b]1+ v[b][color=MAROON])[/color][/b] vn [b][color=MAROON]([/color][/b]strcat p [b][color=GREEN]([/color][/b]itoa v[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq vi [b][color=NAVY]([/color][/b]getint [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\nView Number To Save <"[/color] [b][color=GREEN]([/color][/b]itoa v[b][color=GREEN])[/color][/b] [color=#2f4f4f]">:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]or vi [b][color=NAVY]([/color][/b]setq vi v[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Save"[/color] [b][color=NAVY]([/color][/b]strcat p [b][color=MAROON]([/color][/b]itoa vi[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

copy


[color=#8b4513];;;RESTORE[/color]
[b][color=BLACK]([/color][/b]defun c:rv [b][color=FUCHSIA]([/color][/b]/ p vl td ev vi[b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]setq p [color=#2f4f4f]"VIEW"[/color][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq td [b][color=MAROON]([/color][/b]tblnext [color=#2f4f4f]"VIEW"[/color] [b][color=GREEN]([/color][/b]not td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]setq ev [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 2 td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]= p [b][color=GREEN]([/color][/b]substr ev 1 [b][color=BLUE]([/color][/b]strlen p[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq vl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]atoi [b][color=RED]([/color][/b]substr ev [b][color=PURPLE]([/color][/b]1+ [b][color=TEAL]([/color][/b]strlen p[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] vl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]terpri[b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]prin1 [b][color=NAVY]([/color][/b]reverse vl[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not vi[b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]member vi vl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]initget 7[b][color=NAVY])[/color][/b]
           [b][color=NAVY]([/color][/b]setq vi [b][color=MAROON]([/color][/b]getint [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\tView To Restore:   "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Restore"[/color] [b][color=NAVY]([/color][/b]strcat p [b][color=MAROON]([/color][/b]itoa vi[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

我使用了与“VIEW”不同的前缀，但场景相同。

-大卫

liuhaixin88 · 发表于 2022-7-5 23:24:52

哈哈。

[编程交流] 快速保存视图和恢复vi

发表回复

精选推荐