求助：这样的管道断开时的折断符号是怎样实现的？

xd-xdcad

如图，随意绘制折断符号，该符号能根据鼠标位移调整方向？

xd-xdcad

自己不能给自己点评呀，呵呵
yjr111  朋友一直很活跃呀，
(defun vv_err (s)
  (if (= s "Function cancelled")
    (princ (strcat "\nError: " s))
  )
  (command "_.UNDO" "_E")
)
(defun c:vv (/ pt1 pt2 pt3 pt4 pt5 pt6 ang dis old old1)
  (setq *error* vv_err)
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.UNDO" "bE")
  (setq old1 (getvar "blipmode"))
  (setvar "blipmode" 0)
  (setq pt1 (getpoint "\nSelect the first point(满弧):"))
  (setq pt2 (getpoint "\nSelect the second point(半弧):"))
  (setq old (getvar "osmode"))
  (setq dis (distance pt1 pt2))
  (setq ang (angle pt1 pt2))
  (setq pt3 (polar pt1 ang (* dis 0.5)))
  (setq pt4 (polar pt1
     (+ ang (/ pi 7.5))
     (/ (/ dis (cos (/ pi 7.5))) 4)
     )
  )
  (setq pt5 (polar pt1
     (- ang (/ pi 7.5))
     (/ (/ dis (cos (/ pi 7.5))) 4)
     )
  )
  (setq pt6 (polar pt3
     (+ ang (/ pi 7.5))
     (/ (/ dis (cos (/ pi 7.5))) 4)
     )
  )
  (command "arc" pt1 pt4 pt3)
  (command "arc" pt1 pt5 pt3)
  (command "arc" pt3 pt6 pt2)
  (setvar "osmode" old)
  (setvar "blipmode" old1)
  (command "_.UNDO" "E")
  (setvar "cmdecho" cmd)
  (princ)
)
这是找到的一个程序，但有时会出现不标准的折断符号，应该是受到捕捉的影响

朽木大师

有点意思，作记号