以下代码仅供参考
(defun c:createcylinder ()
(setq center (getpoint "\n请指定圆柱体底面圆心位置: "))
(setq radius (getdist center "\n请指定圆柱体底面半径: "))
(setq height (getdist "\n请指定圆柱体高度: "))
(command "cylinder" center radius height)
(princ)
)
以下代码仅供参考
(defun c:createcylinder ()
(setq center (getpoint "\n请指定圆柱体底面圆心位置: "))
(setq radius (getdist center "\n请指定圆柱体底面半径: "))
(setq height (getdist "\n请指定圆柱体高度: "))
(command "cylinder" center radius height)
(princ)
)
全部评论