[原创]：改斜归正－－专门对付歪门斜道

它山之石

最初由 andyhua5240 发布
[B]楼主这个程序要是不能捕捉到最近点就更好了，因为有时捕捉到最近点容易出点小的误差！
能把源码贴上来么，让大家研究一下？
谢谢！ [/B]

呵呵。如果你真的想研究源码的话，6偻的那个LSP文件就可以研究啊。

andyhua5240

它山之石真是玩笑了：
   那个lisp是加密了的呀？打开是乱码！

它山之石

楼上的兄弟，俺是说如果“你真的想研究的话”。
对于写过LISP程序的来说，那种加密形同虚设。
所以后来的VLISP就编译成VLX文件了。

cjluokun

如今建筑体形是越来越复杂,斜交轴网对于喜欢精确作图的朋友而言编辑起来非常不习惯!
楼主的工具很好用,极力推荐!
楼主如果不介意的话我上传一个解密的Lisp文件?!

gdshang

很好，多谢，CAD2006也能用。

gyc2001

楼主，如果能传一个解密的文件就好了，也能学学！！

zzgghh

我经常采用10楼的做法

djm8475

应该好用吧下来再说

yz_bs_jj

这个程序非常有用。

xinbuzhe

果然改邪归正，扶正祛邪，永远支持

lsw23456

很便的，在什么版本下面可以用 ?

fengsea

以前设计中经常碰到改斜归正的难题，解决比较麻烦，感谢斑竹做这个工具解决大问题拉！！！

huaying1314

为什么我加载到SUPPORT下面还是不能用呢?

雨箭风刀

2. 
   
3. ;|　超短版的改邪归正
   
4. 实际上这个命名并不是很贴切，应为并没有“改”实体内容
   
5. 我觉得应该叫“视图对正”更贴切
   
6. |;
   
7. (defun c:gx ();
   
8. (princ "\n  超短版的视图对正---by 雨箭风刀")
   
9. (princ "\n注:ｘ方向和点取实体的部位有关，以最近顶点至取点为ｘ方向")
   
10. (setvar "ucsfollow" 1)
    
11. (command ".ucs" "n""ob" )
    
12. )
    

<br /> ;|　超短版的改邪归正<br /> 实际上这个命名并不是很贴切，应为并没有“改”实体内容<br /> 我觉得应该叫“视图对正”更贴切<br /> |;<br /> (defun c:gx ();<br /> (princ "\n  超短版的视图对正---by 雨箭风刀")<br /> (princ "\n注:ｘ方向和点取实体的部位有关，以最近顶点至取点为ｘ方向")<br /> (setvar "ucsfollow" 1)<br /> (command ".ucs" "n""ob" )<br /> )<br />

luxiong

这个东西有用，不过可以通过自定义UCS或者干脆转动图形解决