根据获取外形最大包围标注

梦想家-DING · 发表于 2022-9-20 16:47:12

本帖最后由梦想家-DING 于 2022-10-5 14:09 编辑

;;代码来源于明经 start4444
(defun c:tt5 (/ d p1 p2 p3 p4 px py)
(if (not DD) (setq DD 8))
(setq DD (if (setq D (getdist (strcat "\n输入标注间距<" (rtos DD 2 2) ">:"))) D DD) p1 (getpoint "\n起点:") p2 (getcorner p1 "\n终点:") p3 (list (car p2) (cadr p1)) p4 (list (car p1) (cadr p2)))
(cond
((and (> (car p2) (car p1)) (> (cadr p1) (cadr p2)) (setq py (polar p1 (* 0.5 pi) dd) px (polar p1 (* 1 pi) dd))))
((and (> (car p2) (car p1)) (< (cadr p1) (cadr p2)) (setq py (polar p1 (* 1.5 pi) dd) px (polar p1 (* 1 pi) dd))))
((and (< (car p2) (car p1)) (> (cadr p1) (cadr p2)) (setq py (polar p1 (* 0.5 pi) dd) px (polar p1 (* 0 pi) dd))))
((and (< (car p2) (car p1)) (< (cadr p1) (cadr p2)) (setq py (polar p1 (* 1.5 pi) dd) px (polar p1 (* 0 pi) dd))))
)
(command "DIMLINEAR" "non" p1 "non" p3 "non" py "DIMLINEAR" "non" p1 "non" p4 "non" px)
(princ)
)

各位前辈，怎样根据这个代码改成拉动一定距离（等于需放置的距离）后，框选图形标注最大外形。

实现像下图这样的效果

xj6019 · 发表于 2022-9-20 17:14:28

此帖仅作者可见

飞雪神光 · 发表于 2022-9-20 19:09:54

此帖仅作者可见

zhangkui9070 · 发表于 2022-9-20 22:38:22

此帖仅作者可见

梦想家-DING · 发表于 2022-9-21 09:02:09

此帖仅作者可见

梦想家-DING · 发表于 2022-9-21 12:26:45

此帖仅作者可见

飞雪神光 · 发表于 2022-9-21 12:35:41

此帖仅作者可见

梦想家-DING · 发表于 2022-9-21 12:53:30

此帖仅作者可见

宁静港湾 · 发表于 2022-9-22 08:35:37

此帖仅作者可见

cj52000 · 发表于 2022-9-22 08:58:15

此帖仅作者可见

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

[提问] 根据获取外形最大包围标注

xj6019 xj6019 当前离线积分 30196 明经币个注册时间 2019-11-19 在线时间小时威望金钱个贡献激情	发表于 2022-9-20 17:14:28 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

飞雪神光飞雪神光当前离线积分 15111 明经币个注册时间 2016-11-20 在线时间小时威望金钱个贡献激情	发表于 2022-9-20 19:09:54 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

zhangkui9070 zhangkui9070 当前离线积分 1252 明经币个注册时间 2020-7-5 在线时间小时威望金钱个贡献激情	发表于 2022-9-20 22:38:22 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

梦想家-DING 梦想家-DING 当前离线积分 1826 明经币个注册时间 2022-4-19 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2022-9-21 09:02:09 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

梦想家-DING 梦想家-DING 当前离线积分 1826 明经币个注册时间 2022-4-19 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2022-9-21 12:26:45 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

飞雪神光飞雪神光当前离线积分 15111 明经币个注册时间 2016-11-20 在线时间小时威望金钱个贡献激情	发表于 2022-9-21 12:35:41 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

梦想家-DING 梦想家-DING 当前离线积分 1826 明经币个注册时间 2022-4-19 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2022-9-21 12:53:30 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

宁静港湾宁静港湾当前离线积分 1876 明经币个注册时间 2019-4-1 在线时间小时威望金钱个贡献激情	发表于 2022-9-22 08:35:37 来自手机 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

cj52000 cj52000 当前离线积分 6165 明经币个注册时间 2006-3-29 在线时间小时威望金钱个贡献激情	发表于 2022-9-22 08:58:15 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