wanhongron 发表于 2023-9-21 11:13:29

如何对不共面的对象圆角

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

lzspain 发表于 2023-9-22 09:01:11

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

love1030312 发表于 2023-9-21 11:41:05

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

wanhongron 发表于 2023-9-21 11:42:53

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

ssyfeng 发表于 2023-9-21 11:59:11

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

wanhongron 发表于 2023-9-22 11:28:24

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

树櫴希德 发表于 2023-9-24 17:06:35

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

(setq obj02 (entsel "\n 2222222222"))
(setq pt2 (cadr obj02))
(setq obj2 (vla-copy (vlax-ename->vla-object(car obj02 ))))
(vlax-put-property obj2 "elevation" 0)



(command "._chamfer" pt1pt2)
(princ)
)

linheyuanpcb 发表于 2023-9-25 09:00:32

(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 发表于 2023-9-25 16:49:06

谢谢各位侠
页: [1]
查看完整版本: 如何对不共面的对象圆角