单一求面域形心,，并做标志

fuweihua

第一次发这样的贴，还望支持。

由于是第一次做，所对步骤比较烦琐，但是方式监视参数。呵呵。

(defun C:qxx()
  (setq en (entsel))
  (setq tma (car en))
  (setq tmb (vlax-ename->vla-object tma))
  (setq tmc (vla-get-centroid tmb))
  (setq tmd (vlax-variant-value tmc))
  (setq tme (vlax-safearray->list tmd))
  (command "point" tme)
  (princ "\n形心坐标为：")(princ tme))

李钊伟2012

假如需要批量，在前面写个循环，对于每一个多段线，进行后续操作，应该可以吗？

colatree

真好用，謝謝!

zhaozwf

出错，用不成

iceman8613

真不错，好用，谢谢   不会lisp跟少了根腿似的

zhaozwf

出错，“选择对象: Error: ActiveX 服务器返回错误: 未知名称: Centroid”

yshf

改为如下：

2. (defun C:qxx()
   
3.   (vl-load-com)
   
4.   (while (setq en (entsel))
   
5.      (setq tma (car en))
   
6.      (setq tmb (vlax-ename->vla-object tma))
   
7.      (if (vlax-property-available-p tmb 'centroid)
   
8.          (progn
   
9.              (setq tmc (vla-get-centroid tmb))
   
10.              (setq tmd (vlax-variant-value tmc))
    
11.              (setq tme (vlax-safearray->list tmd))
    
12.              (command "point" tme)
    
13.              (princ "\n形心坐标为：")(princ tme)
    
14.          )
    
15.          (princ "\n所选图元没有形心属性!")
    
16.      )
    
17.    )
    
18.    (princ)
    
19. )
    

(defun C:qxx()<br />   (vl-load-com)<br />   (while (setq en (entsel)) <br />      (setq tma (car en))<br />      (setq tmb (vlax-ename->vla-object tma))<br />      (if (vlax-property-available-p tmb 'centroid)<br />          (progn<br />              (setq tmc (vla-get-centroid tmb))<br />              (setq tmd (vlax-variant-value tmc))<br />              (setq tme (vlax-safearray->list tmd))<br />              (command "point" tme)<br />              (princ "\n形心坐标为：")(princ tme)<br />          )<br />          (princ "\n所选图元没有形心属性!")<br />      )<br />    )<br />    (princ)<br /> )<br />

cxs259

修改后，非常好用！能否把质心标志用十字交叉线标在图形上，谢谢

zyhandw

十字交叉线？变一下点样式就行了！
在(vl-load-com)这一行后面加一句(setvar "pdmode" 3)就行了！

cxs259

惭愧，谢谢！

梁智泓

能求多个多边形，共同的形心吗