以下是一个示例的Lisp代码，用于根据特性匹配断开线段上与图块或相交线段相交的点：

lisp
Copy code
(defun break-line-at-intersections (line entities / intersections)
(setq intersections (ssget "_X" '((0 . "INSERT,LINE")))) ; 获取所有图块和线段的选择集

(if (and line (> (sslength intersections) 0))
(progn
(command "_.undo" "_begin") ; 开始撤销操作

  (setq i 0)
  (while (< i (sslength intersections))
    (setq ent (ssname intersections i))
    (setq type (cdr (assoc 0 (entget ent))))

    (cond
      ; 处理图块
      ((= type "INSERT")
        (setq block (cdr (assoc 2 (entget ent)))) ; 获取图块名
        (setq vertices (get-entity-vertices ent))
        (break-line-at-vertices line vertices))
      
      ; 处理线段
      ((= type "LINE")
        (setq vertices (get-entity-vertices ent))
        (break-line-at-vertices line vertices)))

    (setq i (1+ i)))
  
  (command "_.undo" "_end") ; 结束撤销操作
  )
)

)

(defun get-entity-vertices (entity / vertices)
(setq vertices '())
(setq ent (entget entity))

(while (setq v (assoc 10 ent))
(setq vertices (cons (cdr v) vertices))
(setq ent (entnext ent))
)

(reverse vertices))

(defun break-line-at-vertices (line vertices)
(setq i 0)
(while (< i (length vertices))
(setq v1 (nth i vertices))
(setq v2 (nth (1+ i) vertices))

(command "_.break" line "_f" v1 v2)
(setq i (1+ i))))

; 示例用法
(setq line (car (entsel "\n选择要断开的线段: ")))
(break-line-at-intersections line)
上述代码包含两个主要函数：

break-line-at-intersections：根据特性匹配，将线段与图块或相交线段的相交点处断开。
get-entity-vertices：获取实体的顶点列表。
要使用上述代码，您可以将其复制到Lisp编辑器中（如AutoCAD的Visual LISP编辑器），然后调用(break-line-at-intersections line)函数，其中line是要断开的线段实体的选择集。该代码将遍历相交的图块和线段，找到相交点并将线段在这些点处断开。

请注意，这是一个基本示例，您可能需要根据您的具体需求进行调整和扩展。