将UCS设置为世界坐标

cgv · 发表于 2022-7-6 02:10:11

你好

只是想知道是否有人知道是否有某种例程可以在图形关闭时将图形的UCS设置回世界？这可能吗？

谢谢

BIGAL · 发表于 2022-7-6 02:14:26

可以重新定义命令，使其运行一系列命令。

已经有一段时间了，像这样的内容需要保存为自动加载lisps区域的一部分


(command "Undefine" "CLOSE")
(defun c:CLOSE ()
(command "ucs" "w")
(command "Zoom" "E")
(command "._CLOSE")
)

而且http://www.afralisp.net/autolisp/tutorials/redefining-commands.php

cgv · 发表于 2022-7-6 02:22:11

Al，

我已经将LISP加载到启动中，但它似乎并没有将我的UCS设置为接近世界坐标。

jdiala · 发表于 2022-7-6 02:25:38

copy

(command "Undefine" "CLOSE")
(defun c:CLOSE ()
(command "ucs" "w")
(command "Zoom" "E")
[color="red"](command "._qsave")[/color]
(command "._CLOSE")
)

cgv · 发表于 2022-7-6 02:27:38

贾迪亚拉，

有没有办法让绘图询问是否保存？否则，它只会自动保存图形。

谢谢

jdiala · 发表于 2022-7-6 02:34:10

copy

