坐标原点的位置为什么会自己走位？

mokson

dunkel 发表于 2020-9-7 15:33
不知道哎，刚才还在 ActiveX Model 里翻看了一圈，没发现相关内容。那些预设的正交视图，就不在它的视图集 ...

我的只是笨方法，不是完美的方法。
用CAD自身的命令或 lisp 去修正才是完美的方法

pzweng

dunkel 发表于 2020-9-7 15:33
不知道哎，刚才还在 ActiveX Model 里翻看了一圈，没发现相关内容。那些预设的正交视图，就不在它的视图集 ...

您有没有QQ或者QQ群，希望能与您一起探讨CAD问题

dunkel

唉，发现很简单的。先选择俯视图，将 ucs置 wcs，还是上面提及的那个 ucsman对话框里，在“俯视”上右键，选择“深度”，点击输入框右边那个绿色方框按钮，回车即默认“新原点”的
o选项，输入 0,0 就可以了。
刚才是无意看到“深度”的提示里才意识到那个按钮的真实作用，以前虽然看到了，但一直以为是“深度”的屏幕点选指定方式，没想到是指定原点的。

QQ是有的，不过很少上了，只是偶尔才看看。感觉现在论坛啊、QQ啊，都已被弃没了。

mokson

dunkel 发表于 2020-9-8 09:04
唉，发现很简单的。先选择俯视图，将 ucs置 wcs，还是上面提及的那个 ucsman对话框里，在“俯视”上右键， ...

世纪难题终于被你攻克，真的太历害了！佩服、膜拜您！


开始我也弄过这个 “深度” 右边的按钮，
也以为只是简单而普通的定点作用而已。
鼠标定点后确实将数值返回到左边的输入栏里，
也误以为点 “原点(o)” 这个选项后，只是将原点坐标的深度值复位为 0 值。
从而忽略了它，真想到它就是解决这个重置原点零值的问题的。
看来成败真的是体现在细微之间呀。

mokson

问题又来了，如果用 lisp 去实现这个操作，究竟如何写？

pzweng

系统变量ucsbase

pzweng

昨天因这个问题研究了下ucsbase，深度这个值我昨天试了但没注意到原点这个选项，昨天以手动方式解决了楼主的问题，其步骤与下面代码一致，刚刚整理好了代码

1. (defun c:tt1 nil
   
2.   (setq $wcs "$wcs")
   
3.   (setvar 'cmdecho 0)
   
4.   (command ".ucs" "w")
   
5.   (command ".ucs" "s" $wcs)
   
6.   (setvar 'ucsbase $wcs)
   
7.   (command ".ucs" "w")
   
8. ;;;  (entdel (tblobjname "UCS" $wcs)) ;只能手动方式删除，ucsman命中找到"$WCS"右键删除，之后所有原点都与WCS相同
   
9.   (setvar 'cmdecho 1)
   
10.   (princ)
    
11. )

(defun c:tt1 nil<br />   (setq $wcs "$wcs")<br />   (setvar 'cmdecho 0)<br />   (command ".ucs" "w")<br />   (command ".ucs" "s" $wcs)<br />   (setvar 'ucsbase $wcs)<br />   (command ".ucs" "w")<br /> ;;;  (entdel (tblobjname "UCS" $wcs)) ;只能手动方式删除，ucsman命中找到"$WCS"右键删除，之后所有原点都与WCS相同<br />   (setvar 'cmdecho 1)<br />   (princ)<br /> )

mokson

pzweng 发表于 2020-9-8 13:29
昨天因这个问题研究了下ucsbase，深度这个值我昨天试了但没注意到原点这个选项，昨天以手动方式解决了楼主 ...

(command "ucs" "d" $wcs) 也会恢复。
确实是这样，只能手动删除就可以。

pzweng

dunkel 发表于 2020-9-8 09:04
唉，发现很简单的。先选择俯视图，将 ucs置 wcs，还是上面提及的那个 ucsman对话框里，在“俯视”上右键， ...

这个问题我再深度挖掘了一下，原来还有更简单的方法，而且原点的修改也是这么得来的
命令: UCS
当前 UCS 名称: *俯视*
指定 UCS 的原点或 [面(F)/命名(NA)/对象(OB)/上一个(P)/视图(V)/世界(W)/X/Y/Z/Z 轴(ZA)] <世界>: m
指定新原点或 [Z 向深度(Z)] <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来控制了

hnzkhyyl

CAD最强大的部分是2D部分，3D就免了吧，世面上流行的3D软件，任一款都能秒杀CAD的3D