[几何图案系列] 动态3DMESH及一些3DMESH图形(心型、星型、莫比乌斯环、海螺等)

qjchen

[飞马系列] 动态3DMESH及一些3DMESH图形(心型、星型、莫比乌斯环、海螺等)
qjchen
首先说明一下，这些内容用MATLAB,MATHEMATICA之类均很简单地实现，此处仅探讨AutoCAD 3DMESH的一些内容
一直以来，对数学图形总是比较着迷的
在早期学习lambda的时候，曾经去过这个网站
http://autolisp.mapcar.net/lambda.html
学到了lambda的有趣的用法和初窥3dmesh
后来，学grread的时候，写过如下的一段代码，用于动态形成波浪式的3dmesh，不过不少代码是来自他人的

2. 
   
3. ;;;by David Bethel : [url=http://www.cadtutor.biz/forum/showthread.php?t=5457]http://www.cadtutor.biz/forum/showthread.php?t=5457[/url]
   
4. (defun draw_mesh (vlist mmesh nmesh mflg nflg / cflg)
   
5. (and (= (type vlist) 'LIST)
   
6.      (= (type nmesh) 'INT)
   
7.      (= (type mmesh) 'INT)
   
8.      (< nmesh 256)
   
9.      (< mmesh 256)
   
10.      (> nmesh 2)
    
11.      (> mmesh 2)
    
12.      (cond ((and nflg mflg) (setq cflg 49))
    
13.            (nflg            (setq cflg 48))
    
14.            (mflg            (setq cflg 17))
    
15.            (t               (setq cflg 16)))
    
16.       
    
17.            
    
18.      (entmake (list (cons 0 "POLYLINE")(cons 66 1)
    
19.                     (cons 6 "BYLAYER")
    
20.                     (cons 10 (list 0 0 0))
    
21.                     (cons 70 cflg)
    
22.                     (cons 71 mmesh)(cons 72 nmesh)
    
23.                     (cons 39 0)))
    
24.                     
    
25.      (foreach v vlist
    
26.              (entmake (list (cons 0 "VERTEX")
    
27.                             (cons 6 "BYLAYER")
    
28.                             (cons 10 v)
    
29.                             (cons 70 64))))
    
30.      (entmake (list (cons 0 "SEQEND")))
    
31.      
    
32.      
    
33.      
    
34.      ))
    
35. ;;; by Qjchen
    
36. ;;;; from [url=http://autolisp.mapcar.net/lambda.html]http://autolisp.mapcar.net/lambda.html[/url]
    
37. (defun genlist(expr steps xpi ypi scale / plist tlist xn yn zn)
    
38.   (setq plist nil)
    
39.   (setq xn 0.0 yn 0.0)
    
40.   (repeat(* xpi steps)
    
41.     (setq tlist nil)
    
42.     (setq yn 0.0)
    
43.     (repeat(* ypi steps)
    
44.       (setq zn(* scale ((eval expr) xn yn)))
    
45.       
    
46.       (setq tlist(append tlist(list (list xn yn zn))))
    
47.       (setq yn(+ yn(/ pi steps)))
    
48.     )
    
49.     (setq plist(append plist tlist))
    
50.     (setq xn(+ xn(/ pi steps)))
    
51.   )
    
52.   plist
    
53. )
    
54. 
    
55. ;;;the following is by [url=mailto:qjchen@gmail.com]qjchen@gmail.com[/url]
    
56. (defun c:test ( / ent1 gr height scale temp)
    
57.   (setq temp (getvar "cmdecho"))
    
58.   (setvar "cmdecho" 0)
    
59.   (command "._-view" "_top")
    
60.   (command "._-view" "_swiso")
    
61.   (command "zoom" "w" "-10,-10" "15,15")
    
62.   (setq height (getvar "viewsize"))
    
63.   (while (= (car (setq gr (grread nil 5 0))) 5)
    
64.     (if (setq ent1 (entlast))(entdel ent1))
    
65.     (setq scale (* (/ (- (cadr (cadr gr)) 10) height) 5))
    
66.     (draw_mesh (genlist '(lambda (x y /) (* (cos x) (cos y))) 10 3 3 scale) 30 30 nil nil )
    
67.   )
    
68.   (setvar "cmdecho" temp)
    
69.   (princ)
    
70. )
    

<br /> ;;;by David Bethel : [url=http://www.cadtutor.biz/forum/showthread.php?t=5457]http://www.cadtutor.biz/forum/showthread.php?t=5457[/url]<br /> (defun draw_mesh (vlist mmesh nmesh mflg nflg / cflg)<br /> (and (= (type vlist) 'LIST)<br />      (= (type nmesh) 'INT)<br />      (= (type mmesh) 'INT)<br />      (< nmesh 256)<br />      (< mmesh 256)<br />      (> nmesh 2)<br />      (> mmesh 2)<br />      (cond ((and nflg mflg) (setq cflg 49))<br />            (nflg            (setq cflg 48))<br />            (mflg            (setq cflg 17))<br />            (t               (setq cflg 16)))<br />       <br />            <br />      (entmake (list (cons 0 "POLYLINE")(cons 66 1)<br />                     (cons 6 "BYLAYER")<br />                     (cons 10 (list 0 0 0))<br />                     (cons 70 cflg)<br />                     (cons 71 mmesh)(cons 72 nmesh)<br />                     (cons 39 0)))<br />                     <br />      (foreach v vlist<br />              (entmake (list (cons 0 "VERTEX")<br />                             (cons 6 "BYLAYER")<br />                             (cons 10 v)<br />                             (cons 70 64))))<br />      (entmake (list (cons 0 "SEQEND")))<br />      <br />      <br />      <br />      ))<br /> ;;; by Qjchen<br /> ;;;; from [url=http://autolisp.mapcar.net/lambda.html]http://autolisp.mapcar.net/lambda.html[/url]<br /> (defun genlist(expr steps xpi ypi scale / plist tlist xn yn zn)<br />   (setq plist nil)<br />   (setq xn 0.0 yn 0.0)<br />   (repeat(* xpi steps)<br />     (setq tlist nil)<br />     (setq yn 0.0)<br />     (repeat(* ypi steps)<br />       (setq zn(* scale ((eval expr) xn yn)))<br />       <br />       (setq tlist(append tlist(list (list xn yn zn))))<br />       (setq yn(+ yn(/ pi steps)))<br />     )<br />     (setq plist(append plist tlist))<br />     (setq xn(+ xn(/ pi steps)))<br />   )<br />   plist<br /> )<br /> <br /> ;;;the following is by [url=mailto:qjchen@gmail.com]qjchen@gmail.com[/url]<br /> (defun c:test ( / ent1 gr height scale temp)<br />   (setq temp (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "._-view" "_top")<br />   (command "._-view" "_swiso")<br />   (command "zoom" "w" "-10,-10" "15,15")<br />   (setq height (getvar "viewsize"))<br />   (while (= (car (setq gr (grread nil 5 0))) 5)<br />     (if (setq ent1 (entlast))(entdel ent1)) <br />     (setq scale (* (/ (- (cadr (cadr gr)) 10) height) 5))<br />     (draw_mesh (genlist '(lambda (x y /) (* (cos x) (cos y))) 10 3 3 scale) 30 30 nil nil )<br />   )<br />   (setvar "cmdecho" temp)<br />   (princ)<br /> )<br />

近日，买了一本 王文栋（中国美院建筑专业研究生）写的《rhinos参数建模》的书，觉得大开眼界
不过书中的均是基于Rhino的Nurbs曲面
于是萌发出用3dmesh绘制这些漂亮图形的念头，于是花了几个小时撰写这个自娱自乐的代码
这次的代码是在Lee Mac的ActiveX思路上新写的，比Entmake要简单许多
http://www.theswamp.org/index.php?topic=33766.0
后来又在 (http://k3dsurf.sourceforge.net/ ) 下载了k3dsurf 这个开源软件，里面有更多有趣的曲面
采用了里面的一些图形定义
（注：图中的12个图形，部分经过缩放来保证各图形大小比较一致，部分经过旋转，渲染也是后期用CAD做的，非程序内置）
不过acad高版本是有nurbs的，不知道有没有哪位研究过如何用.Net或者Lisp来生成NURBS的

lrd1861

qjchen   大师果然强大

wowan1314

晕！ 玩的太大了！  这什么啊！ 汗~~~~~~~~~~

duotu007

谢谢qjchen 分享，LISP的乐趣总是不经意间的发现。

cnks

不懂，学习一下

kwok

创意总在闪电中发生

yoyoho

感谢qjchen 分享程序!

springwillow

很好、很强大，只能观仰了

恕放之生命

很好很强大的东西，谢谢分享。