(defun c:wdbz (/)     (prompt "n 弯道标注程序加载成功") ;;;     选取对象     (setq en1 (entsel "n 请…