输入一次拉伸后，默认上一次拉伸的距离（已经解决）

qcw911 · 发表于 2011-1-13 16:11:17

本帖最后由 qcw911 于 2011-1-14 15:57 编辑

在作图时有很多对象要拉伸相同的长度，使用stretch命令时，在选择完对象，输入了基点后，每次都在再输入相同的长度值(是数字挺多的小数哟，如50.005)，很是麻烦!!! 能否实现拉伸长度确定后自动输入？？？
高手帮忙

qcw911 · 发表于 2011-1-14 11:10:39

问题很难吗？
为什么没有人回答呢？

Gu_xl · 发表于 2011-1-14 13:10:34

回复 qcw911 的帖子

上下方向键翻出历史键盘输入

qcw911 · 发表于 2011-1-14 13:55:31

本帖最后由 qcw911 于 2011-1-14 13:57 编辑

回复 Gu_xl 的帖子

版主好像不行啊
方向键使用在命令之间
方向键翻出的是点的位置

拉伸命令里面有个 “D” 的移动距离怎么才能
结合lisp里面呢
(command "STRETCH" pasue "d" (5,0,0) "")
实验了好多次都不好用

qcw911 · 发表于 2011-1-14 15:57:14

(defun mstrerr (msg)
(if msg (princ msg))
(command "_.undo" "_end")
(if olderr (setq *error* olderr))
(princ)
)

(defun c:mstr (/ p1 p2 p3 p4 olderr)
  (command "_.undo" "_g")
  (setq olderr *error* *error* mstrerr)
  (setq p1 (getpoint "\nOne corner:  "))
  (initget 32)
  (setq p2 (getcorner p1 "\nOther corner:  "))
  (setq p3 (getpoint "\nStarting point:  "))
  (initget 32)
  (setq p4 (getpoint p3 "\nEnding point:  "))
  (command "_.stretch" "c" p1 p2 "" p3 p4)
  (setq resp (strcase (getstring "\nContinue or eXit?  ")))
  (While (= resp "C")
   (setq p1 (getpoint "\nOne corner:  "))
   (initget 32)
   (setq p2 (getcorner p1 "\nOther corner:  "))
   (command "_.stretch" "c" p1 p2 "" p3 p4)
   (setq resp (strcase (getstring "\nContinue or eXit?  ")))
  )
(command "_.undo" "_end")
  (princ)
)

Timnis · 发表于 2013-1-24 15:05:12

这个只可以是同一个方向，有时候是四个方向的。

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

[基础] 输入一次拉伸后，默认上一次拉伸的距离（已经解决）