分享一个我自己最常用的命令【拉伸或者移动至需要的距离】

tomonkey239

大佬，你这个比燕秀的尺寸驱动还好用。

xpeagle

很实用，先收下了，赞一个，多谢分享了，咱也学习下

fangseng

楼主您好，这个在低版本上用不了，能不能改一下，谢谢！！！！

fangseng

低版本无法操作，会出现必须选择一个交叉窗口或交叉多边形来拉伸，未知命令“NON”。按 F1 查看帮助。

请楼主帮忙，看看，多谢了！！

断箭

自用的小程序，分享一下，利用是对象捕捉中的捕捉自（from）
(defun c:sfr (/ *error* ss pt1 pt2)
  (defun *error* (msg)
    (setvar "autosnap" 63)
  )
  (prompt "\n★功能:将图形拉伸到指定的尺寸.\n")
  (setvar "cmdecho" 0)
  (setvar "orthomode" 1)
  (if (and
        (setq ss (ssget))
        (setq pt1 (getpoint "\n指定基点:"))
        (setq pt2 (getpoint pt1 "\n指定起点:"))
      )
    (command "_.stretch" ss "" "non" pt1 "from" "non"  pt2 pause)
  )
  (setvar "autosnap" 63)
  (princ)
)

ljpnb

菜卷鱼 发表于 2024-1-23 17:29
看个人吧，我个人很喜欢，
推荐给同事有些也觉得好用，有些觉得不好用

每个人从事的行业不一样，绘图技巧也不一样，所以只要自己写的程序提高工作效率，就是好东西

zilong136

菜卷鱼 发表于 2024-1-23 17:32
燕秀的我没用过，不喜欢开机有广告
我的没那么完善，毕竟代码就那么一点，对我个人来说够用了

功能蛮实用，貌似24CAD不能用

zilong136

断箭 发表于 2024-1-27 15:59
自用的小程序，分享一下，利用是对象捕捉中的捕捉自（from）
(defun c:sfr (/ *error* ss pt1 pt2)
  (de ...

感觉跟S拉伸效果差不多，就少一个动态效果了，还有就是24CAD不能用。

阳阳阳

谢谢分享！！

菜卷鱼

fangseng 发表于 2024-1-26 16:11
低版本无法操作，会出现必须选择一个交叉窗口或交叉多边形来拉伸，未知命令“NON”。按 F1 查看帮助。

...

  (command sv_cmd sv_ss "" "non" dt "non" sv_nvpt)
;;;如果你的电脑不支持"non"，就用下面的方式，non的作用是取消捕捉
;;;;(setq osmode  (getvar 'osmode))
;;;;(setvar 'osmode 0)
;;;;(command sv_cmd sv_ss ""  dt sv_nvpt)
;;;;(setvar 'osmode osmode)