autolisp编段程序用了修改直线段一个端点的坐标
答案:2 悬赏:20 手机版
解决时间 2021-02-22 05:26
- 提问者网友：做自己de王妃
- 2021-02-21 12:25
autocad倒是会用,可是autolisp就不熟悉了.但是老师要求用autolisp来修改直线段一个端点的坐标.求高手解答.
最佳答案
- 五星知识达人网友：等灯
- 2021-02-21 14:04
(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)
)
(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)
)
全部回答
- 1楼网友：走死在岁月里
- 2021-02-21 14:18
支持一下感觉挺不错的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