Question

autolisp编段程序用了修改直线段一个端点的坐标

autocad倒是会用,可是autolisp就不熟悉了.但是老师要求用autolisp来修改直线段一个端点的坐标.求高手解答.

Answer 1

(defun C:test ()
(setq line_obj_data(entget (car (entsel))))
(setq new_startpoint (getpoint "\n请输入起点坐标:"))
(setq new_endpoint (getpoint "\n请输入端点坐标:"))
(setq line_obj_data(subst(cons 10 new_startpoint)(assoc 10 line_obj_data)line_obj_data))
(setq line_obj_data(subst(cons 11 new_endpoint)(assoc 11 line_obj_data)line_obj_data))
(entmod line_obj_data)
(princ)
)