[编程申请]：切割机中桥位的编程，LISP高手请进！！！

zhengguoyun

在切割机切割板材时，有个桥位的问题。（不了解也不要紧）
我想解决的就是这个问题（详细见WORD文档）

zhengguoyun

我是希望作成两个函数的，123为一个函数，4为一个函数

xyp1964

1、用框选需要处理的图形（直线、弧、圆）
2、通过对话框设定分段数和每段间隔的长度
3、将线条分段，如图：其中白色和兰色在两个图层
4、有时想删除桥位（兰色部分），恢复成开始一条线的状态。（不用UNDO，因可能进行了其他操作。）

eachy

横线做成块用 Minsert 命令插入

zhengguoyun

楼上的，能说的详细点吗， 谢谢

eachy

做一个线长为 1 个单位的0层且ByBlock颜色块，Minsert插入的时候线长就是 X 向比例，列间隙就是线长 + 间隙宽。
用程序绘制如下：

2. 
   
3. (vl-load-com)
   
4. (defun c:tt (/             thisdrawing     modelspace             blocks  blkdef
   
5.              p1             p2             p3             p4             d             an             n
   
6.              l             p30     p40
   
7.             )
   
8.   (setq        thisdrawing (vla-get-activedocument (vlax-get-acad-object))
   
9.         modelspace  (vla-get-modelspace thisdrawing)
   
10.         blocks            (vla-get-blocks thisdrawing)
    
11.   )
    
12.   (if (not (tblsearch "block" "Ea_Line"))
    
13.     (progn
    
14.       (setvar "clayer" "0")
    
15.       (setvar "cecolor" "byblock")
    
16.       (setq blkdef (vla-add blocks (vlax-3d-point '(0. 0.)) "Ea_line"))
    
17.       (vla-addline
    
18.         blkdef
    
19.         (vlax-3d-point '(0. 0.))
    
20.         (vlax-3d-point '(1. 0.))
    
21.       )
    
22.     )
    
23.   )
    
24.   (if (and (setq p1 (getpoint "\n起点: "))
    
25.            (setq p2 (getpoint p1 "\n终点: "))
    
26.            (setq p30 (getpoint p1 "\n线长: "))
    
27.            (progn
    
28.              (grdraw p1 p30 1 -1)
    
29.              (setq p40 (getpoint p30 "\n间隙: "))
    
30.            )
    
31.       )
    
32.     (progn
    
33.       (setq an (angle p1 p2)
    
34.             p3 (polar p1 an (distance p1 p30))
    
35.             p4 (polar p1 an (distance p30 p40))
    
36.             d  (distance p1 p2)
    
37.             n  (fix (/ d (distance p3 p4)))
    
38.             l  (distance p4 p1)
    
39.       )
    
40.       (vla-addminsertblock
    
41.         modelspace
    
42.         (vlax-3d-point p1)
    
43.         "ea_line"
    
44.         (distance p1 p3)
    
45.         (distance p1 p3)
    
46.         (distance p1 p3)
    
47.         an
    
48.         1
    
49.         n
    
50.         l
    
51.         l
    
52.       )
    
53. 
    
54.       (vla-put-color
    
55.         (vla-addminsertblock
    
56.           modelspace
    
57.           (vlax-3d-point p3)
    
58.           "ea_line"
    
59.           (distance p4 p3)
    
60.           (distance p4 p3)
    
61.           (distance p4 p3)
    
62.           an
    
63.           1
    
64.           (1- n)
    
65.           1
    
66.           l
    
67.           l
    
68.         )
    
69.         4
    
70.       )
    
71.     )
    
72.   )
    
73.   (princ)
    
74. )

<br /> (vl-load-com)<br /> (defun c:tt (/             thisdrawing     modelspace             blocks  blkdef<br />              p1             p2             p3             p4             d             an             n<br />              l             p30     p40<br />             )<br />   (setq        thisdrawing (vla-get-activedocument (vlax-get-acad-object))<br />         modelspace  (vla-get-modelspace thisdrawing)<br />         blocks            (vla-get-blocks thisdrawing)<br />   )<br />   (if (not (tblsearch "block" "Ea_Line"))<br />     (progn<br />       (setvar "clayer" "0")<br />       (setvar "cecolor" "byblock")<br />       (setq blkdef (vla-add blocks (vlax-3d-point '(0. 0.)) "Ea_line"))<br />       (vla-addline<br />         blkdef<br />         (vlax-3d-point '(0. 0.))<br />         (vlax-3d-point '(1. 0.))<br />       )<br />     )<br />   )<br />   (if (and (setq p1 (getpoint "\n起点: "))<br />            (setq p2 (getpoint p1 "\n终点: "))<br />            (setq p30 (getpoint p1 "\n线长: "))<br />            (progn<br />              (grdraw p1 p30 1 -1)<br />              (setq p40 (getpoint p30 "\n间隙: "))<br />            )<br />       )<br />     (progn<br />       (setq an (angle p1 p2)<br />             p3 (polar p1 an (distance p1 p30))<br />             p4 (polar p1 an (distance p30 p40))<br />             d  (distance p1 p2)<br />             n  (fix (/ d (distance p3 p4)))<br />             l  (distance p4 p1)<br />       )<br />       (vla-addminsertblock<br />         modelspace<br />         (vlax-3d-point p1)<br />         "ea_line"<br />         (distance p1 p3)<br />         (distance p1 p3)<br />         (distance p1 p3)<br />         an<br />         1<br />         n<br />         l<br />         l<br />       )<br /> <br />       (vla-put-color<br />         (vla-addminsertblock<br />           modelspace<br />           (vlax-3d-point p3)<br />           "ea_line"<br />           (distance p4 p3)<br />           (distance p4 p3)<br />           (distance p4 p3)<br />           an<br />           1<br />           (1- n)<br />           1<br />           l<br />           l<br />         )<br />         4<br />       )<br />     )<br />   )<br />   (princ)<br /> )

zhengguoyun

斑竹太高深了，小弟认真研究下，不用ACTIVEX能实现吗，我对这还不是很熟，非常的谢谢了

eachy

使用 COMMAND 都可以办到，Lisp 自然没有问题。知道方法了怎么做都可以，用程序省的是繁琐的计算线长和间隙

wjfling

这是公司的研发任务吗?

zgllyl

正好路过，也来学习一下

bestcheer

有arx的码吗？lisp看不懂