关于斑竹提供的求型心的Lsp发现有问题?

bios

上面是以前斑竹提供的关于求型心的Lsp


现在用的时候发现有问题


就是在求L型的一个东西的时候,比如是L钢,直转角.


求出来的型心和我用cad本身查的(把L型的画成面域,然后用查取面域的详细特性;有质心,都是匀质的东西就是型心吧)


这两个结构明显比较lsp得出的不对!


请斑竹帮忙看看!


谢谢了!!!

龙龙仔

(defun C:CENTROID (/ HOLDOSMODE SS N CENT)
(setq HOLDOSMODE (getvar "osmode"))
(while (= SS NIL)
(prompt "\n選擇面域物件: ")
(setq SS (ssget '((0 . "REGION"))))
)
(setvar "osmode" 0)
(setq N 0)
(repeat (sslength SS)
(setq
CENT
(vlax-get (vlax-ename->vla-object (ssname SS N)) "centroid")
)
(prompt (strcat "\n質心=" (vl-princ-to-string CENT)))
(command "_.POINT" CENT)
(setq N (1+ N))
)
(setvar "osmode" HOLDOSMODE)
(princ)
)
(princ)

bios

能否就是以前的那样,直接就对多段线围成的求型心呢


以前那种方式很习惯,但就是觉得它不准,有点问题

木春林

能不能把面积、形心坐标（x         y)分别列出来形成一个表就好了。

龙龙仔

;;BY 龙龙仔(LUCAS)
(defun CEN_AREA (/ SS N CEN AREA LST)
(while (= SS NIL)
(prompt "\n选择面域物件: ")
(setq SS (ssget '((0 . "REGION"))))
)
(setq N 0)
(repeat (sslength SS)
(setq ENT (vlax-ename->vla-object (ssname SS N)))
(setq CEN (vlax-get ENT "centroid"))
(setq AREA (vlax-get ENT "AREA"))
(setq LST
(append LST
(list (list (ssname SS N) (car CEN) (cadr CEN) AREA))
)
)
(setq N (1+ N))
)
LST
)
;;输出: ((<图元名称> <X> <Y> <AREA>)(...)(...)....)