<*** 好東西分享 3 可產生精美的 16種分形樹 ***>

lee50310 · 发表于 2022-9-1 02:07:34

本帖最后由 lee50310 于 2022-9-1 02:18 编辑

介紹一款來自國外論壇  可產生精美的 16種分形樹

tree.lsp 產生 7種執行指令:tree    後輸入號碼  在螢幕點選插入點
tree2.lsp  產生10種執行指令:tree2 後輸入號碼  在螢幕點選插入點

分形樹是由公式+參數值產生
此為 tree2的部分程式碼  (參數部分)

;;;get tree pattern;;
(defun getpattern (/ kword pattern pattern1)
(initget "1 2 3 4 5 6 7 8 9 10")
(setq kword (getkword "\n please select the tree type: 1/2/3/4/5/6/7/8/9/10:"))
(cond
((= kword "1")
(setq res (list (list 0.5 0.0 0.0 0.5 0.0 0.0 0.333)
(list 0.5 0.0 0.0 0.5 0.5 0.0 0.333)
(list 0.5 0.0 0.0 0.5 0.25 0.5 0.334)
)
)
)
((= kword "2")
(setq res (list (list 0.5 -0.5 0.5 0.5 0.0 0.0 0.5)
(list 0.5 0.5 -0.5 0.5 0.5 0.5 0.5)
)
)
)
((= kword "3")
(setq res (list (list -0.04 0 -0.19 -0.47 -0.12 0.3 0.25)
(list 0.65 0.0 0.0 0.56 0.06 1.56 0.25)
(list 0.41 0.46 -0.39 0.61 0.46 0.4 0.25)
(list 0.52 -0.35 0.25 0.74 -0.48 0.38 0.25)
)
)
)
((= kword "4")
(setq res (list (list 0.6 0 0 0.6 0.18 0.36 0.25)
(list 0.6 0 0 0.6 0.18 0.120 0.25)
(list 0.4 0.3 -0.3 0.4 0.27 0.36 0.25)
(list 0.4 -0.3 0.3 0.4 0.27 0.09 0.25)
)
)
)
((= kword "5")
(setq res (list
(list 0.787879 -0.424242 0.242424 0.859848 1.758647 1.408065 0.9)
(list -0.121212 0.257576 0.05303 0.05303 -6.721654 1.377236 0.05)
(list 0.181818 -0.136364 0.090909 0.181818 6.086107 1.568035 0.05)
)
)
)
((= kword "6")
(setq res (list
(list 0.745455 -0.45901 0.406061 0.887121 1.460279 0.691072 0.912675)
(list -0.424242 -0.065152 -0.175758 -0.218182 3.809567 6.741476 0.087325)
)
)
)
((= kword "7")
(setq res (list (list 0 0 0 0.25 0 -0.14 0.02)
(list 0.85 0.02 -0.02 0.83 0 1 0.84)
(list 0.09 -0.28 0.3 0.11 0 0.6 0.07)
(list -0.09 0.25 0.3 0.09 0 0.7 0.07)
)
)
)
((= kword "8")
(setq res (list (list 0.05 0 0 0.6 0 0 0.1)
(list 0.05 0 0 -0.5 0 1.0 0.1)
(list 0.46 0.32 -0.386 0.383 0 0.6 0.2)
(list 0.47 -0.154 0.171 0.423 0 1.0 0.2)
(list 0.43 0.275 -0.26 0.476 0 1.0 0.2)
(list 0.421 -0.357 0.354 0.307 0 0.7 0.2)
)
)
)
((= kword "9")
(setq res (list (list 0 0 0 0.16 0 0 0.01)
(list 0.85 0.04 -0.04 0.85 0 1.6 0.85)
(list 0.2 -0.26 0.23 0.22 0 1.6 0.07)
(list -0.15 0.28 0.26 0.24 0 0.44 0.07)
)
)
)
((= kword "10")
(setq res (list (list 0.8 0.0 0.0 -0.8 0.0 0.0 0.5)
(list 0.4 -0.2 0.2 0.4 1.1 0.0 0.5)
)
)
)
)
res
)
;;xoutside function to entmake line

