[编程申请]：关于align

kfboyxwa

能否将align命令改造成:点取两个点,使物体以第一点为圆心,第二点旋转到x轴上???

XDSoft

最初由 kfboyxwa 发布
[B]能否将align命令改造成:点取两个点,使物体以第一点为圆心,第二点旋转到x轴上??? [/B]

你贴张图，前后的，看看。然后把你在ACAD的完成的手工交互过程贴下。

kfboyxwa

如图
align太麻烦

efan2000

贴个VBA的例子，程序的思路是第一点为圆心，第一点、第二点的连线与X轴的夹角即为旋转角度，当然不考虑大于90度的情况，如果是这些情况的话，自己修改一下。

2. 
   
3.   [FONT=courier new]
   
4. Sub AlignToXAxis()
   
5.     On Error GoTo ErrTrap
   
6.     Dim EntObj As AcadEntity
   
7.     Dim pPt As Variant
   
8.     ThisDrawing.Utility.GetEntity EntObj, pPt, "请选择对象: "
   
9.     Dim sPt As Variant
   
10.     sPt = ThisDrawing.Utility.GetPoint(, "指定作为圆心的点: ")
    
11.     Dim ePt As Variant
    
12.     ePt = ThisDrawing.Utility.GetPoint(sPt, "指定作为旋转角度的点: ")
    
13.     Dim Ang As Double
    
14.     Ang = ThisDrawing.Utility.AngleFromXAxis(sPt, ePt)
    
15.     EntObj.Rotate sPt, -Ang
    
16.     Set EntObj = Nothing
    
17.     Exit Sub
    
18.    
    
19. ErrTrap:
    
20.     On Error GoTo 0
    
21. End Sub
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub AlignToXAxis()<br />     On Error GoTo ErrTrap<br />     Dim EntObj As AcadEntity<br />     Dim pPt As Variant<br />     ThisDrawing.Utility.GetEntity EntObj, pPt, "请选择对象: "<br />     Dim sPt As Variant<br />     sPt = ThisDrawing.Utility.GetPoint(, "指定作为圆心的点: ")<br />     Dim ePt As Variant<br />     ePt = ThisDrawing.Utility.GetPoint(sPt, "指定作为旋转角度的点: ")<br />     Dim Ang As Double<br />     Ang = ThisDrawing.Utility.AngleFromXAxis(sPt, ePt)<br />     EntObj.Rotate sPt, -Ang<br />     Set EntObj = Nothing<br />     Exit Sub<br />     <br /> ErrTrap:<br />     On Error GoTo 0<br /> End Sub<br />   [/FONT]<br />

szkevin

如果能改成旋转任意角度,这个程序一定很有用.
相当于rotate的r,如果要旋转成x轴和y轴也很简间,打开ortho就行了.

XDSoft

大家可能还不太熟悉“晓东工具箱”的“自由拷贝”、“自由移动”、“自由粘贴”、“自由缩放”命令，这些命令，可以拖动选择集拷贝、移动、缩放。拖动中，可以任意变换选择集，最后完成拷贝工作。

下面看演示（其中有上面朋友要求的对齐功能）：


下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_xcopy.swf

<embed src=/tech/xd_tbox/xdtb_xcopy.swf quality=high width=800 height=482 loop=true type="application/x-shockwave-flash">
</embed>

pulimin

我下载的晓东工具箱为何装不上？:5

XDSoft

最初由 pulimin 发布
[B]我下载的晓东工具箱为何装不上？:5 [/B]

先用“晓东工具”搜索下论坛，一般问题都讨论过了，去看看先。

xuewei

:9
可以利用CAD的坐标系转换命令“ucs”，操作方法如下：
1. 首先将坐标系转换到你想要作为“x”轴的那条线，选中物体，按copy键或ctrl+c（不是copy命令），
2. 将坐标系改回原状态
3. 按粘贴键或ctrl+v，这时你想变为“x”轴的物体就为正交状态了。
以此方法，还可以将物体转换任意角度，只要你有一个基点就可以。

jxsqq

CAD中怎样定义不同比例的标注，请详细说明，十分感谢

aeo

肯定是这个,我常用的.省得算角度

2. 
   
3. (defun c: rooo(/ ss p1 ang1 ang2 ang)
   
4. (setq ss(ssget))
   
5. (setq p1(getpoint "Base-point:"))
   
6. (setq ang1(getangle p1"From angle:"))
   
7. (setq ang2(getangle p1"To-angle:"))
   
8. (setq ang(/(* 180.0(- ang2 ang1))pi))
   
9. (command "rotate" ss "" p1 ang)
   
10. )

<br /> (defun c: rooo(/ ss p1 ang1 ang2 ang)<br /> (setq ss(ssget))<br /> (setq p1(getpoint "Base-point:"))<br /> (setq ang1(getangle p1"From angle:"))<br /> (setq ang2(getangle p1"To-angle:"))<br /> (setq ang(/(* 180.0(- ang2 ang1))pi))<br /> (command "rotate" ss "" p1 ang)<br /> )

c:后没空

XDSoft

最初由 aeo 发布
[B]肯定是这个,我常用的.省得算角度
[code]
(defun c:rooo(/ ss p1 ang1 ang2 ang)
(setq ss(ssget))
(setq p1(getpoint "Base-point:"))
(setq ang1(getangle p1"From angle:"))
(setq ang2(getangle p1"To... [/B]

大家如果发贴后，发现有表情符等，去编辑下帖子，把里面的“使用表情符”选项给去掉就可以了。

XDSoft

最初由 jxsqq 发布
[B]CAD中怎样定义不同比例的标注，请详细说明，十分感谢 [/B]

在同一个DIMSCALE下，如果想让尺寸表现不同的比例，可以给尺寸实体加扩展数据，override 相应的组码和值就可以了。可以搜索下论坛，论坛讨论过。

梦断江南

我觉得用rotate代替align是个不错的办法。align需要regen,有时速度慢。