简单取得矩形中点

kwok · 发表于 2013-4-21 12:28:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想弄个选中矩形就向内偏移的，
acet-ent-geomextents这个怎么用？说它可以取得矩形的角点
请指点一下,谢谢
我弄了一个，说请求错误

(defun C:tt( / ee pts p1 p2  pt)
(setq ee (entsel "\n选择线向内偏移<2.5>: ")
      pts (acet-ent-geomextents ee)
      p1 (car(entget pts))
      p2 (car(entget pts))
      pt (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2))
)
(command "offset" 2.5 ee pt "") ;;;内侧
  (princ)
)

ScmTools · 发表于 2013-4-21 13:39:20

简单的方法就是取两对角除2

Free-Lancer · 发表于 2013-4-21 15:48:22

(setq sp (vlax-curve-getstartpoint pl))
(setq p3 (vlax-curve-getpointatparam pl 2))
(setq pmd (polar sp (angle sp p3) (* (distance sp p3) 0.5)))

kwok · 发表于 2013-4-21 16:56:29

Free-Lancer 发表于 2013-4-21 15:48

登录/注册后可看大图

(setq sp (vlax-curve-getstartpoint pl))
(setq p3 (vlax-curve-getpointatparam pl 2))
(setq pmd (pol ...

谢谢! 又学了一个，本来以来这个只能取得线的起点和终点，原来矩形也行

xtdwynij · 发表于 2013-4-28 14:57:08

不错。又学到一点啦！

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

[求助] 简单取得矩形中点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评