fengyu6913 发表于 2024-7-13 16:21:02

如何获得最近图元；如何获得矩形的第三角点？

情境：画完矩形后，想将该矩形存进 “ent” 里，再通过 “ent”得到矩形第三角点

(setq ent (..........)) ;;矩形在后续还有其他用途
.
.
.
(setq pt (get 矩形的第三角点....)

yshf 发表于 2024-7-13 17:54:45

(setq ent (entlast))
(setq ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) (entget ent))))
(setq pt (caddr ptb))

xxyyzzlg 发表于 2024-7-13 16:21:03

yshf 发表于 2024-7-13 17:54
(setq ent (entlast))
(setq ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) (entget en ...

感谢分享，刚好用的上

muai2010 发表于 2024-7-14 10:29:02

yshf 发表于 2024-7-13 17:54
(setq ent (entlast))
(setq ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) (entget en ...

只是对矩形有效，能否对圆，多段线这些也适用呢

fengyu6913 发表于 2024-7-16 09:49:21

yshf 发表于 2024-7-13 17:54
(setq ent (entlast))
(setq ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) (entget en ...

操作错了，是要把这条设为最佳的
页: [1]
查看完整版本: 如何获得最近图元；如何获得矩形的第三角点？