酷酷提 发表于 2022-4-28 09:57:03

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

本帖最后由 酷酷提 于 2022-4-28 10:21 编辑

内容已经隐藏

rocking2008 发表于 2022-4-28 09:57:04

;; 直线变矩形
(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 发表于 2022-4-28 10:07:07

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

菜卷鱼 发表于 2022-4-28 10:13:46

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

酷酷提 发表于 2022-4-28 10:17:27

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

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

酷酷提 发表于 2022-4-28 15:23:01




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

999999 发表于 2022-7-28 11:37:23

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

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

酷酷提 发表于 2022-7-29 17:37:07

999999 发表于 2022-7-28 11:37
大神，这个非常好用哟，能不能加一个记忆功能，把宽度记忆起来
我这个是根据论坛他们的源码改的呢，记忆这个我还不会。。。

下文没句号。 发表于 2022-7-29 23:31:41

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

999999 发表于 2022-7-30 09:51:23

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

大神您好，您能改源码蛮厉害的哟，关于记忆的我找到其它的源码加上去改好了哟，谢谢您
页: [1] 2
查看完整版本: 优化源码：直线变矩形后，删除原直线