偏移后自动两端封头

fan_zh

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

lee50310

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

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

依然小小鸟

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

ysq101

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

q3_2006

2. (defun c:tt ( / a b of p1 p2 p3 p4)
   
3. (setq of (getreal "\n输入偏移距离:"))
   
4. (while (setq a (car (entsel "\n选择偏移的直线:")))
   
5.                 (setq p1 (cdr (assoc 10 (entget a)))
   
6.                 p2 (cdr (assoc 11 (entget a)))
   
7.                 )
   
8.                 (command "offset" of a pause "")
   
9.                 (setq b (entlast)
   
10.                 p3 (cdr (assoc 10 (entget b)))
    
11.                 p4 (cdr (assoc 11 (entget b)))
    
12.         )
    
13.         (if (equal (distance p1 p3) of 1e-6)
    
14.                 (progn
    
15.                         (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p3)))
    
16.                         (entmake (list '(0 . "LINE") (cons 10 p2) (cons 11 p4)))
    
17.                         )
    
18.                         (progn
    
19.                         (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p4)))
    
20.                         (entmake (list '(0 . "LINE") (cons 10 p2) (cons 11 p3)))
    
21.                         )
    
22.         )
    
23. )
    
24. )

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

kwok

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

2. (defun c:tt( / en en1 pt p1 p2 p3 p4)
   
3.   (setvar 'osmode 0)
   
4. (setq ofd (getdist "\n偏移距离:"))
   
5.   (setq en (car(entsel"\n请选择线:")))
   
6. (command "offset" ofd en  pause "")
   
7. (setq en1 (entlast))
   
8. (setq p1(vlax-curve-getstartpoint en)
   
9.          p2(vlax-curve-getendpoint en)
   
10.          p3(vlax-curve-getstartpoint en1)
    
11.          p4(vlax-curve-getendpoint en1))  
    
12. (command ".line" p1 p3 ""  ".line" p2 p4 "")
    
13.   (setvar 'osmode 4133)
    
14.   (princ)
    
15. )

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

434939575

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

fan_zh

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

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

fan_zh

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

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

kwok

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

加循环:

2. (defun c:tt( / en en1 pt p1 p2 p3 p4 dist)
   
3.   (setvar 'osmode 0)
   
4.     (setq dist (getdist (strcat "输入偏移距离:<"
   
5.                               (rtos (getvar "OFFSETDIST")) ">")))
   
6.   (if (null dist)
   
7.     (setq dist (getvar "offsetdist"))
   
8.     (setvar "offsetdist" dist)  )
   
9.   (while
   
10.   (setq en (car(entsel"\n请选择线:")))
    
11. (command "offset" dist en  pause "")
    
12. (setq en1 (entlast))
    
13. (setq p1(vlax-curve-getstartpoint en)
    
14.          p2(vlax-curve-getendpoint en)
    
15.          p3(vlax-curve-getstartpoint en1)
    
16.          p4(vlax-curve-getendpoint en1))  
    
17. (command ".line" p1 p3 ""  ".line" p2 p4 ""))
    
18.   (setvar 'osmode 4133)
    
19.   (princ)
    
20. )

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

bai2000

能改为可以框选就更好

fan_zh

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

同意，

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

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