洞口线和中心线的绘制

szx025

有高手可以写一个这样功能的程序吗？
图中的矩形或圆形，点中这个图形，先自动完成洞口线的绘制（包括填充），然后确认是否需要画中心线，如Yes就再完成此矩形或圆形的中心线绘制，否则就结束程序。

yangist

;;; 画矩洞符
(defun c:rcf()
  (setq v1 (getvar "cmdecho"))
  (setq v2 (getvar "blipmode"))
  (setq cly (getvar "clayer"))
  (setq v4 (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq p1 (getpoint "\n输入矩形洞口的一个角点："))
  (setq p3 (getpoint p1 "\n输入矩形洞口的另一个角点："))
  (setq x1 (car p1))
  (setq y1 (cadr p1))
  (setq x3 (car p3))
  (setq y3 (cadr p3))
  (setq p2 (list x3 y1))
  (setq p4 (list x1 y3))
  (setq x5 (+ x1 (* 0.15 (- x3 x1))))
  (setq y5 (+ y1 (* 0.85 (- y3 y1))))
  (setq p5 (list x5 y5))
  (setvar "osmode" 0)
  (command "line" p1 p5 p3 "")
  (setvar "cmdecho" v1)
  (setvar "blipmode" v2)
  (setvar "clayer" cly)
  (setvar "osmode" v4)
)

szx025

谢谢楼上的，但这个不是我想要的，
我的需要是只需要点选一下这个洞口，而不是需要点两个角

1993063

这种效果?

szx025

1993063 发表于 2016-6-8 16:22
这种效果?

就是这样，有程序吗

1993063