[原创]：为中央分隔带开口并圆角的小程序！

倚夕扇雪

自己编的，请高手指教。谢谢！
;为中央分隔带圆角。
(defun c:yj()
  (setq dot1 (getpoint "选择第一个点" ))
  (setq dot2 (getpoint dot1 "\n选择第二个点" ))
  (setq dot3 (getpoint dot1 "\n选择断开点"))
  (setq line1 (entsel "\n请选择第一根线(若不选则线不断)"));;entsel函数一般为选择线形实体！
  (setq line2 (entsel "\n请选择第二根线(若不选则线不断)"))
  (setq dist (getdist "\n请您输入中央分隔带圆角半径:(1)"))
  (if (= dist nil)
  (setq dist "1"));;为dist值设置了一个默认值。(1)
  (vl-cmdf "ELLIPSE" dot1 dot2 dist)
  (setq el (entlast));;entlast函数为获得最后一个生成的图元的名称。
  (vl-cmdf "break" el "f" dot1 dot2)
  (vl-cmdf "break" line1 "f" dot1 dot3)
  (vl-cmdf "break" line2 "f" dot2 dot3)
  (prompt "\n此命令的椭圆半径默认值为1，若不够可在zhao.lsp文件中修改")
  (princ);;用(prompt "xxxxx")(princ)此格式函数，只显示一行，美观！
  )

saltxf

不明白，能否提供它的具体用处，或用FLASH示意。

倚夕扇雪

这个是在我编辑道路平面图时构思的，道路是有中央分隔带的，遇到交叉口会断开，所以用此程序会方便点，不过，可能还不完美。具体操作是，有两条平行或近似平行的线条，让他们在某一界面断开并打上中央分隔带的圆角弧。