(MML)创建放样线

;;说明:创建放样线
(defun c:mml(/ n p pt ss)
    (if (and (princ "\n请框选放置点：") (setq ss (ssget '((0 . "POINT")))) (setq pt (getpoint "\n请指定第二点Y轴坐标位置：")))
        (progn
            (setq n -1)
            (while (setq p (ssname ss (setq n (1+ n))))
                (setq p (cdr (assoc 10 (entget p))))
                (entmake (list '(0 . "LINE") (cons 10 p) (cons 11 (list (car p) (cadr pt)))))
            )
            (command "ERASE" ss "")
        )
    )
    (prin1)
)