如何对不共面的对象圆角

wanhongron

经常碰到有不共面线需要圆角，但每次都要先把z坐标归零再圆角，麻烦高手写个程序，实现自动归零，再执行圆角命令fillet

lzspain

搬运个：
(setvar "OSNAPZ" 1)
将此代码做成LSP文件，添加到启动组，画图的时候就不会带Z值。

love1030312

画平面图之前不都是全部Z0吗？  一边画一边调吗   又不是画3D  不需要Z呀

wanhongron

土木工程上要在地形图上画图的，地形图都是带高程的

ssyfeng

论坛搜索一下Z轴就有很多Z轴归零的

wanhongron

非常谢谢lzspain侠的靠谱建议，非常好用

树櫴希德

1. (defun c:chamfer1 ( / obj01 obj02 pt1 pt2 obj1 obj2)
   
2. (vl-load-com)
   
3. (setq obj01 (entsel "\n 1111111111111"))
   
4. (setq pt1 (cadr obj01))
   
5. (setq obj1 (vla-copy (vlax-ename->vla-object(car obj01 ))))
   
6. (vlax-put-property obj1 "elevation" 0)
   
7. 
   
8. (setq obj02 (entsel "\n 2222222222"))
   
9. (setq pt2 (cadr obj02))
   
10. (setq obj2 (vla-copy (vlax-ename->vla-object(car obj02 ))))
    
11. (vlax-put-property obj2 "elevation" 0)
    
12. 
    
13. 
    
14. 
    
15. (command "._chamfer" pt1  pt2  )
    
16. (princ)
    
17. )

(defun c:chamfer1 ( / obj01 obj02 pt1 pt2 obj1 obj2)<br /> (vl-load-com)<br /> (setq obj01 (entsel "\n 1111111111111"))<br /> (setq pt1 (cadr obj01))<br /> (setq obj1 (vla-copy (vlax-ename->vla-object(car obj01 ))))<br /> (vlax-put-property obj1 "elevation" 0)<br /> <br /> (setq obj02 (entsel "\n 2222222222"))<br /> (setq pt2 (cadr obj02))<br /> (setq obj2 (vla-copy (vlax-ename->vla-object(car obj02 ))))<br /> (vlax-put-property obj2 "elevation" 0)<br /> <br /> <br /> <br /> (command "._chamfer" pt1  pt2  )<br /> (princ)<br /> )

linheyuanpcb

(defun c:gom();针对master cam转换出的档案,不能圆角，修改共面
(command "move" "all" "" "0,0,0" "")
(command "move" "all" "" "0,0,1e99" "")
(command "move" "all" "" "0,0,0" "")
(command "move" "all" "" "0,0,-1e99" "")
(princ)
)

wanhongron

谢谢各位侠