【多重拉伸】.lsp

a2580106803

为什么大家都不做一个这样的小功能，个人觉得很实用，还是我没有找到。

我只找到一个KK命令的多重拉伸，我觉得那个只能算是多个多次拉伸。

用起来他那个坐标点不会偏移，如果对一个区域拉伸多次，就会拉伸错误。

故我自己搓了一个，分享出来。

欢迎交流学习

命令:CS

a2580106803

你有种再说一遍 发表于 2025-6-18 00:27
可能是因为动态块有这个功能吧,复用就动态块得了,
有什么场景要单独这样做?

我是做家装的，经常要把一排柜门加宽或者减宽，比如加宽100，我有5扇柜门，我就要拉伸5次，每扇门拉伸20。一般来说如果一个柜子要加宽，外立面，内立面，剖面，全部都要拉伸5遍，非常繁琐和浪费时间

a2580106803

清水白粥 发表于 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
)
你单独加载一下这个函数试试

zmzk

楼主太厉害了，很实用的功能！100个赞！

yerenyi

大佬好厉害，很实用的功能！

清水白粥

函数已取消
命令:
命令:
命令: (LOAD "C:/Users/Administrator/Desktop/多重拉伸.lsp") DRAW-RECT-GRVECS
命令:
命令: (LOAD "C:/Users/Administrator/Desktop/多重拉伸.lsp") DRAW-RECT-GRVECS  你好楼主，这个函数被取消了，应该怎么解决

AndyWang

拉伸后，有线段残留，并且会炸开多段线。

a2580106803

AndyWang 发表于 2025-6-17 23:34
拉伸后，有线段残留，并且会炸开多段线。

是否有和其他插件命令冲突，我这个里面本身没有写关于线段分解炸开的代码

你有种再说一遍

可能是因为动态块有这个功能吧,复用就动态块得了,
有什么场景要单独这样做?

zhwc125

厉害谢谢分享！！！！