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

这个只可以是同一个方向，有时候是四个方向的。
页: [1]
查看完整版本: 输入一次拉伸后，默认上一次拉伸的距离（已经解决）