明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 5436|回复: 14

求等高线成批内插程序

[复制链接]
发表于 2007-1-9 11:21 | 显示全部楼层 |阅读模式
那位朋友有等高线成批内插程序啊,给个帮忙!
发表于 2020-9-6 12:24 来自手机 | 显示全部楼层
(defun Lc:DgxInterpolateElevationpoint (pt ss / K PL NAME PZX P2 KK NAME1 PZX1 PZX2 PZX3 GCC JULI1 JULI2 BZ XGC XZB)        (if ss                (progn                        (setq k -1)                        (setq pl '())                        (repeat (sslength ss)                                (setq Name   (ssname ss (setq k (1+ k))))                                (setq pzx (distance (vl-remove  (last pt) pt)  (vl-remove  (last (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name) PT [extend])) (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name) PT [extend]))))                                (setq pl (append pl (list pzx)))                        )                         (setq p2 (vl-sort pl '<))                )        )        (if ss                (progn                        (setq kk -1)                        (repeat (sslength ss)                                (setq Name1 (ssname ss (setq kk (1+ kk))))                                (setq pzx1(distance (vl-remove  (last pt) pt)  (vl-remove  (last (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT [extend])) (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT [extend]))))                                (cond                                        ((equal (car p2) pzx1 0.001)                                                 (setq pzx2 (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT [extend]))                                                                                        )                                        ((equal (cadr p2) pzx1 0.001)                                                 (setq pzx3 (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT [extend]))                                                                                        )                                                                        )                                                        )                        (setq gcc (- (last pzx2) (last pzx3)))                        (setq juli1 (distance (vl-remove (last pzx2) pzx2) (vl-remove (last pzx3) pzx3)))                        (setq juli2 (distance (vl-remove (last pt) pt) (vl-remove (last pzx3) pzx3)))                        (setq bz (/ gcc juli1))                        (setq xgc (+ (last pzx3)(* bz juli2)))                        (setq xzb (list (car pt) (cadr pt) xgc))                )        )        xzb        )
发表于 2020-3-13 22:31 | 显示全部楼层
rark123 发表于 2007-1-24 18:25
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

你好 版主  可以发一份内插的吗   276610952@qq.com
谢谢
发表于 2017-11-2 21:10 来自手机 | 显示全部楼层
能发给我一下吗?729292370@qq.com
发表于 2007-1-24 18:25 | 显示全部楼层

我手里有个 自己做的

但不是批量的

而且还存在一些问题 不过 还可以使用 要的话 邮件联系

cl9829_06@163.com

发表于 2011-11-20 00:07 | 显示全部楼层
测试一下,真的还不错啊 谢谢啊
发表于 2013-1-9 23:52 来自手机 | 显示全部楼层
试用一下谢谢,ffg8435@163.com
发表于 2013-1-10 05:53 | 显示全部楼层
rark123 发表于 2007-1-24 18:25
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

谢谢斑竹!
想求一份,能否发送到461045462@qq.com
谢谢
发表于 2013-1-10 20:37 | 显示全部楼层
rark123 发表于 2007-1-24 18:25
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

版主,我要一份,谢谢,,,
发表于 2015-7-2 23:15 | 显示全部楼层
rark123 发表于 2007-1-24 18:25
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

能发我一下吗?1025756724@qq.com,谢谢
发表于 2015-7-3 14:18 | 显示全部楼层
能发给我一下吗?453208797@qq.com,谢谢
发表于 2017-11-20 15:38 | 显示全部楼层
能不能开源呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 01:02 , Processed in 0.204028 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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