大佬，你这个比燕秀的尺寸驱动还好用。
很实用，先收下了，赞一个，多谢分享了，咱也学习下
楼主您好，这个在低版本上用不了，能不能改一下，谢谢！！！！
低版本无法操作，会出现必须选择一个交叉窗口或交叉多边形来拉伸，未知命令“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)
)
菜卷鱼 发表于 2024-1-23 17:29
看个人吧，我个人很喜欢，
推荐给同事有些也觉得好用，有些觉得不好用
每个人从事的行业不一样，绘图技巧也不一样，所以只要自己写的程序提高工作效率，就是好东西
菜卷鱼 发表于 2024-1-23 17:32
燕秀的我没用过，不喜欢开机有广告
我的没那么完善，毕竟代码就那么一点，对我个人来说够用了
功能蛮实用，貌似24CAD不能用
断箭 发表于 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)