多段线绘制同时取得坐标点

nyistjz · 发表于 2023-3-24 22:35:05

(setq pt1 (getpoint "\n指定起点:"))
(command "_.pline" pt1)
(while (setq pt2 (getpoint pt1))
(command pt2)
(princ (distance pt1 pt2))
(setq pt1 pt2)
)
(command)

sandyvs · 发表于 2023-3-25 10:03:39

请教下，按esc不会马上退出，需要按两次，怎么解决？

500w008 · 发表于 2023-3-29 06:54:25

提示: 作者被禁止或删除内容自动屏蔽

500w008 · 发表于 2023-3-29 06:55:35

提示: 作者被禁止或删除内容自动屏蔽

账号		自动登录	找回密码
密码			注册

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2023-3-29 06:54:25 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2023-3-29 06:55:35 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[源码] 多段线绘制同时取得坐标点