在脚本中切片

drazzilb531 · 发表于 2022-7-5 22:32:33

我不熟悉AutoCAD和Lisp。我试图使用Lisp作为脚本在AutoCAD中生成3d对象。我想做的是：
创建圆柱体作为对象的基础
把它切成几片

听起来很简单，但我一直有一些问题。我在下面包含了一些代码：

(defun c:rb ()
   (command "cylinder" "0.000000,0.000000,-4.000000" "1" "8")
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.000000,1.000000,0.000000" "1.000000,-1.000000,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "1"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.923880,-2.031530,0.000000" "-0.076120,2.796897,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "2"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.707107,-0.292893,0.000000" "-0.292893,1.707107,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "3"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.382683,0.509666,0.000000" "-0.617317,1.338093,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "4"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.000000,1.000000,0.000000" "-1.000000,1.000000,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "5"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.617317,1.338093,0.000000" "-1.382683,0.509666,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "6"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.292893,1.707107,0.000000" "-1.707107,-0.292893,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "7"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.076120,2.796897,0.000000" "-1.923880,-2.031530,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "8"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "-1.000000,1.000000,0.000000" "-1.000000,-1.000000,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "9"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.076120,-2.796897,0.000000" "-1.923880,2.031530,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "10"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.292893,-1.707107,0.000000" "-1.707107,0.292893,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "11"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.617317,-1.338093,0.000000" "-1.382683,-0.509666,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "12"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.000000,-1.000000,0.000000" "-1.000000,-1.000000,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "13"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.382683,-0.509666,0.000000" "-0.617317,-1.338093,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "14"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.707107,0.292893,0.000000" "-0.292893,-1.707107,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "15"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.923880,2.031530,0.000000" "-0.076120,-2.796897,0.000000" "0.000000,0.000000,0.000000")
   (princ (getint "16"))
   (princ)
)

这将在圆柱体上创建一个尖端，使其看起来像铅笔。但是，我可以背靠背地运行多次（删除每次运行之间的剩余对象），并得到不同的结果。例如，有时它会返回一个错误，如“点不应在切片平面上”-当您选择要保留的2个新对象中的哪一个时，描述该点。另一次，它将完成，但对象没有按我预期的方式切片。我觉得这很奇怪。我不熟悉lisp或autocad的细节，但我很难想象这样一个简单的程序会做错什么。

有什么建议吗？

marko_ribar · 发表于 2022-7-5 22:59:14

是的，它创造了像铅笔一样的东西。。。它在我的上网本上运行良好，我只注释了我认为足够的行。。。您可以使用圆柱体和圆锥体实现几乎相同的效果，或者使用顶部有n边棱锥体的挤出n边多边形实现几乎相同的效果。。。

copy


(defun c:rb ()
   (command "cylinder" "0.000000,0.000000,-4.000000" "1" "8")
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.000000,1.000000,0.000000" "1.000000,-1.000000,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "1"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.923880,-2.031530,0.000000" "-0.076120,2.796897,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "2"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.707107,-0.292893,0.000000" "-0.292893,1.707107,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "3"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.382683,0.509666,0.000000" "-0.617317,1.338093,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "4"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.000000,1.000000,0.000000" "-1.000000,1.000000,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "5"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.617317,1.338093,0.000000" "-1.382683,0.509666,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "6"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.292893,1.707107,0.000000" "-1.707107,-0.292893,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "7"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.076120,2.796897,0.000000" "-1.923880,-2.031530,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "8"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "-1.000000,1.000000,0.000000" "-1.000000,-1.000000,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "9"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.076120,-2.796897,0.000000" "-1.923880,2.031530,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "10"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.292893,-1.707107,0.000000" "-1.707107,0.292893,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "11"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "0.617317,-1.338093,0.000000" "-1.382683,-0.509666,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "12"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.000000,-1.000000,0.000000" "-1.000000,-1.000000,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "13"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.382683,-0.509666,0.000000" "-0.617317,-1.338093,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "14"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.707107,0.292893,0.000000" "-0.292893,-1.707107,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "15"))
   (command "slice" "all" "" "3" "0.000000,0.000000,0.869287" "1.923880,2.031530,0.000000" "-0.076120,-2.796897,0.000000" "0.000000,0.000000,0.000000")
   ;(princ (getint "16"))
   (princ)
)