- (defun c:zzx(/)
- (vl-load-com)
- (setvar "cmdecho" 0)
- (setvar "pdmode" 3)
- (setq ss (entsel "/n 请选取多段线"))
- (command "_region" ss "")
- (setq ss (vlax-ename->vla-object(car(entsel "请选取刚才的面域"))))
- (setq sa (vla-get-centroid ss))
- (setq sb (vlax-variant-value sa))
- (setq sc (vlax-safearray->list sb))
- (command "point" sc)
- )
写了一段可以输出质心的代码,但是现在遇到一个问题,输出的点的坐标(图1)与获取到的质心的坐标(图2)不一致,麻烦各位大佬指点一下,看看是哪里出了问题。
|