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

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

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

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

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

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

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

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

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

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

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

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

本帖最后由 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

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

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

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

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

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

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

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

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

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

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

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

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

感謝指導，以後會注意

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

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

本帖子中包含更多资源

评分