乐筑天下

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

[综合讨论] Lisp例程控制秒

[复制链接]

2

主题

8

帖子

11

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 23:02:52 | 显示全部楼层 |阅读模式
你好
 
我使用剖面(SPLANE)分割点云。
 
基于键盘的命令越多越好。
 
要创建剖面,我可以选择云,然后键入-
 
单字输入O输入T输入
 
这将创建一个与WCS正交的剖面,该剖面在云中俯视。(我使用LayDirectorV1-9.lsp强制剖面进入层A-section-plane,不管我的当前层是什么)。
 
如果我想向上或向下移动剖面,或交换到某个厚度的切片,我必须进行各种鼠标单击,并在功能区中拖动或单击。
 
我希望能够使用键盘/lisp命令执行这些二次调整。
 
目前,我有前面提到的SPLANE和系统变量SECTIONSPINNERS,它显示了一个对话框,用于在“截面平面”功能区上下文选项卡中设置截面对象偏移和截面厚度控件的增量值。剖面是具有xyz几何体和其他特性的对象,示例如下-
 
示例平面-
  1. Command: LIST
  2. Select objects: 1 found
  3. Select objects:
  4.                   SECTIONOBJECT  Layer: "A-section-plane"
  5.                             Space: Model space
  6.                    Handle = 1000057c
  7. Name: Section Plane (1)
  8. Type: Plane
  9. Insertion:  X=   20.731,  Y=  720.556,  Z=   26.648
  10. Rotation: 42.064513
  11. Normal:  X=    0.000,  Y=    0.000,  Z=   -1.000
  12. Top Plane:    16.825
  13. Bottom Plane:    16.825
  14. Point at:  X=   20.731,  Y=  720.556,  Z=   26.648
  15. Point at:  X=   42.726,  Y=  740.405,  Z=   26.648

                               
登录/注册后可看大图

 
示例切片-
  1. Command: LIST
  2. Select objects: 1 found
  3. Select objects:
  4.                   SECTIONOBJECT  Layer: "A-section-plane"
  5.                             Space: Model space
  6.                    Handle = 1000057c
  7. Name: Section Plane (1)
  8. Type: Slice
  9. Insertion:  X=   20.731,  Y=  720.556,  Z=   26.648
  10. Rotation: 42.064513
  11. Normal:  X=    0.000,  Y=    0.000,  Z=   -1.000
  12. Top Plane:    16.825
  13. Bottom Plane:    16.825
  14. Angle A: 0.000000
  15. Angle B: 0.000000
  16. Point at:  X=   20.731,  Y=  720.556,  Z=   26.648
  17. Point at:  X=   42.726,  Y=  740.405,  Z=   26.648
  18. Point at:  X=   42.726,  Y=  740.405,  Z=   25.491
  19. Point at:  X=   20.731,  Y=  720.556,  Z=   25.491
000308x3t4qc7c24472u22.jpg
 
我的目标是能够创建一个剖面,然后使用lisp例程从键盘控制它的位置,该例程可以通过反复按/s键来移动剖面或以增量向下移动,以及类似的切片厚度控制。但我不知道如何提取这些信息并在Lisp中进行操作。
 
感谢任何帮助/知识。
谢谢
昆廷。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 10:41 , Processed in 0.706044 second(s), 68 queries .

© 2020-2025 乐筑天下

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