UCS对象旋转
如上标题所示，我正在使用ucs lisp，该lisp将根据选定的对象旋转ucs。但是，我不知道如何确保它在使用lisp时正确旋转。（当手动选择时，Ucs将旋转到最近的选定端）(defun c:cs ()
(command "ncopy" pause "" "0,0" "0,0")
(setq dummy (entlast))
(command "ucs" "ob" dummy "plan" "current")
(command "zoom" "o" dummy "")
(command "erase" dummy "")
(princ)
)
(defun c:cs1 ()
(command "ucs" "w" "plan" "current")
(princ)
)
除此之外，我如何记得上次重置ucs的缩放位置？
顺致敬意， 可能是这样的：
（德芬C：祖（/林点）
（setq lin（entsel“\n选择一行：”）
（设定值（cadr lin））
（命令“UCS”“OB”point“PLAN”“C”“ZOOM”“O”lin“”）
（普林斯）
) 古兰，
请遵循代码发布指南。 你可以看看这里http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-F806BFBE-6291-44B9-AE48-CD960B7CB8D1，这是一种先进的方法。否则，在“UCS”命令下有一个“Previous”选项，它会将您带回一个级别。
页:
[1]