乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 8|回复: 0

[编程交流] LISP: how to detect mesh and 3

[复制链接]

31

主题

106

帖子

76

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
154
发表于 2022-7-5 20:06:06 | 显示全部楼层 |阅读模式
Hello.
I have two questions:
 
1) A rulled surface has this property:
  1. ((-1 . ) (0 . "POLYLINE") (330 . ) (5 . "E7A4") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "MESH") (100 . "AcDbPolygonMesh") (66 . 1) (10 0.0 0.0 0.0) (70 . 16) ... )[0] (-1 . )[1] (0 . "POLYLINE")[2] (330 . )[3] (5 . "E7A4")[4] (100 . "AcDbEntity")[5] (67 . 0)[6] (410 . "Model")[7] (8 . "MESH")[8] (100 . "AcDbPolygonMesh")[9] (66 . 1)[10] (10 0.0 0.0 0.0)[11] (70 . 16)[12] (40 . 0.0)[13] (41 . 0.0)[14] (210 0.0 0.0 1.0)[15] (71 . 2)[16] (72 . 13)[17] (73 . 0)[18] (74 . 0)[19] (75 . 0)
How do I detect if user selected object is indeed AcDbPolygonMesh?
  1. (print (assoc 100 (ENTGET (CAR (ENTSEL)))))
returns
  1. (100 . "AcDbEntity")
2) When exploded rulled surface splits into 3dfaces:
  1. ((-1 . ) (0 . "3DFACE") (330 . ) (5 . "E3A3") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "MESH") (100 . "AcDbFace") (10 89.7284 285.885 36.8229) (11 89.5724 285.624 36.8372) (12 89.1476 289.961 -9.4...[0] (-1 . )[1] (0 . "3DFACE")[2] (330 . )[3] (5 . "E3A3")[4] (100 . "AcDbEntity")[5] (67 . 0)[6] (410 . "Model")[7] (8 . "MESH")[8] (100 . "AcDbFace")[9] (10 89.7284 285.885 36.8229)[10] (11 89.5724 285.624 36.8372)[11] (12 89.1476 289.961 -9.45313)[12] (13 90.397 290.068 -9.11998)[13] (70 . 0)
Is there a way get these 3dface's objects (coordinates with assoc 10,11,12 and 13) from rulled surface object without exploding it?
 
Thank you.
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 08:54 , Processed in 0.674345 second(s), 54 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表