(command "undefine" "close")
(defun C:close ()
(if (= 1 (getvar 'dwgtitled))
   (command "_.ucs" "w" "_.zoom" "e" "_.qsave" "_.close")
   (command "_.close")
)
)

cgv · 发表于 2022-7-6 02:34:30

贾迪亚拉，

例行程序似乎仍然没有询问是否保存图形。它仍在关闭时自动保存。

再次感谢。

jdiala · 发表于 2022-7-6 02:39:25

copy

(command "undefine" "close")
(defun C:close ()
(initget 7 "Yes No")
(setq a (getkword "\nDo you want to save the drawing? (Yes / No) "))
(if (= a "Yes")
   (if (= 1 (getvar 'dwgtitled))
     (command "_.ucs" "w" "_.zoom" "e" "_.qsave" "_.close")
     (progn
       (command "_.ucs" "w" "_.zoom" "e")
       (initdia)
       (command "_.save" "_.close")
     )
   )
   (command "_.close" "n")
)
)

cgv · 发表于 2022-7-6 02:44:28

谢谢jdiala，但有时它似乎不同意关闭我的绘图。我想这是没有办法的。

我读过一些关于在“反应器”中使用命令的内容，但我不知道这些是如何工作的。
http://www.cadtutor.net/forum/showthread.php?46761-没有UCS命令调用的UCS世界

Lee Mac · 发表于 2022-7-6 02:46:31

以下是使用绘图反应器的示例：

copy


[color=GREEN];; UCS Reactor  -  Lee Mac[/color]
[color=GREEN];; Sets the active UCS to a UCS equivalent to WCS when the drawing is saved.[/color]
([color=BLUE]defun[/color] c:ucsr-on ( )
   ([color=BLUE]if[/color] ([color=BLUE]=[/color] '[color=BLUE]vlr-dwg-reactor[/color] ([color=BLUE]type[/color] ucsr:reactor))
       ([color=BLUE]if[/color] ([color=BLUE]vlr-added-p[/color] ucsr:reactor)
           ([color=BLUE]princ[/color] [color=MAROON]"\nUCS reactor already running."[/color])
           ([color=BLUE]progn[/color]
               ([color=BLUE]vlr-add[/color] ucsr:reactor)
               ([color=BLUE]princ[/color] [color=MAROON]"\nUCS reactor enabled."[/color])
           )
       )
       ([color=BLUE]progn[/color]
           ([color=BLUE]setq[/color] ucsr:reactor
               ([color=BLUE]vlr-dwg-reactor[/color] [color=MAROON]"ucs-reactor"[/color]
                  '(
                       ([color=BLUE]:vlr-beginsave[/color]    . ucsr:beginsave)
                       ([color=BLUE]:vlr-savecomplete[/color] . ucsr:savecomplete)
                   )
               )
           )
           ([color=BLUE]princ[/color] [color=MAROON]"\nUCS reactor enabled."[/color])
       )
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]defun[/color] c:ucsr-off ( [color=BLUE]/[/color] cmd )
   ([color=BLUE]if[/color] ([color=BLUE]=[/color] '[color=BLUE]vlr-dwg-reactor[/color] ([color=BLUE]type[/color] ucsr:reactor))
       ([color=BLUE]progn[/color]
           ([color=BLUE]vlr-remove[/color] ucsr:reactor)
           ([color=BLUE]setq[/color] ucsr:reactor [color=BLUE]nil[/color])
           ([color=BLUE]setq[/color] cmd ([color=BLUE]getvar[/color] 'cmdecho))
           ([color=BLUE]setvar[/color] 'cmdecho 0)
           ([color=BLUE]command[/color] [color=MAROON]"_.ucs"[/color] [color=MAROON]"_w"[/color])
           ([color=BLUE]setvar[/color] 'cmdecho cmd)
           ([color=BLUE]if[/color] ([color=BLUE]tblsearch[/color] [color=MAROON]"ucs"[/color] [color=MAROON]"ucsr-ucs"[/color])
               ([color=BLUE]vla-delete[/color] ([color=BLUE]vla-item[/color] ([color=BLUE]vla-get-usercoordinatesystems[/color] (ucsr:acdoc)) [color=MAROON]"ucsr-ucs"[/color]))
           )
           ([color=BLUE]princ[/color] [color=MAROON]"\nUCS reactor disabled."[/color])
       )
       ([color=BLUE]princ[/color] [color=MAROON]"\nUCS reactor not running."[/color])
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]defun[/color] ucsr:beginsave ( obj arg )
   ([color=BLUE]if[/color] ([color=BLUE]=[/color] [color=MAROON]""[/color] ([color=BLUE]setq[/color] ucsr:prevucs ([color=BLUE]getvar[/color] 'ucsname)))
       ([color=BLUE]setq[/color] ucsr:prevucs ([color=BLUE]mapcar[/color] '[color=BLUE]getvar[/color] '(ucsorg ucsxdir ucsydir)))
   )
   ([color=BLUE]vla-put-activeucs[/color] (ucsr:acdoc)
       ([color=BLUE]vlax-invoke[/color] ([color=BLUE]vla-get-usercoordinatesystems[/color] (ucsr:acdoc)) 'add
           '(0.0 0.0 0.0)
           '(1.0 0.0 0.0)
           '(0.0 1.0 0.0)
           [color=MAROON]"ucsr-ucs"[/color]
       )
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]defun[/color] ucsr:savecomplete ( obj arg )
   ([color=BLUE]cond[/color]
       (   ([color=BLUE]=[/color] 'str ([color=BLUE]type[/color] ucsr:prevucs))
           ([color=BLUE]if[/color] ([color=BLUE]tblsearch[/color] [color=MAROON]"ucs"[/color] ucsr:prevucs)
               ([color=BLUE]vla-put-activeucs[/color] (ucsr:acdoc)
                   ([color=BLUE]vla-item[/color] ([color=BLUE]vla-get-usercoordinatesystems[/color] (ucsr:acdoc)) ucsr:prevucs)
               )
           )
       )
       (   ([color=BLUE]=[/color] '[color=BLUE]list[/color] ([color=BLUE]type[/color] ucsr:prevucs))
           ([color=BLUE]vla-put-activeucs[/color] (ucsr:acdoc)
               ([color=BLUE]apply[/color] '[color=BLUE]vlax-invoke[/color]
                    ([color=BLUE]append[/color]
                        ([color=BLUE]list[/color] ([color=BLUE]vla-get-usercoordinatesystems[/color] (ucsr:acdoc)) 'add)
                        ucsr:prevucs
                       '([color=MAROON]"ucsr-ucs"[/color])
                    )
               )
           )
       )
   )
   ([color=BLUE]setq[/color] ucsr:prevucs [color=BLUE]nil[/color])
   ([color=BLUE]princ[/color])
)
([color=BLUE]defun[/color] ucsr:acdoc [color=BLUE]nil[/color]
   ([color=BLUE]eval[/color] ([color=BLUE]list[/color] '[color=BLUE]defun[/color] 'ucsr:acdoc '[color=BLUE]nil[/color] ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))))
   (ucsr:acdoc)
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])

键入ucsr on以激活反应器，该反应器将在后台无声运行，以在保存图形时触发。

保存后，reactor回调函数将UCS设置为WCS等效项，然后在保存操作完成后恢复以前的UCS。

您可以随时使用ucsr off命令禁用反应堆。

但是，请注意，由于无法从reactor回调函数中评估命令调用，而且（据我所知）不可能使用Visual LISP将UCS设置为WCS，因此上述程序将UCS设置为与WCS等效的命名UCS。

李

[编程交流] 将UCS设置为世界坐标

发表回复

精选推荐