hxh2901 发表于 2006-6-13 16:53:00

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

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

e2002 发表于 2006-6-15 08:54:00

Rotate 有 Reference 选项<br>

caoyin 发表于 2006-6-15 13:04:00

本帖最后由 作者 于 2006-6-16 8:53:20 编辑 <br /><br /> (defun c:rsc (/ p1 p2 os di)<BR>&nbsp; (setq ss&nbsp;(ssget)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p1&nbsp;(getpoint "\n指定基点:")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;p2&nbsp;(getpoint "\n指定拉伸点:")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; di&nbsp;(abs (distance p1 p2))<BR>&nbsp; )<BR>&nbsp; (command "scale" ss "" p1 "r" di)<BR>&nbsp; (command pause)<BR>&nbsp; (princ)<BR>)

hxh2901 发表于 2006-6-15 16:57:00

谢谢楼上的,

阿酱 发表于 2013-1-8 10:40:07

caoyin,你简直是太帅了，，，
页: [1]
查看完整版本: SCALE命令拖动缩放功能的改善