新手 怎么用lisp实现照片中图案
请教高手 怎么用lisp实现照片中图案R=园 半径, 根据线的角度绘制方形
新手 学习 ... 1、输入圆半径；
2、用鼠标点取两圆圆心；
3、画圆，圆心连线；
4、根据圆心点求出角度；
5、根据圆心点及连线角度计算正负45度圆上的点；
6、画圆心到计算点的线条。 也可以半径为1做个基准块，然后插入块，缩放再旋转 (defun C:db34(/ p1 p2 os l p12 p13 p14 p22 p23 p24)
(prompt "\n请选择第一点:")
(setq p1(getpoint))
(prompt "\n请选择第二点:")
(setq p2(getpoint))
(command "line" p1 p2 "")
(prompt"\n请确定圆的半径：")
(setq l(distance p1 (getpoint)))
(setq os(getvar "osmode"))
(setvar "osmode" 0)
(command "circle" p1 l)
(command "circle" p2 l)
(setq p12(polar p1 (- (angle p1 p2) (* pi 0.25)) l))
(setq p13(polar p12 (+ (angle p1 p12) (* pi 0.5)) l))
(setq p14(polar p1 (+ (angle p1 p2) (* pi 0.25)) l))
(command "line" p1 p12 p13 p14 "C")
(setq p22(polar p2 (- (angle p2 p1) (* pi 0.25)) l))
(setq p23(polar p22 (+ (angle p2 p22) (* pi 0.5)) l))
(setq p24(polar p2 (+ (angle p2 p1) (* pi 0.25)) l))
(command "line" p2 p22 p23 p24 "C")
(setvar "osmode" os)
) 革天明 发表于 2015-12-21 18:35 static/image/common/back.gif
(defun C:db34(/ p1 p2 os l p12 p13 p14 p22 p23 p24)
(prompt "\n请选择第一点:")
(setq p1(getpoi ...
谢谢帮忙
页:
[1]