明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2042|回复: 4

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

[复制链接]
发表于 2004-2-25 15:13:00 | 显示全部楼层 |阅读模式



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


现在用的时候发现有问题


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


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


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


请斑竹帮忙看看!


谢谢了!!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 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)
 楼主| 发表于 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
)
;;输出: ((<图元名称> <X> <Y> <AREA>)(...)(...)....)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 11:21 , Processed in 0.173295 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表