AutoCAD平面图（不包括
我的许多同事发现使用ucsfollow=1很有用就我个人而言，我不是一个伟大的球迷，因为它使我缩放到许多时候，UCS的调整。此外，该计划也是这方面的一个主要pita
这让我想到了一个想法，即为此自定义PLAN和UCS命令。
与Autodesk online进行了短暂的接触，他们似乎喜欢这个想法计划，不会一直缩小，这很好。
如果你问我的话，它可以安装在UCSFOLLOW setvar中。
任何意见或改进都将被告知
; better commands AutoCAD UCSfollow settings
; view in current ucs => PLN
; UCS World without zooming => WCS
(defun c:pln ()
(setq vctr (getvar "viewctr"))
(setq vsize (getvar "viewsize"))
(setq olducsfollow (getvar "ucsfollow"))
(setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"0) ())
(setq getosnapz (getvar "osnapz")) (if (= getosnapz 1) (setvar "gridmode"1) (setvar "gridmode"0))
(command "plan" "")
(command "_.zoom" "c" vctr vsize)
(command "ucs" "v")
(setvar "ucsfollow" olducsfollow) ; reset
)
(defun C:WCS ()
(setvar "UCSICON" 1)
(setq olducsfollow (getvar "ucsfollow"))
(setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"0) ())
(command "UCS" "")
(setvar "ucsfollow" olducsfollow) ; reset
(prin1)
)
(defun C:UCO(/ ENT1 )
(setq ENT1 (entsel "\nPick object to align UCS:"))
(setq olducsfollow (getvar "ucsfollow"))
(setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"0) ())
(command "ucs" "ob" ENT1)
(setvar "ucsfollow" olducsfollow) ; voorgaande waarde
(princ)
)
(defun C:uc3 ()
(prompt "\t* set UCS 3 points")
(SETVAR "GRIDMODE" 0)
(SETVAR "OSNAPZ" 0)
(SETVAR "UCSICON" 1)
(setq olducsfollow (getvar "ucsfollow"))
(setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"0) ())
(command "UCS" "3" pause pause pause)
(setvar "ucsfollow" olducsfollow) ; voorgaande waarde
(prin1)
)
(defun C:ucm ()
(setvar "cmdecho" 0)
(prompt "\t* draai UCS haaks MET de klok mee")
(setvar "UCSICON" 1)
(setq olducsfollow (getvar "ucsfollow"))
(setq getucsfollow (getvar "ucsfollow")) (if (= getucsfollow 1) (setvar "ucsfollow"0) ())
(command "UCS" "z" "")
(setvar "ucsfollow" olducsfollow) ; voorgaande waarde
(prin1)
)
AutoCAD 2016在著名的EXPRESS工具中也有类似的功能（……为什么他们不改进计划本身）
除此之外，此例程要求选择对象。（…为什么？？）
我认为如果它不缩小，即使用户希望（/回复输入）没有任何选择，它也可以做得更好。这是可以做到的。。
;;
;;explan.lsp - Express Tools plan replacement command
;;
;;
;;Copyright © 1999 by Autodesk, Inc.
;;
;;Your use of this software is governed by the terms and conditions
;;of the License Agreement you accepted prior to installation of this
;;software.Please note that pursuant to the License Agreement for this
;;software, "opying of this computer program or its documentation
;;except as permitted by this License is copyright infringement under
;;the laws of your country.If you copy this computer program without
;;permission of Autodesk, you are violating the law."
;;
;;AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.AUTODESK, INC.
;;DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;UNINTERRUPTED OR ERROR FREE.
;;
;;
;; Description:
;;Similar to PLAN except that EXPLAN ..
@汉斯：
要求选择对象是有道理的。示例：如果您正在查看三个对象，它们一个放置在另一个后面，并且在使用“改进”平面命令后，您将看到其中一个的侧视图，应该是哪一个？
顺便问一下：你看过版权声明了吗？ 我并没有真正关注3d方面，视图遵循ucs才是我想要的。
引用此完全打开的可读文件。这不被接受吗？我不是律师。计划于2016年实施，但于1999年“得到保护”。这似乎真的是很久以前的事了。
但是我删除了代码。帮助文件也没有提到这个3D方面，它们是不同的！
因此，进行一些相关讨论。。
http://help.autodesk.com/view/ACD/2016/ENU/?guid=GUID-3FD011D0-2AB5-4C46-8302-19F91DD2EC87 我知道你所做的与UCSFOLLOW有关。但是_Plan命令也可以在不同的上下文中使用，其中视图中心可能不是用户期望或想要的位置。这可能是第一个默认缩放操作的原因。 这可能会引起一些兴趣：
https://www.theswamp.org/index.php?topic=52930.0
http://www.cadtutor.net/forum/showthread.php?100323-从一个视图缩放到另一个视图，而不缩小以延伸&p=682755#post682755
M、 R。 谢谢大家。我现在明白了，3d确实需要一种不同的方法。简而言之，我想我需要一个双向例程来编写这样的代码
1.检查视图是否与ucs对齐（100%XY方向）
2.如果是，则继续步骤3，否则转到4进行3d近似
3.PLN（在我的第一篇文章中描述）
4、执行EXPLAN（选择对象）
对于步骤2，我的想法是使用VIEWDIR来确定ucs/view关系。。
VIEWDIR 0,0,1+（Z大于1.0的任何值）
如果VIEWDIR的值不为0,0（XY），请转至4。
我还没来得及测试你的常规动作，马尔科肯定会的。谢谢
原因是我一天要用很多次计划。欢迎任何改进以节省缩放时间。 对我来说，现在效果更好了
二维和三维
3
页:
[1]