lisp批量生成轴线_已知大量坐标和直径，请问如何以用autocad 的lisp 以坐标为球心批量画球...

展开全部

lisp里用62616964757a686964616fe59b9ee7ad9431333363383432command调用CAD球体命令：sphere

(command "sphere" 球心坐标 半径)

比如你的大量坐标和直径格式是：X,Y,Z,R

则：

(command "sphere" (X Y Z) R)。

如果量大的话可以做成表，然后用foreach循环表中内容：(setq myBALL ((X1 Y1 Z1 D1)(X2 Y2 Z2 D2)(X3 Y3 Z3 D3)……(Xn Yn Zn Dn))

(foreach loopEt myBALL

(setq mySite (reverse(cdr(reverse myBALL))));除去表中最后一个元素(除去半径获得坐标)，

(setq myR (/(cadddr myBALL)2));获得直径后除以2得到半径

(command "sphere" mySite myR);调用sphere绘制球体

)

;;;循环次数会根据表中X Y Z R的组数自动改变，比如本循环是读取(X1 Y1 Z1 D1)，执行到command结束后，

;;;自动调取(X2 Y2 Z2 D2)，之后是(X3 Y3 Z3 D3)……

myBALL表中的X Y Z R均可用实际数值替换