如何让直线真正做到横平竖直？

依然小小鸟

本人建模需要把CAD线框 导入到建模软件里面  但是经常有个苦恼  表面上看CAD里面的线框是横平竖直的  但是如果仔细看的话 其实这些线有很多是斜线 这样对我的建模精度就有很大影响 有没有大神能开发出来一个插件 自动批量将斜线变为横平竖直的线？

panliang9

如果你是把CAD中的图形直接粘到SW里的sketch里面，有以下几点：

1、必须设置CAD中的UCS设计成SW里需要的位置，即两边的座标必须一致。
2、CAD里的标注的当前全局比例必须是1：1
3、需要粘过的图形必须在CAD里消重，去除多余的线条。

粘贴到SW中后，选中SKETCH，右键命令，执行“Fully Define Sketch”
然后在下面的“Relations”里执行 “水平” “垂直” “相切”三个动作。

这样执行完后，你粘过来的CAD图形就已经基本完成了水平，垂直，相切，三种关系了。即是说，在CAD里可能有一些线看上去水平，垂直，但并没有那么完美，但粘贴过来后，执行了“Fully Define Sketch”后，SW就帮你把这些全给矫正了。

再结合上面给出的圆整命令，就可以彻底圆整了。

gaics

[【高飞鸟】] 【飞鸟集】数据取整（更新至2020.10）
这得跟高飞鸟大师学习。

ynhh

黄大师好象有个改斜归正的
感觉就对你这有用
你找找试试

VBALISPER

打开正交画线

依然小小鸟

ynhh 发表于 2023-6-1 15:13
黄大师好象有个改斜归正的
感觉就对你这有用
你找找试试

没找到呢

htlaser

http://bbs.mjtd.com/thread-182033-1-1.html

• ;选边平行X轴 ZZXXQQ 2020-8-12
  
• (defun c:tt ()
  
• (while (setq s1 (entsel "\n选择一条边: "))
  
•   (setq en (car s1) pt (cadr s1))
  
•   (setq ang (angle pt (setq pt1 (osnap pt "nea"))))
  
•   (if (> ang pi) (setq ang (- ang pi)))
  
•   (setq roang (rtos (- 90 (/ (* ang 180) pi)) 2 3))
  
•   (command "_.ROTATE" en "" pt1 roang)
  
• )
  
• (princ)
  
• )
  
  

依然小小鸟

htlaser 发表于 2023-6-1 18:53
http://bbs.mjtd.com/thread-182033-1-1.html

不太好用

自贡黄明儒

依然小小鸟 发表于 2023-6-2 12:03
不太好用

(setq ang (angle pt (setq pt1 (osnap pt "nea"))))改为
(setq ang (angle pt (setq pt1 (osnap pt "_per"))))呢？

htlaser

自贡黄明儒 发表于 2023-6-2 13:08
(setq ang (angle pt (setq pt1 (osnap pt "nea"))))改为
(setq ang (angle pt (setq pt1 (osnap pt "_p ...

他应该是想批量