Lisp例程控制秒
你好我使用剖面（SPLANE）分割点云。
基于键盘的命令越多越好。
要创建剖面，我可以选择云，然后键入-
单字输入O输入T输入
这将创建一个与WCS正交的剖面，该剖面在云中俯视。（我使用LayDirectorV1-9.lsp强制剖面进入层A-section-plane，不管我的当前层是什么）。
如果我想向上或向下移动剖面，或交换到某个厚度的切片，我必须进行各种鼠标单击，并在功能区中拖动或单击。
我希望能够使用键盘/lisp命令执行这些二次调整。
目前，我有前面提到的SPLANE和系统变量SECTIONSPINNERS，它显示了一个对话框，用于在“截面平面”功能区上下文选项卡中设置截面对象偏移和截面厚度控件的增量值。剖面是具有xyz几何体和其他特性的对象，示例如下-
示例平面-
Command: LIST
Select objects: 1 found
Select objects:
SECTIONOBJECTLayer: "A-section-plane"
Space: Model space
Handle = 1000057c
Name: Section Plane (1)
Type: Plane
Insertion:X= 20.731,Y=720.556,Z= 26.648
Rotation: 42.064513
Normal:X= 0.000,Y= 0.000,Z= -1.000
Top Plane: 16.825
Bottom Plane: 16.825
Point at:X= 20.731,Y=720.556,Z= 26.648
Point at:X= 42.726,Y=740.405,Z= 26.648https://www.cadtutor.net/forum/uploads/monthly_2022_03/Plane-Properties.JPG.2f3c9a2be1c5f85cc48a7bedc4be076a.JPG
示例切片-
Command: LIST
Select objects: 1 found
Select objects:
SECTIONOBJECTLayer: "A-section-plane"
Space: Model space
Handle = 1000057c
Name: Section Plane (1)
Type: Slice
Insertion:X= 20.731,Y=720.556,Z= 26.648
Rotation: 42.064513
Normal:X= 0.000,Y= 0.000,Z= -1.000
Top Plane: 16.825
Bottom Plane: 16.825
Angle A: 0.000000
Angle B: 0.000000
Point at:X= 20.731,Y=720.556,Z= 26.648
Point at:X= 42.726,Y=740.405,Z= 26.648
Point at:X= 42.726,Y=740.405,Z= 25.491
Point at:X= 20.731,Y=720.556,Z= 25.491
我的目标是能够创建一个剖面，然后使用lisp例程从键盘控制它的位置，该例程可以通过反复按/s键来移动剖面或以增量向下移动，以及类似的切片厚度控制。但我不知道如何提取这些信息并在Lisp中进行操作。
感谢任何帮助/知识。
谢谢
昆廷。
页:
[1]