用cad的vlisp画出一只小青蛙

来源：百度知道 编辑：UC知道 时间：2024/06/03 18:02:49
要源代码 而且是在vlisp环境下可以运行的 大虾们帮帮忙啊
如果代码可行 100分已经不低了吧

呵呵，
原本以为用ps画蜻蜓的就是牛人了
没想到还有人用cad画青蛙……
那个青蛙是不是还要标注表面粗糙度……

你这100分不好挣啊！

(defun c:qingwa()
(setq pt(getpoint "/n指定一个插入点:"))
;(setq ss (ssadd))
;眼珠1
(setq ptyanz1(polar pt 1.0262804 3.4411))

(entmake (append'((0 . "CIRCLE")
(67 . 0)
(8 . "0"))
(list (cons 10 ptyanz1))
'((40 . 0.1988))))
;(ssadd (entlast) ss)
;眼珠2
(setq ptyanz1(polar pt 1.58955616 2.8850))

(entmake (append'((0 . "CIRCLE")
(67 . 0)
(8 . "0"))
(list (cons 10 ptyanz1))
'((40 . 0.2064))))
;(ssadd (entlast) ss)
;眼圈1
(setq ptyanz1(polar pt 1.07757432 3.1228))

(entmake (append'((0 . "CIRCLE")
(67 . 0)
(8 . "0"))
(list (cons 10 ptyanz1))