谁有添加块[各种阀门，设备等生成的块]自动打断管线的VBA或Lisp代码?

正在学Autocad的VBA，这和Excel中的基本语法略有不同，学习中。等待高人指点。