鼠标拖动缩放

adc · 发表于 2011-5-21 17:24

(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)
)

这是一个鼠标拖动缩放的例子，选中物体后先选择两个点然后拖动鼠标就会缩放，想改成选中物体后只要选择一个点然后拖动鼠标就可以缩放，请问要怎样改，谢谢

tywsc · 发表于 2011-5-21 18:47

学习了,想不到用到自身command命令

AMTONNY · 发表于 2011-5-21 20:33

不知楼主想要怎么样的功能，选中物体后只要选择一个点然后拖动鼠标就可以缩放，按此文字理解则scale原命令就可以满足要求了

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

[源码] 鼠标拖动缩放