乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 131|回复: 9

如何创建临时点??

[复制链接]

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-30 22:16:00 | 显示全部楼层 |阅读模式
如题.
在vb中有时要选两个点,用两次getpoint,如果能在选完第一点后,在第一点处创建一个临时点,那选第二点时就方便了.
回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2003-12-30 22:19:00 | 显示全部楼层
你的意思创建一个临时点,选择第二点是什么意思?要做什么用?
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2003-12-30 23:51:00 | 显示全部楼层
是要实现橡皮筋的效果吧。
Dim Pt1 As Variant
Dim Pt2 As Variant
Pt1 = ThisDrawing.Utility.GetPoint("指定第一点: ")
Pt2 = ThisDrawing.Utility.GetPoint(Pt1, "指定下一点: ")
其中,指定GetPoint的第一个参数为上一点的坐标就可以实现了。
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-31 20:01:00 | 显示全部楼层
是这样的,我需要选择2个点,这两个点需在一根线上(垂直或水平),如果选择完第一个点后,在第一个点上设置一个临时点(temporary track point),这样第二个点就好选了.
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-1-1 16:55:00 | 显示全部楼层
再顶顶,难道没人用过此功能吗?
回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2004-1-1 17:12:00 | 显示全部楼层
你发张图上来,如果第一个点没有的话,第二个点就没有办法选了吗?
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-1-1 17:29:00 | 显示全部楼层

用当然能用,只不过为了选择是方便一点而已,这跟图没关系.vba中有关于临时点的东西吗?
回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2004-1-1 20:06:00 | 显示全部楼层
这样,你用GETPOINT获取了点后,就可以创建一个点
Dim pnt As Variant
Dim ent As AcadEntity
pnt = ThisDrawing.Utility.GetPoint(, "createpoint")
ThisDrawing.ModelSpace.AddPoint (pnt)
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-1-1 20:10:00 | 显示全部楼层
这样还是不大好,并不是真正的临时点,如果我想创建两个以上临时点呢?
vb到底能不能创建临时点?
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-1-1 23:33:00 | 显示全部楼层
ACAD中没有临时点的概念,先创建,然后再删除。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 11:49 , Processed in 0.634999 second(s), 83 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表