lee50310 发表于 2019-7-16 22:47:37

写了一个画河水流向图的lisp源码

本帖最后由 lee50310 于 2019-7-17 13:03 编辑

寫了一個畫河水流向圖的lisp源碼
將river.lsp載入
執行指令:river

1. 字高內定為 3    除非箭頭或文字太小才需調整
2. 河流寬度內定為 10 ，可依實際寬度輸入
3. 用滑鼠點及托拉出河形 若要結束按 Enter鍵
4. 河形由右至左畫及由左至右畫 水流方向恰好相反


lee50310 发表于 2019-7-17 18:05:58

本帖最后由 lee50310 于 2019-7-17 18:08 编辑

1291500406 发表于 2019-7-17 15:40
里面很多高级函数，值得学习，不过运行箭头后方向歪七八扭的，不在中心


感謝指導, 我試過若畫河形轉彎處不要太過激烈(大於70度以上),或連續有好幾個激烈的上下灣
            大致上箭頭都能在中心處服貼河形

edata 发表于 2019-7-17 14:31:33

能用entmake生成的对象，尽量不要用command。

lee50310 发表于 2019-7-17 13:37:02

本帖最后由 lee50310 于 2019-7-17 13:47 编辑

不明指令，说明你多了个回车键了
感謝, 烟盒迷唇大大的指正,讓我找到了在程式中 的
(command "text" "J" "L" pt3 txt_H ang2(strcat "河宽=" (rtos tw)) “” ) ;; txt_H=字高
這行多了个回车键 "" 修正後為
(command "text" "J" "L" pt3 txt_H ang2(strcat "河宽=" (rtos tw))   ) ;; txt_H=字高
上面的下載程式 river.lsp 及圖 已修正, 之前有下載的大大請自行修正    謝謝!







czb203 发表于 2019-7-19 20:58:12

命令: river
请输字高<3>：
请输入河宽<10>：; 错误: no function definition: INITCOMMANDVERSION

烟盒迷唇 发表于 2019-7-17 08:26:50

不明指令，说明你多了个回车键了

yoyoho 发表于 2019-7-17 10:08:13

谢谢! lee50310 分享程序!!!!!!

水吉空 发表于 2019-7-17 15:13:28

很多小问题，还有一些不需要用到的代码。

1291500406 发表于 2019-7-17 15:40:11

本帖最后由 1291500406 于 2019-7-17 15:41 编辑

里面很多高级函数，值得学习，不过运行箭头后方向歪七八扭的，不在中心

lee50310 发表于 2019-7-17 17:46:55

edata 发表于 2019-7-17 14:31
能用entmake生成的对象，尽量不要用command。

感謝指導 ，以後會注意
页: [1] 2
查看完整版本: 写了一个画河水流向图的lisp源码