明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3109|回复: 13

请问斑竹 和各位大虾 “橡皮筋”功能如何实现

  [复制链接]
发表于 2004-10-17 14:35:00 | 显示全部楼层 |阅读模式
具体说在模型空间画了一个三角形,当我移动其中一个顶点时,与该顶点相邻的两个边也随之移动。把顶点移动到需要位置后,按下鼠标,该两条边也随之确定。


小弟先谢了,斑竹给个思路吧
发表于 2004-10-17 16:13:00 | 显示全部楼层
夹点的功能就是这样的
 楼主| 发表于 2004-10-17 19:29:00 | 显示全部楼层

解释一下可以吗

楼上的能否说的详细点 拜托了
发表于 2004-10-18 09:40:00 | 显示全部楼层

Grips are small, solid-filled squares that appear at strategic points on objects selected with a pointing device. You can drag these grips to stretch, move, rotate, scale, or mirror objects quickly.

When grips are on, you select the objects you want before entering a command, and then you manipulate the objects with the pointing device.

MSITStore:C:\Program%20Files\Autodesk%20Map%202004\help\acad_aug.chm::/online_art/auw0517u.gif" align=absBottom>

To use grips, select a grip to act as the base point for the action. Then select one of the grip modes. You can cycle through these modes by pressing ENTER or SPACEBAR. You also can use shortcut keys or right-click to see all of the modes and options.

You can use multiple grips as the base grips to keep the shape of the object intact between the selected grips. Hold down SHIFT as you select the grips.

For quadrant grips on circles and ellipses, distance is measured from the center point, not the selected grip. For example, in Stretch mode, you can select a quadrant grip to stretch a circle and then specify a distance on the command line for the new radius. The distance is measured from the center of the circle, not the selected quadrant. If you select the center point to stretch the circle, the circle moves.

When a 2D object lies on a plane other than the current UCS, the object is stretched on the plane on which it was created, not on the plane of the current UCS.

You can limit the display of grips on selected objects. The GRIPOBJLIMIT system variable suppresses the display of grips when the initial selection set includes more than the specified number of objects. If you add objects to the current selection set, the limit does not apply. For example, if GRIPOBJLIMIT is set to 20, you can select 15 objects and then add 25 objects to the selection and all objects display grips.

Stretch with Grips

You can stretch an object by moving selected grips to new locations. Grips on text, block references, midpoints of lines, centers of circles, and point objects move the object rather than stretching it. This is an excellent method for moving block references and adjusting dimensions.

Move with Grips

You can move objects by the grip selected. Selected objects are highlighted and are moved the direction and distance of the next point location you specify.

Rotate with Grips

You can rotate selected objects around a base point by dragging and specifying a point location. Alternatively, you can enter an angle value. This is an excellent method for rotating block references.

Scale with Grips

You can scale selected objects relative to a base point. Increase the size of an object by dragging outward from the base grip and specifying a point location, or decrease the size by dragging inward. Alternatively, you can enter a value for relative scaling.

Mirror with Grips

You can mirror selected objects across a temporary mirror line. Turning Ortho on helps you specify a vertical or horizontal mirror line.

 楼主| 发表于 2004-10-18 10:17:00 | 显示全部楼层
请问斑竹如何用编程实现呢?
发表于 2004-10-18 11:09:00 | 显示全部楼层
用(grread)函数
发表于 2004-10-18 16:17:00 | 显示全部楼层
GRREAD是lisp函数,VBA不能用, 我曾经写过一个用VBA调用LISP的程序,使用GRTEXT和GRDRAW功能时都可以,就是GRREAD时,一使用鼠标滚轮就死机,哪位高手请指点一下
 楼主| 发表于 2004-10-18 17:55:00 | 显示全部楼层
斑竹 可否给个用vba写的程序呢?小弟 先谢了~
 楼主| 发表于 2004-10-18 18:06:00 | 显示全部楼层
斑竹 我需要实现如下功能,如图片所示,当我移动其中一个顶点圆时,和该圆相邻的两条边能随之移动,当我按下鼠标后,两条边随之确定。即 ,该圆相当于夹点!移动夹点 可以调整图形。


小弟 先谢了,拜托斑竹给个 思路吧
 楼主| 发表于 2004-10-18 18:13:00 | 显示全部楼层
C:\Documents and Settings\Administrator\桌面\1.bmp
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-2-21 03:33 , Processed in 0.199414 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表