偏移后自动两端封头

fan_zh · 发表于 2014-2-18 13:17:02

求一个小程序，能在offset之后自动连接两端

依然小小鸟 · 发表于 2018-9-5 12:29:37

批量偏移并且填充支持框选

lee50310 · 发表于 2020-3-10 23:29:50

本帖最后由 lee50310 于 2020-3-11 10:39 编辑

水仙的错发表于 2019-9-11 23:13
没有一个简单的源码能解决吗？
指定距离批量偏移封口，直线，多段线都可以，不要填充

花了一點時間，終於寫出來了

ysq101 · 发表于 2014-2-18 17:42:07

请问楼主是哪个专业的？？

q3_2006 · 发表于 2014-2-18 19:34:19

(defun c:tt ( / a b of p1 p2 p3 p4)
(setq of (getreal "\n输入偏移距离:"))
(while (setq a (car (entsel "\n选择偏移的直线:")))
(setq p1 (cdr (assoc 10 (entget a)))
p2 (cdr (assoc 11 (entget a)))
)
(command "offset" of a pause "")
(setq b (entlast)
p3 (cdr (assoc 10 (entget b)))
p4 (cdr (assoc 11 (entget b)))
)
(if (equal (distance p1 p3) of 1e-6)
(progn
(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p3)))
(entmake (list '(0 . "LINE") (cons 10 p2) (cons 11 p4)))
)
(progn
(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p4)))
(entmake (list '(0 . "LINE") (cons 10 p2) (cons 11 p3)))
)
)
)
)

(defun c:tt ( / a b of p1 p2 p3 p4) 
(setq of (getreal "\n输入偏移距离:")) 
(while (setq a (car (entsel "\n选择偏移的直线:"))) 
                (setq p1 (cdr (assoc 10 (entget a))) 
                p2 (cdr (assoc 11 (entget a))) 
                ) 
                (command "offset" of a pause "") 
                (setq b (entlast) 
                p3 (cdr (assoc 10 (entget b))) 
                p4 (cdr (assoc 11 (entget b))) 
        ) 
        (if (equal (distance p1 p3) of 1e-6) 
                (progn 
                        (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p3))) 
                        (entmake (list '(0 . "LINE") (cons 10 p2) (cons 11 p4))) 
                        ) 
                        (progn 
                        (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p4))) 
                        (entmake (list '(0 . "LINE") (cons 10 p2) (cons 11 p3))) 
                        ) 
        ) 
) 
)

kwok · 发表于 2014-2-18 19:39:55

本帖最后由 kwok 于 2014-2-18 19:45 编辑

比较简单,适合多段线直线曲线.

(defun c:tt( / en en1 pt p1 p2 p3 p4)
(setvar 'osmode 0)
(setq ofd (getdist "\n偏移距离:"))
(setq en (car(entsel"\n请选择线:")))
(command "offset" ofd en pause "")
(setq en1 (entlast))
(setq p1(vlax-curve-getstartpoint en)
p2(vlax-curve-getendpoint en)
p3(vlax-curve-getstartpoint en1)
p4(vlax-curve-getendpoint en1))
(command ".line" p1 p3 "" ".line" p2 p4 "")
(setvar 'osmode 4133)
(princ)
)

434939575 · 发表于 2014-2-18 21:46:05

收藏了。也需要这个！谢谢.

fan_zh · 发表于 2014-2-19 09:25:56

q3_2006 发表于 2014-2-18 19:34

好用
但只能执行一次并且要重新输入宽度，能否循环执行并默认宽度呢？

fan_zh · 发表于 2014-2-19 09:28:30

kwok 发表于 2014-2-18 19:39
比较简单,适合多段线直线曲线.

非常给力
可否改进循环执行呢？谢谢

kwok · 发表于 2014-2-19 10:38:32

fan_zh 发表于 2014-2-19 09:28
非常给力
可否改进循环执行呢？谢谢

加循环:

(defun c:tt( / en en1 pt p1 p2 p3 p4 dist)
(setvar 'osmode 0)
(setq dist (getdist (strcat "输入偏移距离:<"
(rtos (getvar "OFFSETDIST")) ">")))
(if (null dist)
(setq dist (getvar "offsetdist"))
(setvar "offsetdist" dist) )
(while
(setq en (car(entsel"\n请选择线:")))
(command "offset" dist en pause "")
(setq en1 (entlast))
(setq p1(vlax-curve-getstartpoint en)
p2(vlax-curve-getendpoint en)
p3(vlax-curve-getstartpoint en1)
p4(vlax-curve-getendpoint en1))
(command ".line" p1 p3 "" ".line" p2 p4 ""))
(setvar 'osmode 4133)
(princ)
)

bai2000 · 发表于 2014-2-19 11:42:36

能改为可以框选就更好

fan_zh · 发表于 2014-2-20 09:20:59

本帖最后由 fan_zh 于 2014-2-20 09:22 编辑

bai2000 发表于 2014-2-19 11:42
能改为可以框选就更好

同意，

如果能批量处理封闭直线段，如三边四边形等，就完美了

附件是批量偏移的程序，但没有两端垂直封头的功能，能结合8楼的程序吗？

账号		自动登录	找回密码
密码			注册

[提问] 偏移后自动两端封头

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源

评分

本帖子中包含更多资源