请教前辈：用VBA 如何实现拉伸（STRETCH）效果

lcj21 · 发表于 2018-4-15 07:43:44

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

×

本人刚学CAD VBA，想实现简单的图形拉伸（STRETCH）功能，比如：一个200*500的长方形，我想用VBA代码，运行后，将图形直接拉成200*800，但要求是必须是拉伸（STRETCH）实现，我找了好贴子，似乎没有关于VBA能实现拉伸的效果。本人愚钝，请高手指点，谢谢！

xinxirong · 发表于 2018-4-15 09:47:28

VBA不提供拉伸的功能，用command或arx吧。

lcj21 · 发表于 2018-4-15 11:48:21

xinxirong 发表于 2018-4-15 09:47
VBA不提供拉伸的功能，用command或arx吧。

谢谢回复！但不知用command如何实现，请指点！

newer · 发表于 2018-4-15 11:58:22

你是想实现拉伸过程那个动态过程？

lcj21 · 发表于 2018-4-15 12:13:34

newer 发表于 2018-4-15 11:58
你是想实现拉伸过程那个动态过程？

谢谢回复！不是要动态过程，就是要用拉伸实现最终结果，但必须用拉伸实现，不能用线条连接生成。好像sendcommand能实现，但是我不会用，试了无数次都不行，当然如果VBA能直接生成不用调sendcommand命令就更好了，希望知道的大神不吝指教，在此谢过！！！

newer · 发表于 2018-4-15 21:11:13

那就不能如你题目说的“拉伸”效果，这就是修改多段线顶点的过程。你求出另外两个顶点，修改顶点。

lcj21 · 发表于 2018-4-16 08:21:20

newer 发表于 2018-4-15 21:11
那就不能如你题目说的“拉伸”效果，这就是修改多段线顶点的过程。你求出另外两个顶点，修改顶点。

谢谢答复！由点连线生成不是我想要的结果，因为后续我的图形非常复杂，如果都是由点点连线生成，光计算坐标都累死，我想直接由拉伸生成。

sicky111 · 发表于 2018-4-19 09:38:16

用Lisp不好吗？

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

[求助] 请教前辈：用VBA 如何实现拉伸（STRETCH）效果