【多重拉伸】.lsp
本帖最后由 a2580106803 于 2025-6-17 21:07 编辑为什么大家都不做一个这样的小功能，个人觉得很实用，还是我没有找到。
我只找到一个KK命令的多重拉伸，我觉得那个只能算是多个多次拉伸。
用起来他那个坐标点不会偏移，如果对一个区域拉伸多次，就会拉伸错误。
故我自己搓了一个，分享出来。
欢迎交流学习
命令:CS 本帖最后由 a2580106803 于 2025-6-18 00:32 编辑
你有种再说一遍 发表于 2025-6-18 00:27
可能是因为动态块有这个功能吧,复用就动态块得了,
有什么场景要单独这样做?
我是做家装的，经常要把一排柜门加宽或者减宽，比如加宽100，我有5扇柜门，我就要拉伸5次，每扇门拉伸20。一般来说如果一个柜子要加宽，外立面，内立面，剖面，全部都要拉伸5遍，非常繁琐和浪费时间 清水白粥 发表于 2025-6-17 23:06
函数已取消
命令:
命令:
(defun draw-rect-grvecs (pt1 pt2 / x1 y1 x2 y2 p1 p2 p3 p4 vecs)
;; 提取两点坐标
(setq x1 (car pt1)
y1 (cadr pt1)
x2 (car pt2)
y2 (cadr pt2)
)
;; 四个角点，统一Z为0
(setq p1 (list x1 y1 0.0))
(setq p2 (list x1 y2 0.0))
(setq p3 (list x2 y2 0.0))
(setq p4 (list x2 y1 0.0))
;; 构造一维矢量列表（四条边）
(setq vecs
(list '1 p1 p2 ; 左边
'1 p2 p3 ; 上边
'1 p3 p4 ; 右边
'1 p4 p1) ; 下边
)
;; 画红色矩形（1=红色）
(grvecs vecs)
T
)
你单独加载一下这个函数试试 楼主太厉害了，很实用的功能！100个赞！ 大佬好厉害，很实用的功能！ 函数已取消
命令:
命令:
命令: (LOAD "C:/Users/Administrator/Desktop/多重拉伸.lsp") DRAW-RECT-GRVECS
命令:
命令: (LOAD "C:/Users/Administrator/Desktop/多重拉伸.lsp") DRAW-RECT-GRVECS你好楼主，这个函数被取消了，应该怎么解决 拉伸后，有线段残留，并且会炸开多段线。 AndyWang 发表于 2025-6-17 23:34
拉伸后，有线段残留，并且会炸开多段线。
是否有和其他插件命令冲突，我这个里面本身没有写关于线段分解炸开的代码 可能是因为动态块有这个功能吧,复用就动态块得了,
有什么场景要单独这样做? 厉害谢谢分享！！！！