用LISP获得region的型心

XDSoft · 发表于 2013-5-13 22:30:17

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

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

×

问：Polyline转换成region后，可以通过MASSPROP获得信息，使用系统变量PERIMETER,AREA得到周长和面积，但是没有型心，如何用LISP程序获得region的型心？

答：

使用ActiveX 接口获得region的型心，看下面代码演示。

[sell=5]
[pcode=lisp,true](defun GetCentroid ()
(vl-load-com)
(setq anEnt (entsel "\nSelect A Region: "))
(if anEnt
(progn
   (setq anObj (vlax-ename->vla-object (car anEnt)))
   (princ (strcat "\nObject Name: " (setq objName (vla-Get-ObjectName
anObj))))
   (if (equal objName "AcDbRegion")
      (progn
      (setq vCentroid (vla-Get-Centroid anObj))
      (setq strCentroidProp (vl-princ-to-string (setq CentroidLst
(vlax-safearray->list (vlax-variant-value vCentroid)))))
      (if (< (length CentroidLst) 3)
         (setq CentroidLst (append CentroidLst (list 0.0)))
      )
      (princ (strcat "\nRegion Centroid: " strCentroidProp))
      (setvar "PDMODE" 3)
      (setq *MS* (vla-Get-ModelSpace (setq acadDoc
(vla-Get-ActiveDocument (setq acadApp (vlax-get-acad-object))))))
      (setq ptObj (vla-AddPoint *MS* (vlax-3d-Point CentroidLst)))]
      (vla-Put-Color ptObj acYellow)
      )
      (princ "\nRegion was not selected !")
   )
)
)
(princ)
)

(princ "\nGetCentroid loaded, type (GetCentroid) to run.")
(princ)]
[/pcode]
[/sell]

/db_自贡黄明儒_ · 发表于 2013-5-14 08:23:53

我原来认为,只有highflybir才能写出这样的程序。江山代有才人出...

fkyourmather · 发表于 2013-5-14 09:02:59

/db_自贡黄明儒_ 发表于 2013-5-14 08:23
我原来认为,只有highflybir才能写出这样的程序。江山代有才人出...

老大，他是我门的群主！！

PLgis · 发表于 2013-5-14 11:02:41

不知XDCAD回购D豆做什么？
不是舍不得，而是浪费时间

XDSoft · 发表于 2013-5-14 11:29:19

PLgis 发表于 2013-5-14 11:02
不知XDCAD回购D豆做什么？
不是舍不得，而是浪费时间

想想你就会通的。

fkyourmather · 发表于 2013-5-14 11:52:44

嗯D 豆子的作用就刺激论坛活跃度

王子 · 发表于 2018-5-24 10:00:52

型心一直再找怎么求。

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

[你问我答] 用LISP获得region的型心

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

评分

相关帖子