新手 怎么用lisp实现照片中图案

東洺Nile

请教高手 怎么用lisp实现照片中图案
R=园 半径, 根据线的角度绘制方形

新手 学习 ...

ZZXXQQ

1、输入圆半径；
2、用鼠标点取两圆圆心；
3、画圆，圆心连线；
4、根据圆心点求出角度；
5、根据圆心点及连线角度计算正负45度圆上的点；
6、画圆心到计算点的线条。

mmmmmm

也可以半径为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)
)

東洺Nile

革天明 发表于 2015-12-21 18:35
(defun C:db34(/ p1 p2 os l p12 p13 p14 p22 p23 p24)
  (prompt "\n请选择第一点:")
  (setq p1(getpoi ...

谢谢帮忙