用法
评论
建议
取 消
确 定
(defun entity:make-circle (pts-cen num-rad) "创建圆.如果圆心是点的列表或半径是数值的列表，可以同时创建多个圆" "Ename" "(entity:make-circle (list (getpoint)(getpoint)) '(3 5))" (cond ((and (= (quote point) (type-of pts-cen)) (numberp num-rad)) (entmakex (list (quote (0 . "circle")) (quote (100 . "AcDbEntity")) (quote (100 . "AcDbCircle")) (cons 10 pts-cen) (cons 40 num-rad)))) ((and (listp pts-cen) (apply (quote and) (mapcar (function (lambda (x) (= (quote point) (type-of x)))) pts-cen))) (foreach pt pts-cen (entity:make-circle pt num-rad))) ((and (listp num-rad) (apply (quote and) (mapcar (quote numberp) num-rad))) (foreach rad num-rad (entity:make-circle pts-cen rad)))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号