[原创]：折断线、波浪线、波折线、云图线程序（最新版，免币！）

zhiwing

楼主真强·！

shuaier

不错，以后做结构分析图用的上了，强！

matichen

这个东西很有意义啊，分析图，树林等等。感谢楼主的共享。
建议1：如果能自定义样本段就更灵活了。自己做一小段特殊的效果，然后再象刷子一样刷到目标线上。

建议2：如果能有个随机的附加功能就更好了，毕竟弧度一致的波浪线做成的树丛太过生硬，缺乏动感。能设置一个自由变化的幅度，随机变化会令画面有种随意的魅力。

随便提点建议。也许过于理想，不好意思了。

xyp1964

最初由 matichen 发布
[B]这个东西很有意义啊，分析图，树林等等。感谢楼主的共享。
建议1：如果能自定义样本段就更灵活了。自己做一小段特殊的效果，然后再象刷子一样刷到目标线上。

建议2：如果能有个随机的附加功能就更好了，毕竟弧度... [/B]

建议1，不好实现。
建议2，想法不错，可以利用“随机数”程序的原理，使得弧度“自然”变化。
稍后增加建议2的功能！
“随机波浪线”程序：sjblx

xyp1964

“随机波浪线”效果示意：

matichen

楼主，我运行了一下随机波线，出错“出错，函数被取消” 不知为何？ 系统CAD 2002
还有，能随机变化的云线吗？
多谢！

gjx6xjg

不能下载的呀

xyp1964

最初由 matichen 发布
[B]楼主，我运行了一下随机波线，出错“出错，函数被取消” 不知为何？ 系统CAD 2002
还有，能随机变化的云线吗？
多谢！ [/B]

1. 暂不知何因。
2. “随机云图”应该可以实现，因为是随机的，其结果可能会在美观上不尽人意。

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(Defun C:hyt (/ ARC_DIST LAST_PT START_PT NEXT_PT TMP arc_a)
  (CMDLA0)
  (mkla "云图线" 100)
  (setq        arc_a        120
        NO1        (ureal 1 "" "\n弧长" NO1)
        LAST_PT        (getpoint "\n选择云的起点 : ")
  )
  (if LAST_PT
    (progn
      (setq START_PT LAST_PT
            SAVED_EN (entlast)
      )
      (Command "_.pline" LAST_PT "_a" "_a" arc_a)
    )
  )
  (While LAST_PT
    (setq #scal        (/ (sjs 200) 100.0))
    (if        (or (< #scal 0.2) (> #scal 1.8))
      (setq #scal 1)
    )
    (setq arc_dist (* NO1 #scal)
          NEXT_PT  (GrRead 1)
          READTYP  (car NEXT_PT)
    )
    (if        (or (= 5 READTYP) (= READTYP 3))
      (progn
        (setq NEXT_PT (cadr NEXT_PT))
        (If (or (> (Distance LAST_PT NEXT_PT) ARC_DIST) (= READTYP 3))
          (Progn
            (Command NEXT_PT "_a" arc_a)
            (Setq LAST_PT NEXT_PT)
          )
        )
        (If (> (Distance LAST_PT NEXT_PT) (Distance START_PT NEXT_PT))
          (Progn
            (Command START_PT "_cl")
            (Setq LAST_PT Nil)
          )
        )
      )
    )
  )
  (CMDLA1)
)
(pxyp "HYT  (画云图)")
[/php]

xyp1964

随机云图线效果：

gjx6xjg

多谢，但不知道能不能在2005下面应用吗？
请高手说一下，！

PFD8667

楼主真行!使我学到不少,特别是CAD的搜索路径方法原来不懂,找死人,现在方便多了,谢谢楼主了,我不知到下载那种好,这好全下载了,慢慢研究吧.

liangyongqi9908

想下呢，可是币不够

keen1109

不是免币吗，怎么下不了

ycwjf

这个程序好用,做绿化方案省事了,呵呵

sundaysky

下了，支持你