Question

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

Answer 1

lisp里用command调用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均可用实际数值替换