设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 317|回复: 20

[原创] 直线分段辅助LISP

[复制链接]

已领礼包: 61个

财富等级: 招财进宝

发表于 2019-2-9 09:18:55 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

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

x
这几天领导要根据一些地形高程点绘制地形图,领导把相近的高程点连接起来,根据高程数据差分得出整数高程点,再手动连接等高程的点。个人感觉连线后找到整数高程点属于重复劳动,就写了一小段解决,希望对各位有所帮助。(本人还是2004年左右学了一点,喜欢东拼西凑,不太愿意仔细研究,写出来的东西很粗浅,欢迎各位指导。)
(defun c:tt()
  (setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
  (setq en (car (entsel "\n选取线:")))
  (setq endata (entget en))
  (setq pt_10 (cdr (assoc 10 endata)))
  (setq pt_11 (cdr (assoc 11 endata)))
  (setq ang (angle pt_10 pt_11))
  (setq dd (distance pt_10 pt_11))
  (setq bas1 pt_10)
(setq G1 (getreal "\n请输入1点高程:"))
(setq G2 (getreal "\n请输入2点高程:"))
(setq i (fix G1))
(while (<= i (- (fix G2) 1)) (setq i (+ i 1))
  (setq scal (* dd (/ (- i G1) (- G2 G1))))
    (setq bas2 (polar bas1 ang scal))
    (setq P3 (polar bas2 (+ ang 1.571) 10))
   (command "line" P3 bas2  "")
)
(setvar "osmode" os)
  (prin1)
  )
;程序说明:
;1、该程序为等高线辅助程序。
;2、需用line命令连接两个已有高程点,从低的高程往高的高程连接。
;3、此问题已解决。关于捕捉打开关闭问题。
;4、加载时 从cad 工具--加载应用程序--找到本程序并加载。
;5、输入tt命令启动程序。
;6、 Edited by Kar 2019.02.08。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 09:27:51 | 显示全部楼层
当时为了展点,也写了一个展点的小lisp,这跟已有坐标数据和层厚(高程)数据是相关联的(excel按规律准备好)。感觉上两个小程序可以结合一下,另外第一条程序应该可以加一些小判断更优化点。

(vl-load-com)
(defun *error* (msg)
  
  (princ "\n")
  (princ)
  
)  
(defun c:chou (/ sum pt tt hc)
   (initget 1)
(setq tt (getint "\n请输入字体高度: "))
(setq pt (getpoint "\n请拾取起点位置:"))

(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq mSpace (vla-get-ModelSpace acadDocument))


(setq string (vlax-make-variant TtopNumber vlax-vbstring ))

(while (listp pt)

(setq hc (getstring "\n请输入该点层厚: "))
(progn
(setq NewText (vla-addtext mSpace hc (vlax-3d-point pt) tt))
(princ  "\n")
(princ  n)
(princ  "目前层厚为:")
(princ  hc)
)


(initget "End")
    (setq pt (getpoint "\n请输入下一个点,结束输入E/<pick point>:"))   
     )
)
(princ "层厚统计程序成功调入!  ***键入 chou 运行***")
(prin1)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2019-2-9 09:37:29 | 显示全部楼层
谢谢你的分享,要是有动图演示就更好啦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 4080个

财富等级: 富可敌国

发表于 2019-2-9 10:42:20 | 显示全部楼层
谢谢你的分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 10:58:40 | 显示全部楼层
lhmlhmlhm21 发表于 2019-2-9 09:37
谢谢你的分享,要是有动图演示就更好啦

我刚刚来 还不知道怎么弄动图
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 11:10:28 | 显示全部楼层
C:\Users\Lenovo\Desktop\1549681646(1).jgp
图中左侧两根线为使用前使用后的对比,右边是已经用了的一些情况。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 11:11:41 | 显示全部楼层
作为原来学过html语言的,居然不会上图。

点评

你点发帖按钮, 高级模式, 里面有个按钮贴图, 选上硬盘的图片文件,点上传就行了  详情 回复 发表于 2019-2-9 12:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-2-9 12:37:17 | 显示全部楼层
本帖最后由 newer 于 2019-2-9 13:16 编辑
arker 发表于 2019-2-9 11:11
作为原来学过html语言的,居然不会上图。

你点发帖按钮, 高级模式, 里面有个按钮“图片”, 选上硬盘的图片文件,点上传就行了
搜狗截图20190209131527.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2019-2-9 12:41:00 | 显示全部楼层
楼主,是不是生成三角网,然后再生成等高线更方便些


                               
登录/注册后可看大图



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 13:48:56 | 显示全部楼层
Lisphk 发表于 2019-2-9 12:41
楼主,是不是生成三角网,然后再生成等高线更方便些

感谢,感觉您提供的是我一直想学的,就是内容复杂,自己能懂的部分太少。希望有时间好好学习。

点评

用XDRX API,都是现成的函数,你有LISP语言的基础就行了。  详情 回复 发表于 2019-2-10 17:22
用XDRX API,都是现成的函数,你有LISP语言的基础就行了。  详情 回复 发表于 2019-2-10 17:22
用XDRX API,都是现成的函数,你有LISP语言的基础就行了。  详情 回复 发表于 2019-2-10 17:22
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 13:58:44 | 显示全部楼层
附图为两个小程序的过程:excel数据为原始数据,包含坐标点,高程数据,整理后得最后一列,为:坐标和高程竖向排列。在cad输入chou命令后将该部分数据粘贴进去,就得到了地形(高程点)情况。 最后一幅图为 连线作业情况,最终勾连出地形图。   方法原始,但对于我个人来说十分容易理解和操作。
展点原始数据.png
展点成果.png
地形处理图.png

点评

请把你的EXCEL文件,和成果DWG文件 压缩,传上来,看看。  详情 回复 发表于 2019-2-9 14:05
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-2-9 14:05:39 | 显示全部楼层
arker 发表于 2019-2-9 13:58
附图为两个小程序的过程:excel数据为原始数据,包含坐标点,高程数据,整理后得最后一列,为:坐标和高程 ...

请把你的EXCEL文件,和成果DWG文件 压缩,传上来,看看。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 14:39:39 | 显示全部楼层
newer 发表于 2019-2-9 14:05
请把你的EXCEL文件,和成果DWG文件 压缩,传上来,看看。

刚刚重新测试了一次,输入 chou  命令进行展点的时候需要输入字高,然后就把excel最后一列复制了直接粘贴到cad输入命令处就行。
至于 tt 命令,则是点一条直线,输入两个高程就可以了。

展点文件.zip

31.93 KB, 下载次数: 0, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

 楼主| 发表于 2019-2-9 15:02:19 | 显示全部楼层
刚刚excel没保存,空的

展点文件.zip

33.44 KB, 下载次数: 4, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 550个

财富等级: 财运亨通

发表于 2019-2-10 17:18:57 | 显示全部楼层
谢谢楼主分享知识
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2019-8-26 18:23 , Processed in 0.224375 second(s), 62 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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