连续移动，连续拉伸lisp求助！

wxa123wl

平时工作中经常会改图，，然后就是把好多东西都拉伸固定距离，或者移动固定距离，故每次都得输入一遍距离，，希望有大神弄一个，或者分享一个，，先指定距离和方向然后选择问题，确定后就是移动（拉伸）指定方向固定距离！这样就不用每次都输入距离了，哈哈，，有点像pkpm里面的移动，，还有拉伸功能哦，！工作效率，在你的帮助下提高，好的想法在大神们中传递！[em0]

wxa123wl

;连续复制不用输入距离和方向
(defun c:lxc(/ ss spt ept len1 ang1)
(setvar "osmode" 679)                        ; 打开端点,中点,中心,象限点,交点及垂点捕捉
  (setq spt (getpoint "\n选择基点:"))
  (setq ept (getpoint spt "\n复制的终点(方向):"))
  (setq len1 (getdist "\n复制的距离<默认为起点终点的距离>:"))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq ang1 (angle spt ept))
  (if len1
      (setq ept (polar spt ang1 len1))
  )
  (princ "\n选择要复制的对象")
  (setq ss (ssget))
  (while ss
    (progn
      (command "copy" ss "" spt ept)
        (setq ss (ssget))
    )
  )   
(setvar "osmode" os)
  (prin1)
)
;连续拉伸不用输入距离和方向
(defun c:lxs(/ ss spt ept len1 ang1)
(setvar "osmode" 679)                        ; 打开端点,中点,中心,象限点,交点及垂点捕捉
  (setq spt (getpoint "\n选择基点:"))
  (setq ept (getpoint spt "\n移动的终点(方向):"))
  (setq len1 (getdist "\n拉伸的距离<默认为起点终点的距离>:"))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq ang1 (angle spt ept))
  (if  len1
      (setq ept (polar spt ang1 len1))
  )
  (princ "\n选择要拉伸的对象")
  (setq ss (ssget))
  (while ss
    (progn
      (command "stretch" ss "" spt ept)
        (setq ss (ssget))
    )
  )   
(setvar "osmode" os)
  (prin1)
)
;连续移动不用输入距离和方向
(defun c:lxm(/ ss spt ept len1 ang1)
(setvar "osmode" 679)                        ; 打开端点,中点,中心,象限点,交点及垂点捕捉
  (setq spt (getpoint "\n选择基点:"))
  (setq ept (getpoint spt "\n移动的终点(方向):"))
  (setq len1 (getdist "\n移动的距离<默认为起点终点的距离>:"))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq ang1 (angle spt ept))
  (if  len1
      (setq ept (polar spt ang1 len1))
  )
  (princ "\n选择要移动的对象")
  (setq ss (ssget))
  (while ss
    (progn
      (command "move" ss "" spt ept)
        (setq ss (ssget))
    )
  )   
(setvar "osmode" os)
  (prin1)
)

;;连续删除不用少一次回车
(defun c:LXE (/ SS)
(setq ss(ssget))
(princ "\n选择要删除的对象")
(command "ERASE" SS "")
(c:LXE)
)

st788796

拉伸也好、移动也好都是相对距离

newer

你要拉矩形的一个边吗？

wxa123wl

st788796 发表于 2014-4-16 22:36
拉伸也好、移动也好都是相对距离

拉伸上一次的距离，和方向，和偏移类似的那种，，

wxa123wl

newer 发表于 2014-4-17 10:25
你要拉矩形的一个边吗？

拉伸，移动上一次的距离和方向，和offset命令类似，不过移动拉伸肯定是要框选物体才实用呀，，！呵呵