已知大量坐标和直径,请问如何以用autocad 的lisp 以坐标为球心批量画...
发布网友
发布时间：2024-09-17 05:23
共1个回答
热心网友
时间：6小时前
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均可用实际数值替换
