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

bios · 发表于 2004-2-25 15:13:00

上面是以前斑竹提供的关于求型心的Lsp
现在用的时候发现有问题
就是在求L型的一个东西的时候,比如是L钢,直转角.
求出来的型心和我用cad本身查的(把L型的画成面域,然后用查取面域的详细特性;有质心,都是匀质的东西就是型心吧)
这两个结构明显比较lsp得出的不对!
请斑竹帮忙看看!
谢谢了!!!

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

龙龙仔 · 发表于 2004-2-25 17:05:00

(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 · 发表于 2004-2-25 17:56:00

能否就是以前的那样,直接就对多段线围成的求型心呢
以前那种方式很习惯,但就是觉得它不准,有点问题

木春林 · 发表于 2004-6-22 09:34:00

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

龙龙仔 · 发表于 2004-6-24 12:26:00

;;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
)
;;输出: (( )(...)(...)....)

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

发表回复

精选推荐

浏览过的版块