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

jun353835273

2. <div class="blockcode"><blockquote>
   
3. (defun C:tt ( / center center2 dist)
   
4.   (setq acad (vlax-get-acad-object))
   
5.   (setq dist 100)  ;制心形大小
   
6.   (setq center (getpoint "\n指定点:"))
   
7.   (makeheart  dist center)
   
8.   (setq center2 (polar center 0 200))
   
9.   (makeheart  dist center2)
   
10.   (vla-zoomwindow
    
11.     acad
    
12.     (vlax-3d-point center)
    
13.     (vlax-3d-point center2)
    
14.   )
    
15.   (vla-ZoomScaled acad 0.2 acZoomScaledRelative)
    
16.   (princ)
    
17.   )
    
18. (defun ang2rad (ang) (* pi (/ ang 180.)))

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

(defun makeheart (dist center / e10 inpt plt r rad rang p1 p2)
(setq plt nil)
(setq p1 (polar center -1.5708 100))
(setq p2 (polar p1 0 -70))
(setq rang 0)
(entmake(list(cons 0 "TEXT")
                  (cons 1 "搞钱!搞钱!别瞎想!")
                  (cons 10 p2)
                  (cons 62 1)
                  (cons 40 15)
             )
        )
  (repeat 361
    (setq rad (ang2rad rang))
    (setq r (* dist (- 1 (sin rad))))
    (setq inpt (polar center rad r))
    (setq rang (+ 1 rang))
    (setq plt (cons inpt plt))
  )
  (setq ent (entmakex
      (append (list '(0 . "LWPOLYLINE")
                    '(100 . "AcDbEntity")
                    '(100 . "AcDbPolyline")
                    (cons 8 "heart")
                    (cons 90 (length plt))
                    (cons 43 0)
                    (cons 62 1)
              )
              (mapcar '(lambda (e10) (cons 10 e10)) plt)
              '((210 0. 0. 1.))
      )
    ))
;(command "zoom" "ob" ent "")
)

liuhe

2. (DEFUN C:W1 (/ a num i p0 lst e)
   
3.   (SETQ        A  300 ;;;;;控制图形大小
   
4.         num a;;;控制数量
   
5.         i 10;;;控制颜色
   
6.         h 1;;;;控制递减间隔
   
7.   )
   
8.   (SETQ P0(GETPOINT"\n请插入点"))
   
9.   (if(not p0)(vl-exit-with-value 0))
   
10.   (REPEAT num
    
11.     (SETQ LST (QQ1 A)
    
12.           E   (EntmakeSpline LST)
    
13.           A   (- A h)
    
14.           i(1+ i)
    
15.     )
    
16.     (IF (<= (/ NUM I )2)(SETQ I 1));;;;控制颜色循环
    
17.     (VLA-PUT-COLOR (vlax-ename->vla-object (ENTLAST))I)
    
18.     (vla-move (vlax-ename->vla-object (ENTLAST))
    
19.               (vlax-3D-point (list 0 0 0))
    
20.               (vlax-3D-point p0)
    
21.     )
    
22.   )
    
23.     (redraw)
    
24. )
    
25. (defun EntmakeSpline (pts / PT)
    
26.   (entmakeX
    
27.     (append
    
28.       (list '(0 . "SPLINE")
    
29.             '(100 . "AcDbEntity")
    
30.             '(100 . "AcDbSpline")
    
31.             '(71 . 6)
    
32.       )
    
33.       (mapcar '(lambda (pt) (cons 11 pt)) pts)
    
34.     )
    
35.   )
    
36. )
    
37. 
    
38. (DEFUN QQ (A  / LST I p0);;;;;苹果
    
39.   
    
40.   (SETQ        I   0
    
41.         LST '()
    
42.         p0  (list 0 0 0)
    
43.   )
    
44.   (REPEAT 361
    
45.     (SETQ I   (1+ I)
    
46.           P1  (POLAR P0
    
47.                      (* I (/ PI 180))
    
48.                      (* A (- 1 (SIN (* I (/ PI 180)))))
    
49.               )
    
50.           LST (CONS P1 LST)
    
51.     )
    
52.   )
    
53. (vl-remove 'nil lst)
    
54. )
    
55. (DEFUN QQ1 (A  / LST I I1 P1);;;;桃子
    
56.   (SETQ        I   0
    
57.         LST '()
    
58.   )
    
59.   (REPEAT 361
    
60.     (SETQ I   (1+ I)
    
61.           I1  (* I (/ PI 180))
    
62.           P1  (LIST (* A (* 16 (* (SIN I1) (SIN I1) (SIN I1))))
    
63.                     (* A
    
64.                        (+ (* 13 (COS I1))
    
65.                           (* -5 (COS (* 2 I1)))
    
66.                           (* -2 (COS (* 3 I1)))
    
67.                           (* -1 (COS (* 4 I1)))
    
68.                        )
    
69.                     )
    
70.               )
    
71.           LST (CONS P1 LST)
    
72.     )
    
73.   )
    
74. (vl-remove 'nil lst)
    
75. )

(DEFUN C:W1 (/ a num i p0 lst e)<br />   (SETQ        A  300 ;;;;;控制图形大小<br />         num a;;;控制数量<br />         i 10;;;控制颜色<br />         h 1;;;;控制递减间隔<br />   )<br />   (SETQ P0(GETPOINT"\n请插入点"))<br />   (if(not p0)(vl-exit-with-value 0))<br />   (REPEAT num<br />     (SETQ LST (QQ1 A)<br />           E   (EntmakeSpline LST)<br />           A   (- A h)<br />           i(1+ i)<br />     )<br />     (IF (<= (/ NUM I )2)(SETQ I 1));;;;控制颜色循环<br />     (VLA-PUT-COLOR (vlax-ename->vla-object (ENTLAST))I)<br />     (vla-move (vlax-ename->vla-object (ENTLAST))<br />               (vlax-3D-point (list 0 0 0))<br />               (vlax-3D-point p0)<br />     )<br />   )<br />     (redraw)<br /> )<br /> (defun EntmakeSpline (pts / PT)<br />   (entmakeX<br />     (append<br />       (list '(0 . "SPLINE")<br />             '(100 . "AcDbEntity")<br />             '(100 . "AcDbSpline")<br />             '(71 . 6)<br />       )<br />       (mapcar '(lambda (pt) (cons 11 pt)) pts)<br />     )<br />   )<br /> )<br /> <br /> (DEFUN QQ (A  / LST I p0);;;;;苹果<br />   <br />   (SETQ        I   0<br />         LST '()<br />         p0  (list 0 0 0)<br />   )<br />   (REPEAT 361<br />     (SETQ I   (1+ I)<br />           P1  (POLAR P0<br />                      (* I (/ PI 180))<br />                      (* A (- 1 (SIN (* I (/ PI 180)))))<br />               )<br />           LST (CONS P1 LST)<br />     )<br />   )<br /> (vl-remove 'nil lst)<br /> )<br /> (DEFUN QQ1 (A  / LST I I1 P1);;;;桃子<br />   (SETQ        I   0<br />         LST '()<br />   )<br />   (REPEAT 361<br />     (SETQ I   (1+ I)<br />           I1  (* I (/ PI 180))<br />           P1  (LIST (* A (* 16 (* (SIN I1) (SIN I1) (SIN I1))))<br />                     (* A<br />                        (+ (* 13 (COS I1))<br />                           (* -5 (COS (* 2 I1)))<br />                           (* -2 (COS (* 3 I1)))<br />                           (* -1 (COS (* 4 I1)))<br />                        )<br />                     )<br />               )<br />           LST (CONS P1 LST)<br />     )<br />   )<br /> (vl-remove 'nil lst)<br /> )

两种公式  拿去装逼

做不了动画

magicheno

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

做不了动画

大佬搞的真酷

mokson

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

zkq1212

看看什么效果

陨落

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

boboxiake

66666666666

liuhe

666666666666666666

nsh935

厉害厉害厉害

Bao_lai

关键妹纸不用CAD!

yoyoho

看看什么效果!!!!!

kugoo999

看看什么效果