明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 440|回复: 10

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

[复制链接]
发表于 2019-7-16 22:47 | 显示全部楼层 |阅读模式
本帖最后由 lee50310 于 2019-7-17 13:03 编辑

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

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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1明经币 +1 收起 理由
1291500406 + 1 很给力!

查看全部评分

发表于 2019-7-17 08:26 | 显示全部楼层
不明指令,说明你多了个回车键了
发表于 2019-7-17 10:08 | 显示全部楼层
谢谢! 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 及圖 已修正, 之前有下載的大大請自行修正    謝謝!







发表于 2019-7-17 14:31 | 显示全部楼层
能用entmake生成的对象,尽量不要用command。
发表于 2019-7-17 15:13 | 显示全部楼层
很多小问题,还有一些不需要用到的代码。
发表于 2019-7-17 15:40 | 显示全部楼层
本帖最后由 1291500406 于 2019-7-17 15:41 编辑

里面很多高级函数,值得学习,不过运行箭头后方向歪七八扭的,不在中心
 楼主| 发表于 2019-7-17 17:46 | 显示全部楼层
edata 发表于 2019-7-17 14:31
能用entmake生成的对象,尽量不要用command。

感謝指導 ,以後會注意
 楼主| 发表于 2019-7-17 18:05 | 显示全部楼层
本帖最后由 lee50310 于 2019-7-17 18:08 编辑
1291500406 发表于 2019-7-17 15:40
里面很多高级函数,值得学习,不过运行箭头后方向歪七八扭的,不在中心



感謝指導, 我試過若畫河形轉彎處不要太過激烈(大於70度以上),或連續有好幾個激烈的上下灣
              大致上箭頭都能在中心處服貼河形
发表于 2019-7-19 20:58 | 显示全部楼层
命令: river
请输字高<3>:
请输入河宽<10>:  ; 错误: no function definition: INITCOMMANDVERSION
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-8-26 00:13 , Processed in 0.230265 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表