优化源码：直线变矩形后，删除原直线

酷酷提

内容已经隐藏

rocking2008

;; 直线变矩形
(defun c:b1()
  (setvar "osmode" 0)
  (setq ww (getreal "\n请输入宽度: "))
  (prompt "\n框选欲变矩形的直线: ")
  (setq ss (ssget '((0 . "LINE")))
          d  (* ww 0.5)
           i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq p1 (vlax-curve-getstartPoint s1)
          p2 (vlax-curve-getendPoint s1)
          r  (+ (angle p1 p2) (* pi 0.5))
    )
    (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
  )
(command "erase" ss "")
  (princ)
)

rocking2008

这种双向偏移画矩形的，没啥用吧，应该向指定的一个方向生成矩形才适用你们。

菜卷鱼

大哥，你的账号是不是买的啊，长老级别、 3800多个币，这么简单还要别人改

酷酷提

rocking2008 发表于 2022-4-28 10:07
这种双向偏移画矩形的，没啥用吧，应该向指定的一个方向生成矩形才适用你们。

有用的啊，这个只是一个运用方法，看你怎么用哈

酷酷提

直线变矩形后删除直线（不会丢失 动态捕捉） 命令：zbj

999999

酷酷提 发表于 2022-4-28 15:23
直线变矩形后删除直线（不会丢失 动态捕捉） 命令：zbj

大神，这个非常好用哟，能不能加一个记忆功能，把宽度记忆起来

酷酷提

999999 发表于 2022-7-28 11:37
大神，这个非常好用哟，能不能加一个记忆功能，把宽度记忆起来

我这个是根据论坛他们的源码改的呢，记忆这个我还不会。。。

下文没句号。

直线变矩形，是直线在中心位置向两边偏移生产的吗？

999999

酷酷提 发表于 2022-7-29 17:37
我这个是根据论坛他们的源码改的呢，记忆这个我还不会。。。

大神您好，您能改源码蛮厉害的哟，关于记忆的我找到其它的源码加上去改好了哟，谢谢您