明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1926|回复: 4

SCALE命令拖动缩放功能的改善

[复制链接]
发表于 2006-6-13 16:53:00 | 显示全部楼层 |阅读模式

有时候想对一个对象尺寸的缩放要求不是很精确时,用鼠标拖动来控制更快捷,可是CAD默认的功能不好用,鼠标拖动一点,尺寸变化就很大,太难控制.请问有没有大虾能写个程序改善呢,就是鼠标拖动的范围.谢谢

发表于 2006-6-15 08:54:00 | 显示全部楼层
Rotate 有 Reference 选项
发表于 2006-6-15 13:04:00 | 显示全部楼层
本帖最后由 作者 于 2006-6-16 8:53:20 编辑

(defun c:rsc (/ p1 p2 os di)
  (setq ss (ssget)
           p1 (getpoint "\n指定基点:")
           p2 (getpoint "\n指定拉伸点:")
            di (abs (distance p1 p2))
  )
  (command "scale" ss "" p1 "r" di)
  (command pause)
  (princ)
)
 楼主| 发表于 2006-6-15 16:57:00 | 显示全部楼层
谢谢楼上的,
发表于 2013-1-8 10:40:07 | 显示全部楼层
caoyin,你简直是太帅了,,,
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-6-2 11:01 , Processed in 0.163198 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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