Mr章:
lisp里用command调用CAD球体命令:sphere(command"sphere"球心坐标半径)比如你的大量坐标和直径格式是:x,y,z,r则:(command"sphere"(xyz)r)。如果量大的话可以做成表,然后用Foreach循环表中内容:(setqmyball((x1y1z1d1)(x2y2z2d2)(x3y3z3D3)……(xnynzndn))(Foreachloopetmyball(setqmysite(reverse(CDR(reversemyball))));除去表中....