dunkel 发表于 2020-9-7 15:33
不知道哎，刚才还在 ActiveX Model 里翻看了一圈，没发现相关内容。那些预设的正交视图，就不在它的视图集 ...
我的只是笨方法，不是完美的方法。
用CAD自身的命令或 lisp 去修正才是完美的方法
dunkel 发表于 2020-9-7 15:33
不知道哎，刚才还在 ActiveX Model 里翻看了一圈，没发现相关内容。那些预设的正交视图，就不在它的视图集 ...
您有没有QQ或者QQ群，希望能与您一起探讨CAD问题
本帖最后由 dunkel 于 2020-9-8 09:28 编辑
唉，发现很简单的。先选择俯视图，将 ucs置 wcs，还是上面提及的那个 ucsman对话框里，在“俯视”上右键，选择“深度”，点击输入框右边那个绿色方框按钮，回车即默认“新原点”的
o选项，输入 0,0 就可以了。
刚才是无意看到“深度”的提示里才意识到那个按钮的真实作用，以前虽然看到了，但一直以为是“深度”的屏幕点选指定方式，没想到是指定原点的。
QQ是有的，不过很少上了，只是偶尔才看看。感觉现在论坛啊、QQ啊，都已被弃没了。
本帖最后由 mokson 于 2020-9-8 10:31 编辑
dunkel 发表于 2020-9-8 09:04
唉，发现很简单的。先选择俯视图，将 ucs置 wcs，还是上面提及的那个 ucsman对话框里，在“俯视”上右键， ...
世纪难题终于被你攻克，真的太历害了！佩服、膜拜您！
开始我也弄过这个 “深度” 右边的按钮，
也以为只是简单而普通的定点作用而已。
鼠标定点后确实将数值返回到左边的输入栏里，
也误以为点 “原点(o)” 这个选项后，只是将原点坐标的深度值复位为 0 值。
从而忽略了它，真想到它就是解决这个重置原点零值的问题的。
看来成败真的是体现在细微之间呀。
问题又来了，如果用 lisp 去实现这个操作，究竟如何写？
系统变量ucsbase
本帖最后由 pzweng 于 2020-9-8 13:44 编辑
昨天因这个问题研究了下ucsbase，深度这个值我昨天试了但没注意到原点这个选项，昨天以手动方式解决了楼主的问题，其步骤与下面代码一致，刚刚整理好了代码
(defun c:tt1 nil
(setq $wcs "$wcs")
(setvar 'cmdecho 0)
(command ".ucs" "w")
(command ".ucs" "s" $wcs)
(setvar 'ucsbase $wcs)
(command ".ucs" "w")
;;;(entdel (tblobjname "UCS" $wcs)) ;只能手动方式删除，ucsman命中找到"$WCS"右键删除，之后所有原点都与WCS相同
(setvar 'cmdecho 1)
(princ)
)
pzweng 发表于 2020-9-8 13:29
昨天因这个问题研究了下ucsbase，深度这个值我昨天试了但没注意到原点这个选项，昨天以手动方式解决了楼主 ...
(command "ucs" "d" $wcs) 也会恢复。
确实是这样，只能手动删除就可以。
本帖最后由 pzweng 于 2020-9-8 17:22 编辑
dunkel 发表于 2020-9-8 09:04
唉，发现很简单的。先选择俯视图，将 ucs置 wcs，还是上面提及的那个 ucsman对话框里，在“俯视”上右键， ...
这个问题我再深度挖掘了一下，原来还有更简单的方法，而且原点的修改也是这么得来的
命令: UCS
当前 UCS 名称: *俯视*
指定 UCS 的原点或 [面(F)/命名(NA)/对象(OB)/上一个(P)/视图(V)/世界(W)/X/Y/Z/Z 轴(ZA)] <世界>: m
指定新原点或 <0,0,0>: 这里直接点取WCS原点就行了
另外再挖出UCS命令隐藏的选项
[?/面(F)/命名(NA)/对象(OB)/对象(E)/删除(D)/起始(O)/还原(R)/预设(G)/应用(A)/新建(N)/移动(M)/上一个(P)/视图(V)/世界(W)/X/Y/Z/Z 轴(ZA)]有了这些选项更好的应用autolisp来控制了
CAD最强大的部分是2D部分，3D就免了吧，世面上流行的3D软件，任一款都能秒杀CAD的3D