社区 › 源码共享 › 七夕撩妹心形（其实像苹果）

jun353835273 发表于 2023-8-22 11:00:13

七夕撩妹心形（其实像苹果）

本帖最后由 jun353835273 于 2023-8-22 11:02 编辑

<div class="blockcode"><blockquote>
(defun C:tt ( / center center2 dist)
(setq acad (vlax-get-acad-object))
(setq dist 100);制心形大小
(setq center (getpoint "\n指定点:"))
(makeheartdist center)
(setq center2 (polar center 0 200))
(makeheartdist center2)
(vla-zoomwindow
    acad
    (vlax-3d-point center)
    (vlax-3d-point center2)
)
(vla-ZoomScaled acad 0.2 acZoomScaledRelative)
(princ)
)
(defun ang2rad (ang) (* pi (/ ang 180.)))**** Hidden Message *****

liuhe 发表于 2023-8-22 13:38:47

(DEFUN C:W1 (/ a num i p0 lst e)
(SETQ        A300 ;;;;;控制图形大小
        num a;;;控制数量
        i 10;;;控制颜色
        h 1;;;;控制递减间隔
)
(SETQ P0(GETPOINT"\n请插入点"))
(if(not p0)(vl-exit-with-value 0))
(REPEAT num
    (SETQ LST (QQ1 A)
          E   (EntmakeSpline LST)
          A   (- A h)
          i(1+ i)
    )
    (IF (<= (/ NUM I )2)(SETQ I 1));;;;控制颜色循环
    (VLA-PUT-COLOR (vlax-ename->vla-object (ENTLAST))I)
    (vla-move (vlax-ename->vla-object (ENTLAST))
              (vlax-3D-point (list 0 0 0))
              (vlax-3D-point p0)
    )
)
    (redraw)
)
(defun EntmakeSpline (pts / PT)
(entmakeX
    (append
      (list '(0 . "SPLINE")
          '(100 . "AcDbEntity")
          '(100 . "AcDbSpline")
          '(71 . 6)
      )
      (mapcar '(lambda (pt) (cons 11 pt)) pts)
    )
)
)

(DEFUN QQ (A/ LST I p0);;;;;苹果

(SETQ        I   0
        LST '()
        p0(list 0 0 0)
)
(REPEAT 361
    (SETQ I   (1+ I)
          P1(POLAR P0
                     (* I (/ PI 180))
                     (* A (- 1 (SIN (* I (/ PI 180)))))
              )
          LST (CONS P1 LST)
    )
)
(vl-remove 'nil lst)
)
(DEFUN QQ1 (A/ LST I I1 P1);;;;桃子
(SETQ        I   0
        LST '()
)
(REPEAT 361
    (SETQ I   (1+ I)
          I1(* I (/ PI 180))
          P1(LIST (* A (* 16 (* (SIN I1) (SIN I1) (SIN I1))))
                  (* A
                     (+ (* 13 (COS I1))
                          (* -5 (COS (* 2 I1)))
                          (* -2 (COS (* 3 I1)))
                          (* -1 (COS (* 4 I1)))
                     )
                  )
              )
          LST (CONS P1 LST)
    )
)
(vl-remove 'nil lst)
)


两种公式拿去装逼

做不了动画

magicheno 发表于 2023-8-23 22:14:28

liuhe 发表于 2023-8-22 13:38
两种公式拿去装逼

做不了动画

大佬搞的真酷

mokson 发表于 2023-8-22 15:59:22

真实情况是这样的: 妹子点了几下, 发觉打不开, 于是便扔进了回收站.

zkq1212 发表于 2023-8-22 11:02:27

看看什么效果

陨落 发表于 2023-8-22 11:04:49

十年前，我学lisp写的第二个程序就是这个

boboxiake 发表于 2023-8-22 11:05:12

66666666666

liuhe 发表于 2023-8-22 11:17:18

666666666666666666

nsh935 发表于 2023-8-22 12:01:35

厉害厉害厉害

Bao_lai 发表于 2023-8-22 12:52:45

关键妹纸不用CAD!

yoyoho 发表于 2023-8-22 13:50:51

看看什么效果!!!!!

kugoo999 发表于 2023-8-22 14:31:19

看看什么效果

查看完整版本: 七夕撩妹心形（其实像苹果）