;;;get tree pattern;; 
(defun getpattern (/ kword pattern pattern1) 
  (initget "1 2 3 4 5 6 7 8 9 10") 
  (setq kword (getkword "\n please select the tree type: 1/2/3/4/5/6/7/8/9/10:")) 
  (cond 
    ((= kword "1") 
      (setq res (list (list 0.5 0.0 0.0 0.5 0.0 0.0 0.333) 
                      (list 0.5 0.0 0.0 0.5 0.5 0.0 0.333) 
                      (list 0.5 0.0 0.0 0.5 0.25 0.5 0.334) 
          ) 
      ) 
    ) 
    ((= kword "2") 
      (setq res (list (list 0.5 -0.5 0.5 0.5 0.0 0.0 0.5) 
                (list 0.5 0.5 -0.5 0.5 0.5 0.5 0.5) 
    ) 
      ) 
    ) 
    ((= kword "3") 
      (setq res (list (list -0.04 0 -0.19 -0.47 -0.12 0.3 0.25) 
          (list 0.65 0.0 0.0 0.56 0.06 1.56 0.25) 
          (list 0.41 0.46 -0.39 0.61 0.46 0.4 0.25) 
          (list 0.52 -0.35 0.25 0.74 -0.48 0.38 0.25) 
    ) 
      ) 
    ) 
    ((= kword "4") 
      (setq res (list (list 0.6 0 0 0.6 0.18 0.36 0.25) 
                (list 0.6 0 0 0.6 0.18 0.120 0.25) 
                      (list 0.4 0.3 -0.3 0.4 0.27 0.36 0.25) 
                      (list 0.4 -0.3 0.3 0.4 0.27 0.09 0.25) 
    ) 
      ) 
    ) 
    ((= kword "5") 
      (setq res (list 
      (list 0.787879 -0.424242 0.242424 0.859848 1.758647 1.408065 0.9) 
      (list -0.121212 0.257576 0.05303 0.05303 -6.721654 1.377236 0.05) 
      (list 0.181818 -0.136364 0.090909 0.181818 6.086107 1.568035 0.05) 
 
    ) 
      ) 
    ) 
    ((= kword "6") 
      (setq res (list 
      (list 0.745455 -0.45901 0.406061 0.887121 1.460279 0.691072 0.912675) 
      (list -0.424242 -0.065152 -0.175758 -0.218182 3.809567 6.741476 0.087325) 
    ) 
      ) 
    ) 
    ((= kword "7") 
      (setq res (list (list 0 0 0 0.25 0 -0.14 0.02) 
                      (list 0.85 0.02 -0.02 0.83 0 1 0.84) 
                      (list 0.09 -0.28 0.3 0.11 0 0.6 0.07) 
                      (list -0.09 0.25 0.3 0.09 0 0.7 0.07) 
    ) 
      ) 
    ) 
    ((= kword "8") 
      (setq res (list (list 0.05 0 0 0.6 0 0 0.1) 
                      (list 0.05 0 0 -0.5 0 1.0 0.1) 
                      (list 0.46 0.32 -0.386 0.383 0 0.6 0.2) 
                      (list 0.47 -0.154 0.171 0.423 0 1.0 0.2) 
                      (list 0.43 0.275 -0.26 0.476 0 1.0 0.2) 
                      (list 0.421 -0.357 0.354 0.307 0 0.7 0.2) 
    ) 
      ) 
    ) 
    ((= kword "9") 
      (setq res (list (list 0 0 0 0.16 0 0 0.01) 
                      (list 0.85 0.04 -0.04 0.85 0 1.6 0.85) 
                      (list 0.2 -0.26 0.23 0.22 0 1.6 0.07) 
                      (list -0.15 0.28 0.26 0.24 0 0.44 0.07) 
                 ) 
      ) 
    ) 
    ((= kword "10") 
      (setq res (list (list 0.8 0.0 0.0 -0.8 0.0 0.0 0.5) 
                      (list 0.4 -0.2 0.2 0.4 1.1 0.0 0.5) 
    ) 
      ) 
    ) 
  ) 
  res 
) 
;;xoutside function to entmake line

lee50310 · 发表于 2022-9-1 19:41:49

本帖最后由 lee50310 于 2022-9-1 19:45 编辑

rocking2008 发表于 2022-9-1 19:27
里面哪个参数是控制树木的高度的？

原創並沒有控制樹木高度及顏色的參數
完成後全選請用 scale 放大所需的大小及用change 指令改變物體顏色

p-3-ianlcc · 发表于 2022-9-2 08:59:14

謝謝分享！
如果有多一點的樹木種類或是分類成喬木、灌木…更不錯

jkop · 发表于 2023-6-2 10:43:46

景观照型偶尔会用到，但看着成品的树，很有美感，感谢分享。

guosheyang · 发表于 2022-9-1 07:46:00

感谢共享资料！

LIULISHENG · 发表于 2022-9-1 07:54:23

感谢作者分享

tigcat · 发表于 2022-9-1 08:31:44

挺有趣的，谢谢大侠分享

czb203 · 发表于 2022-9-1 08:36:03

感谢作者分享

tigcat · 发表于 2022-9-1 09:15:58

这是咱们论坛大侠qjchen的作品，中国人的作品！

229096767 · 发表于 2022-9-1 13:41:20

谢谢分享

rocking2008 · 发表于 2022-9-1 19:27:58

里面哪个参数是控制树木的高度的？

账号		自动登录	找回密码
密码			注册

[源码] <* 好東西分享 3 可產生精美的 16種分形樹 *>

本帖子中包含更多资源

点评

评分

评分

[源码] <*** 好東西分享 3 可產生精美的 16種 分形樹 ***>

本帖子中包含更多资源

点评

评分

评分

[源码] <* 好東西分享 3 可產生精美的 16種分形樹 *>