[求助]：物体对换的命令

zhoupan301 · 发表于 2004-1-6 12:13:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有没有能使两物体对换的小程序~~~~

myfreemind · 发表于 2004-1-6 20:58:21

什么意思？说清楚点！！

zhoupan301 · 发表于 2004-1-7 10:10:14

在图纸修改的时,有时候要将两物体的位置对换一下,一般来说是有M移一下,有没有一个命令,让它们自动地对调

myfreemind · 发表于 2004-1-7 20:49:20

用这个程序，可以实现对换！

Sub tt()
Dim ent As AcadEntity
Dim pnt As Variant
Dim sset As AcadSelectionSet
Dim i As Integer
Dim pnt1(0 To 2) As Double
Dim pnt2(0 To 2) As Double
Dim minpnt As Variant
Dim maxpnt As Variant
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
'ThisDrawing.Utility.GetEntity ent, pnt, "choose"
'ent.GetBoundingBox minpnt, maxpnt
Set sset = ThisDrawing.SelectionSets.Add("TWO")

sset.SelectOnScreen
sset.Item(0).GetBoundingBox minpnt, maxpnt
pnt1(0) = (minpnt(0) + maxpnt(0)) / 2
pnt1(1) = (minpnt(1) + maxpnt(1)) / 2
pnt1(2) = 0
sset.Item(1).GetBoundingBox minpnt, maxpnt

pnt2(0) = (minpnt(0) + maxpnt(0)) / 2
pnt2(1) = (minpnt(1) + maxpnt(1)) / 2
pnt2(2) = 0

sset.Item(0).Move pnt1, pnt2
sset.Item(1).Move pnt2, pnt1

End Sub

雨中漫步0423 · 发表于 2004-1-26 14:54:58

myfreemind
呜……小雨比较笨，不会用你那个程序，请问一下，那个要怎么加载和使用？
谢谢

我是菜鸟，不要笑我……*-*6

myfreemind · 发表于 2004-1-26 20:47:06

最初由雨中漫步0423 发布
[B]myfreemind
呜……小雨比较笨，不会用你那个程序，请问一下，那个要怎么加载和使用？
谢谢

我是菜鸟，不要笑我……*-*6 [/B]

在AUTOCAD的命令行中输入VBAMAN命令,然后点击"新建",将代码COPY到thisdrawing中,然后运行就可以了!
看看这个,你会更清楚一些
http://www.mjtd.com/bbs/dispbbs. ... ID=15438&page=1

雨中漫步0423 · 发表于 2004-1-26 22:05:36

我输入那个命令了，但CAD提示错误
AutoCAD VBA is not currently installed. please run the AutoCAD R15.0 install the AutoCAD VBA component.

这用的是2000英文版，安装的时候是安全安装的，这是怎么回事啊？

还有，你给你那个网址，里面的附件我看不了，我不是那里的会员，注册时却总说什么邮箱和什么注册不一样之类的……

myfreemind · 发表于 2004-1-26 22:16:45

看英文显示的错误是VBA没有正确安装,但既然你是完全安装的,那可能就是D版本的问题,你干脆装个2002中文版!我的程序是在2002下写的!

雨中漫步0423 · 发表于 2004-1-26 22:21:50

2002的中文版？可是在中文版里我会找不到东西的……
而且一般情况下，不是中文版会有很多功能不好用的吗？

myfreemind · 发表于 2004-1-27 13:18:14

不会啊，2002的中文版挺好用的！要不然你就把2000英文版重装一下，或者装2002的英文版试试，我估计可能是盗的不好！

雨中漫步0423 · 发表于 2004-1-27 13:28:05

那我还是去买2002好了，不过，还是D盗，希望会好用吧
你给你那个网址，可以注册吗？为什么我注册的时候会说注册码和邮箱不一样什么的？
里面的附件我都看不了，你能不能帮注册一个？谢谢

myfreemind · 发表于 2004-1-27 14:16:08

可以注册，我就没有办法帮你注册了，因为我注册了是没有办法重复注册的！:)

雨中漫步0423 · 发表于 2004-1-27 14:35:58

注册后会出现下面那段话：

您在"访问论坛"的时候发生错误,共有1项,下面是错误的详细信息
授权注册码必须与邮件地址相对应的，请填写与邮件地址相对应的号码。

请仔细阅读论坛帮助文件，确保您有相应的操作权限。

我都用了两个邮箱去注册了，都是这样，但我是直接在邮件上点的继续注册，不可能有输入错误的说法啊……
我把我的用户名和邮箱给你，你帮我注册好吗？是帮我注册，又不算重复注册，我真的注册不上了

myfreemind · 发表于 2004-1-27 14:59:53

好吧，我帮你试试，因为注册成功后要发COOKIE的，我不知道能不能注册上，你把你的信箱地址给我！

陌生人 · 发表于 2004-1-28 09:54:16

先来个简单点的

(defun c:chp ()
(while(and (setq e1 (entsel "\n选第一个物体/<退出>:"))
(setq e2 (entsel "\n选第二个物体:")))
(setq pt1 (cdr (assoc 10 (entget (car e1))))
pt2 (cdr (assoc 10 (entget (car e2)))))
(vl-cmdf ".move" e1 "" pt1 pt2 ".move" e2 "" pt2 pt1)
)
)

账号		自动登录	找回密码
密码			立即注册

[求助]：物体对换的命令

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子