[求助]：这个矩形的中心点怎么追踪到

SGP007 · 发表于 2005-3-31 09:30:45

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

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

×

如下图，倾斜任意角度的矩形，怎么才能追踪到中心点。

xcool · 发表于 2005-3-31 09:41:00

好像没什么办法

xiaotang · 发表于 2005-3-31 09:43:28

与水平矩形一样，先捕捉任意边的中点，然后晃动到垂直边的中点，当捕捉点变为垂足时，就是矩形的中点了

SGP007 · 发表于 2005-3-31 09:51:39

是啊，怎么就没想到垂足呢？非常感谢xiaotang

xcool · 发表于 2005-3-31 09:54:16

高，实在是高

wshtc · 发表于 2005-3-31 12:02:50

厉害

sdwy19691229 · 发表于 2005-3-31 13:03:02

捕捉两点间的虚拟中点
         ;这是一个透明命令,请在AUTOCAD要求捕捉点时,键入(Lm)即
         可使用来捕捉一个你输入的任意两点之间虚拟线段的中点.
(defun LM(/ os or p1 p2 L1 ang p3)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 53)
(setq or (getvar "orthomode"))
(setvar "orthomode" 0)
(setq p1 (getpoint "\n请输入第一点:"))
(if (/= p1 nil)(progn
(setq p2 (getpoint p1 "\n请输入第二点:"))
(if (/= p2 nil)(progn
(setq L1 (distance p1 p2))
(setq ang (angle p1 p2))
(setq p3  (polar p1 ang (/ L1 2)))
(setvar "osmode" 0)
(command p3)
)) ))
(setvar "osmode" os)
(setvar "orthomode" or)
(print)
)

SGP007 · 发表于 2005-4-1 09:27:37

7楼的，你的程序我试了，可是却提示我点无效。不知道哪里出错了。还有能不能把osmode改成55加上中点。你这个程序确实方便，用到R14中又可以弥补一些，可惜现在不能用

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

[求助]：这个矩形的中心点怎么追踪到

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

相关帖子