[求助]：用最简单的办法把线转为水平（垂直）

autocad2009

如题，

水炮眼大侠

ＲＯ－Ｒ，打开Ｆ８，参照旋转９０，也可直接旋转９０啊，

mr cool

change     (F8打开)
选线,然后随便到线的一端点一点
(此方法线的长度会改变,但变水平或垂直很快)
在F8 关闭的状态下可将多条线以拾取点相聚

autocad2009

怪我说得不清楚，我的目的是一整幅图旋转一个角度，而以图中一条线转为水平（或与该图外另一不水平的线平行）为依据。多谢再指教。

wyhcn

用"AL"(三位对齐)命令

new1412

初学VBA,不知道为什么keyword=v时候就不行了？
Sub ch()
Dim a As AcadLine
Dim b(0 To 2), c, d(0 To 2) As Double
Dim pt3() As Double
ThisDrawing.Utility.GetEntity a, po, "请选择直线:"
pt3 = ThisDrawing.Utility.GetPoint(, vbCrLf & "请选择转换后的起点:")
c = a.Length

b(0) = pt3(0)
b(1) = pt3(1) + c
b(2) = pt3(2)


d(0) = pt3(0) + c
d(1) = pt3(1)
d(2) = pt3(2)
'Debug.Print b(0), b(1), b(2), d(0), d(1), d(2), pt3(0), pt3(1), pt3(2), c
Dim keyWord As String
ThisDrawing.Utility.InitializeUserInput 1, "v  h"
keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & "输入选项[竖直(v)/水平(h)]: ")
If keyWord = "v" Then
Call ThisDrawing.ModelSpace.AddLine(pt3, b)
End If
If keyWord = "h" Then
Call ThisDrawing.ModelSpace.AddLine(pt3, d)
End If

End Sub

叶开是傻瓜

旋转图形ABCD，要求图形中的直线DE与图形外一已知直线MN平行。
解：1、输入“RO”，回车，窗选图形ABCD(包括直线DE在内)，回车。
         2、选择基点“M”，回车，输入“R”。
         3、依次选择点“D”“E”“N”。

mkldwj

最初由 叶开是傻瓜 发布
[B]旋转图形ABCD，要求图形中的直线DE与图形外一已知直线MN平行。
解：1、输入“RO”，回车，窗选图形ABCD(包括直线DE在内)，回车。
         2、选择基点“M”，回车。
         3、依次选择点“D”“E”“N”。 [/B]

还不是很明确
附加 3步骤是要有选择项选择R后再依次选择点“D”“E”“N”

chenlei

就象5楼说的，使用 对齐 命令。很简单 。

叶开是傻瓜

最初由 mkldwj 发布
[B][QUOTE]最初由 叶开是傻瓜 发布
[B]旋转图形ABCD，要求图形中的直线DE与图形外一已知直线MN平行。
解：1、输入“RO”，回车，窗选图形ABCD(包括直线DE在内)，回车。
         2、选择基点“M”，回车。
... [/B]

对，第三步前面是要先执行参照“R”命令

开拓进取

最初由 mkldwj 发布
[B][QUOTE]最初由 叶开是傻瓜 发布
[B]旋转图形ABCD，要求图形中的直线DE与图形外一已知直线MN平行。
解：1、输入“RO”，回车，窗选图形ABCD(包括直线DE在内)，回车。
         2、选择基点“M”，回车。
... [/B]

不错,加深了对al的理解,又学了一招

lrhome

最初由 wyhcn 发布
[B]用"AL"(三位对齐)命令 [/B]

正解

叶开是傻瓜

“ALIGN”在这里不是正解。因为通常情况下旋转图形所参照的直线并不存在，比如只想把某一条斜线旋转成水平的情况，如果这时使用“ALIGN”命令，则须先画一条水平线，这样才能找到两个“目标点”。而使用“RO ”命令的参照功能则可“凭空”实现这个操作。
再说，用“ALIGN”命令会使两条直线重合在一起，需要编辑的时候选择起来较麻烦。

jasonswx

用参照旋转的方法，和参照比例缩放是一个道理

№少精简雅§

谢谢，又学了一招，