[原创]：中心线程序（源码）

xyp1964 · 发表于 2004-12-15 19:35:20

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

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

×

对圆、多边形、椭圆……等封闭区域，求中心点或线。
加载zxx.lsp，运行zxx（中心线）。
2004年12月14日 13:02 原始版
2004年12月15日, 13:06:18 增加中心线长度控制
2004年12月17日, 22:08:32 增加注释，公布源码
2004.12.23 强制画线，增加回退控制－（98）
2005.01.17 收币－（161）

xyp1964 · 发表于 2004-12-15 19:38:08

程序示意：

zxcvbnm-cad · 发表于 2004-12-16 10:27:18

楼主有问题
如二个图形相交就选不到中心

xyp1964 · 发表于 2004-12-16 13:46:57

最初由 zxcvbnm-cad 发布
[B]楼主有问题
如二个图形相交就选不到中心 [/B]

楼主没有问题！

本程序实际是求面域的中心点。
核心函数：vla-get-Centroid
[php]
vla-get-Centroid 函数
功能
取得面域或实体的面积或质量的中点。
语法及参数
(vla-get-Centroid Object)
Object  3DSolid, Region
  这个属性适用的对象。
Centroid 变体（双精度的二元素数组）；只读
  表示质心的2D坐标
说明
质心以定义为变体的X及Y坐标值返回。
范例
(defun Example_Centroid()
;;; 这个范例在模型空间中建立一个长方体
;;; 接着返回长方体的质心
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)
      AcadDocument(vla-get-ActiveDocument AcadObject)
      mSpace(vla-get-ModelSpace AcadDocument)
  );;; 定义长方体
  (setq center(vlax-make-safearray vlax-vbDouble'(0 . 2)))
  (vlax-safearray-fill center'(50 50 0))
  (setq height 100)
  (setq long 50)
  (setq width 70)
;;; 在模型空间中建立长方体 (3DSolid)对象
  (setq BoxObj(vla-AddBox mSpace center long width height))
;;; 改变视口的观测方向以看清长方体
  (setq NewDirection(vlax-3d-point (list -1 -1 1)))
  (setq ActiveViewportSel(vla-get-ActiveViewport AcadDocument))  (vla-put-direction ActiveViewportSel NewDirection)
  (vla-put-ActiveViewport AcadDocument (vla-get-ActiveViewport AcadDocument))
  (vla-ZoomExtents AcadObject)
;;; 返回长方体的质心
  (setq Centriod(vla-get-Centroid BoxObj))
  (princ "矩形体的Centriod（质心）是:")
  (princ (vlax-safearray-get-element (vlax-variant-value Centriod) 0))(princ ",")
  (princ (vlax-safearray-get-element (vlax-variant-value Centriod) 1))(princ ",")
  (princ (vlax-safearray-get-element (vlax-variant-value Centriod) 2))(princ " Centriod范例")
  (princ)
)
[/php]

zxcvbnm-cad · 发表于 2004-12-16 14:04:33

请教如何使用

zh_6531394 · 发表于 2004-12-16 14:30:39

楼上的,j加载后," zxx",,就行了

ss1025 · 发表于 2004-12-17 14:11:10

这个程序挺不错，尤其我在做桩位图的时候常用。谢了。

JJBMW · 发表于 2004-12-17 16:10:59

谢了,省的话中心线了!

bargain · 发表于 2004-12-17 16:26:01

不错不错下来试试

zxcvbnm-cad · 发表于 2004-12-17 17:26:06

请问XYP1964
4楼的怎么用
能详细说一下吗

xyp1964 · 发表于 2004-12-17 18:16:16

最初由 zxcvbnm-cad 发布
[B]请问XYP1964
4楼的怎么用
能详细说一下吗 [/B]

1楼的程序核心就是此函数的具体应用。
待会儿公布程序源码如何？

xiaping · 发表于 2004-12-17 21:33:23

楼主：等待你的源码学习。学习。

xyp1964 · 发表于 2004-12-17 22:06:17

公布源码，请不吝赐教！
加载zxx.lsp，运行zxx。
程序在1楼

lcb9018 · 发表于 2004-12-18 22:47:01

我想问下这个程序有版本限制吗，偶的是CAD2004能用吗？

xyp1964 · 发表于 2004-12-18 22:54:01

最初由 lcb9018 发布
[B]我想问下这个程序有版本限制吗，偶的是CAD2004能用吗？ [/B]

难道不能花点时间试试？

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

[原创]：中心线程序（源码）

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

相关帖子