嘿，伙计们，我试着做一个lisp来自动完成一系列的步骤，来计算两个表面之间的体积。
这些曲面是从TriangV0.6.7 lisp生成的，它们的外部边界是在XSHAPE命令的帮助下生成的，x shape命令也是同一lisp的一部分。
我附上了一个文件，其中显示了我获得这样一个卷的步骤。我还附上了我能够自动化的东西，但它仍然缺少很多，老实说，这是我对lisp的所有理解。
如果您能帮我完全自动化，我将不胜感激。
- (defun C:volumen( / upsurf lowsurf upborder lowborder)
- (PROMPT "UPPER SURFACE")
- (setq upsurf (ssget))
- (PROMPT "LOWER SURFACE")
- (setq lowsurf (ssget))
- (setq upborder (entsel "\nUpper surface border: "))
- (setq lowborder (entsel "\nLower surface border: "))
- (command "_copy" upsurf "" "_D" "0,0,-500")
- (command "_copy" lowsurf "" "_D" "0,0,500")
- (command "_move" upborder lowborder "" "_D" "0,0,-1000")
- (command "_extrude" "_MO" "_SU" upborder lowborder "" "2000")
- (command "_selectsimilar" upsurf "") ; (I can't use another command after selecting here)
- (princ)
- )
本帖以下内容被隐藏保护；需要你回复后，才能看到！ 游客，如果您要查看本帖隐藏内容请 回复 | 
置顶卡
