社区 › AutoLISP/Visual LISP 编程技术 › 已知一个点p，如何用entmake已此点为圆心画圆

南林浣风 发表于 2015-4-3 23:34:03

已知一个点p，如何用entmake已此点为圆心画圆

本帖最后由 南林浣风 于 2015-4-4 09:35 编辑

已知一个点pp，如何用entmakex以此点为圆心画圆
我编的代码是这样(setq ass (entmakex '((0 . "circle") (62 . 7)(10pp)) (40 . 10))))，运行显示组码10错误

Andyhon 发表于 2015-4-4 06:15:46

(entmakex '((0 . "CIRCLE") (62 . 1) (10 4.0 3.0 0.0) (40 . 1.0)))
=========================
(setq pp '(4.0 3.0 0.0))
(entmakex (list '(0 . "CIRCLE") '(62 . 1) (cons 10 pp) '(40 . 1.0)))

查看完整版本: 已知一个点p，如何用entmake已此点为圆心画圆