你会 stretch (拉伸）吗？

lxl217114

CAD自带STRETCH（快捷S）命令
本来就具有拉伸、移动功能

选中图元部分=拉拽，选中图元全部=移动。

lingduwx

可能我前面描述的不清楚，例如我需要拉伸红线的A点到B点（注意B点和D点是对齐的），框选红线A点拉伸可以参照以C为参照起点到D点的距离（这个距离可以直接输入数据），（这个非一般的意思起点为C拉伸到D点，这样实际拉伸的长度只有cd段长，而不是我需要的最终长度AB）

taoyi0727

lingduwx 发表于 2019-7-12 16:54
可能我前面描述的不清楚，例如我需要拉伸红线的A点到B点（注意B点和D点是对齐的），框选红线A点拉伸可以参 ...

你说的就是这个?自带命令就可以呀!

lingduwx

taoyi0727 发表于 2019-7-12 17:05
你说的就是这个?自带命令就可以呀!

自带的我知道，你的这个视频是正常情况下拉伸的效果的长度，我就想拉伸的时候增加一个参照就好了，以参照点开始输入拉伸长度，最终拉伸长度会拉伸至参照后的实际尺寸，效果见我的图，是需要拉伸A点至B点，注意B点和D点是对齐的，如果按你的视频，参照后的拉伸长度则是与上面300右端对齐的

ninja37

(command-S "._stretch"  "c"  (setq p0 (getpoint))(getcorner p0) "" (setq p1 (getpoint))  (setvar "osmode" 128)(getpoint p1))

大西瓜

lingduwx 发表于 2019-7-13 10:26
自带的我知道，你的这个视频是正常情况下拉伸的效果的长度，我就想拉伸的时候增加一个参照就好了，以参照 ...

这个自带的S的确是可以的，参照拉伸的话在要输入拉伸数值的时候先TK命令回车！然后正常输入总尺寸回车就可以了。这是CAD藏得比较深的方法之一

dcl1214

防止用户半路按下了esc，我屏蔽了esc，代码如下：

1. (defun c:dd (/ ss oldorh oldosm PT0)
   
2.   (vl-cmdf "select" "c" pause)
   
3.   (vl-catch-all-apply
   
4.     (function (lambda (/ SS PT0 ORTHOMODE OSMODE)
   
5.                 (if (setq ss (ssget "p"))
   
6.                   (progn
   
7.                     (setq ORTHOMODE (getvar "ORTHOMODE"))
   
8.                     (setq OSMODE (getvar "OSMODE"))
   
9.                     (setvar "ORTHOMODE" 1)
   
10.                     (setvar "OSMODE" 16383)
    
11.                     (setq PT0
    
12.                            (vl-catch-all-apply
    
13.                              'getpoint
    
14.                              (list "请点击左键指定基点或者输入距离数字:")
    
15.                            )
    
16.                     )
    
17.                     (if        PT0
    
18.                       ()
    
19.                       (setq PT0 (nth 1 (grread 5)))
    
20.                     )
    
21.                     (VL-CMDF "_.stretch" ss "" PT0 pause)
    
22.                     (setvar "ORTHOMODE" ORTHOMODE)
    
23.                     (setvar "OSMODE" OSMODE)
    
24.                   )
    
25.                 )
    
26.                 (SETQ SS NIL)
    
27.               )
    
28.     )
    
29.   )
    
30. )

(defun c:dd (/ ss oldorh oldosm PT0)<br />   (vl-cmdf "select" "c" pause)<br />   (vl-catch-all-apply<br />     (function (lambda (/ SS PT0 ORTHOMODE OSMODE)<br />                 (if (setq ss (ssget "p"))<br />                   (progn<br />                     (setq ORTHOMODE (getvar "ORTHOMODE"))<br />                     (setq OSMODE (getvar "OSMODE"))<br />                     (setvar "ORTHOMODE" 1)<br />                     (setvar "OSMODE" 16383)<br />                     (setq PT0<br />                            (vl-catch-all-apply<br />                              'getpoint<br />                              (list "请点击左键指定基点或者输入距离数字:")<br />                            )<br />                     )<br />                     (if        PT0<br />                       ()<br />                       (setq PT0 (nth 1 (grread 5)))<br />                     )<br />                     (VL-CMDF "_.stretch" ss "" PT0 pause)<br />                     (setvar "ORTHOMODE" ORTHOMODE)<br />                     (setvar "OSMODE" OSMODE)<br />                   )<br />                 )<br />                 (SETQ SS NIL)<br />               )<br />     )<br />   )<br /> )

zhwc125

非关联的填充一起拉伸，可能更加方便！