[求助]：求助：[0112]怎样求出封闭区间(LWPOLYLINE)内的形心座标点呢?

xyz518mm · 发表于 2006-1-12 16:25:38

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

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

×

求助：[0112]怎样求出封闭区间(LWPOLYLINE)内的形心座标点呢?
我想再一个由(LWPOLYLINE)所形成的
封闭空间中,找出它的形心座标点?
请问该怎样做才可以完成呢?

烦请帮忙解答
谢谢~

taner · 发表于 2006-1-12 16:46:47

最初由 xyz518mm 发布
[B]求助：[0112]怎样求出封闭区间(LWPOLYLINE)内的形心座标点呢?
我想再一个由(LWPOLYLINE)所形成的
封闭空间中,找出它的形心座标点?
请问该怎样做才可以完成呢?

烦请帮忙解答
谢谢~ [/B]

几何知识忘记了,解释一下形心的定义吧!

下面的程序,不记得是哪里找的了.不知道合你意否?

[FONT=courier new]
(defun centroid (poly / pl ms va reg cen)
(setq pl (vlax-ename->vla-object poly)
ms (vla-get-modelspace (vla-get-activedocument
(vlax-get-acad-object)
)
)
va (vlax-make-safearray vlax-vbobject '(0 . 0))
)
(vlax-safearray-put-element va 0 pl)
(setqreg (car (vlax-safearray->list (vlax-variant-value
(vla-addregion ms va)
)
)
) cen (vla-get-centroid reg)
)
(vla-delete reg)
(vlax-safearray->list (vlax-variant-value cen))
)
[/FONT]

xyz518mm · 发表于 2006-1-12 18:53:08

谢谢各位的解答
另请教该怎样修改此程序为可以
判断选取的图元是否为 (0 . "REGION") 面域
若不是则加以转换呢?

(defun c:selobj()
(vl-load-com)
(setq en (car (entsel "\nSelect object:")))
(setq xobj (vlax-ename->vla-object en))
(vlax-dump-object xobj)
(setq ptlist (vla-get-Centroid xobj))
(setq ptms (vlax-safearray->list (variant-value ptlist)))
(command "CIRCLE" ptms "10")
(setq a (strcat "X=" (rtos (car ptms) 2 4))
b (strcat "Y=" (rtos (cadr ptms) 2 4))
)
(setq txt (strcat a "," b))
(command "text" "j" "tl" ptms "15" "0" txt)
)

xyp1964 · 发表于 2006-1-12 19:02:46

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20051230 (1873)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:test ()
(CMDLA0)
(mkla "形心座标" 3)
(if (setq pt (zxd))
(xyp-zb pt)
)
(CMDLA1)
)[/FONT]

tctabc · 发表于 2006-1-12 19:23:57

请教有不带使用自设函数的用法吗

xyp1964 · 发表于 2006-1-12 19:32:35

命令：xxzb (形心座标)

xyz518mm · 发表于 2006-1-12 22:38:57

谢谢版主的提供

tctabc · 发表于 2006-1-13 08:33:07

最初由 xyz518mm 发布
[B]谢谢各位的解答
另请教该怎样修改此程序为可以
判断选取的图元是否为 (0 . "REGION") 面域
若不是则加以转换呢?

(defun c:selobj()
(vl-load-com)
(setq en (car (entsel "\nSelect object:")))
(setq xobj... [/B]

.

请问有人知道关于
"判断选取的图元是否为 (0 . "REGION") 面域"
这该怎样在程序中撰写呢?

taner · 发表于 2006-1-13 08:46:06

(if (= (cdr(assoc 0 (entget(entsel))) "region")
........
)

tjchkys · 发表于 2006-1-13 09:34:26

XXzb 这个程序对于那种刀把的注记还是不正确，形心选取在了外面，这个问题不知道能不能解决？

tctabc · 发表于 2006-1-13 10:24:09

确实楼上所说
还以为这是正常的呢?

xyp1964 · 发表于 2006-1-13 12:05:52

最初由 tjchkys 发布
[B]XXzb 这个程序对于那种刀把的注记还是不正确，形心选取在了外面，这个问题不知道能不能解决？ [/B]

确切的应该称之为“质心”。

tctabc · 发表于 2006-1-18 12:39:49

最初由 taner 发布
[B](if (= (cdr(assoc 0 (entget(entsel))) "region")
........
) [/B]

可以详细解释一下吗
好像不能用说

xyz518mm · 发表于 2006-1-19 16:22:43

(DEFUN C:TEST()
   (VL-LOAD-COM)
   (SETQ ACADOBJECT (VLAX-GET-ACAD-OBJECT)
ACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT ACADOBJECT)
MSPACE    (VLA-GET-MODELSPACE ACADDOCUMENT)
   )
   (SETQ SS(ENTGET(CAR(ENTSEL))))
   (IF(/= "REGION" (CDR (ASSOC 0 SS)))
(PROGN
(SETQ SSVLOBJ(VLAX-SAFEARRAY-FILL (VLAX-MAKE-SAFEARRAY VLAX-VBOBJECT '(0 . 0) )
      (LIST(VLAX-ENAME->VLA-OBJECT (CDAR SS)))))
(SETQ SS-REG(CAR(SAFEARRAY-VALUE(VARIANT-VALUE(VLA-ADDREGION MSPACE SSVLOBJ)))))
)
(SETQ SS-REG(VLAX-ENAME->VLA-OBJECT SS))
  )
   ;;到此变量SS-REG为面域
   )
我看到這可以求出的程序

但另在请问如果现在求出的形心座标点要用line连线到这封闭区间的4各顶点

其4各顶点各为距离形心最远的4段距离顶点

且不可以碰到封闭空间的线段

该怎样处理这程序呢?

烦请各位帮忙解答一下

谢谢~

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

[求助] [求助]：求助：[0112]怎样求出封闭区间(LWPOLYLINE)内的形心座标点呢?

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

相关帖子

Re: [求助]：求助：[0112]怎样求出封闭区间(LWPOLYLINE)内的形心座标点呢?