明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2139|回复: 6

将非直角四边形转化成直角矩形

[复制链接]
发表于 2013-3-11 22:17 | 显示全部楼层 |阅读模式
如题,如图要求:点击任意一条边,转化成被该四边形包围的最大矩形


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2013-3-11 23:35 | 显示全部楼层
本帖最后由 阿然 于 2013-3-11 23:43 编辑

试一试
  1. (defun c:tt (/ BASEPT BBOX ENT MAXPT MINPT PT1 PT2 PTLST SEG TMPENT X)(vl-load-com)
  2.   (if (and (setq ent (entsel "\n选择四边形:"))
  3.            (setq basept (osnap (cadr ent) "_nea"))
  4.            (setq ent (car ent))
  5.       )
  6.     (progn      (setq ptlst
  7.              (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget ent))
  8.       )
  9.       (setq ptlst (mapcar '(lambda (x) (append (cdr x) (list 0.)))
  10.                           (append ptlst (list (car ptlst)))
  11.                   )
  12.       )
  13.       (setq seg (fix (vlax-curve-getparamatpoint ent basept)))
  14.       (setq pt1 (nth seg ptlst))
  15.       (setq pt2 (nth (1+ seg) ptlst))
  16.       (setq
  17.         tmpent (vlax-invoke-method (vlax-ename->vla-object ent) 'copy)
  18.       )
  19.       (vlax-invoke-method
  20.         tmpent
  21.         'Rotate
  22.         (vlax-3d-point pt1)
  23.         (* -1 (angle pt1 pt2))
  24.       )
  25.       (vlax-invoke-method tmpent 'GetBoundingBox 'minpt 'maxpt)
  26.       (setq minpt (vlax-safearray->list minpt)
  27.             maxpt (vlax-safearray->list maxpt)
  28.       )
  29.       (command "_rectang" "_non" minpt "_non" maxpt)
  30.       (setq bbox (entlast))
  31.       (vlax-invoke-method
  32.         (vlax-ename->vla-object bbox)
  33.         'Rotate
  34.         (vlax-3d-point pt1)
  35.         (angle pt1 pt2)
  36.       )
  37.       (vla-erase tmpent)
  38.       (princ)
  39.     )
  40.   )
  41. )

可以不局限边数


点评

阿然理解错误!我要求的是不规则多边形包围矩形  发表于 2013-3-12 13:03
发表于 2013-3-12 10:10 | 显示全部楼层
阿然 发表于 2013-3-11 23:35
试一试

可以不局限边数

可以修改成打散的不规则四边形或多边形吗?谢谢!
发表于 2013-3-12 14:46 | 显示全部楼层
哦,是我看错题目了,我再想想
发表于 2013-3-15 00:29 | 显示全部楼层
围观围观围观围观
发表于 2018-8-21 19:52 | 显示全部楼层
狂顶
用力顶
我用力顶
我很用力顶
再加上千斤顶
总之把它顶到顶
发表于 2018-8-22 08:06 | 显示全部楼层
围观围观围观围观
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 23:11 , Processed in 0.451425 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表