测绘专业源代码

zynyjp · 发表于 2013-8-6 15:48:10

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 zynyjp 于 2013-8-6 15:50 编辑

论坛放源代码比较多，但是放专业代码的大家还是有些舍不得，就此我在这里先放出一部份测绘专业的源代码。{:soso_e100:}

zhangq_cai1 · 发表于 2013-8-6 16:14:55

都有什么内容，贴个图~~~~~~~~~~~~~~~~~

zynyjp · 发表于 2013-8-6 16:24:13

zhangq_cai1 发表于 2013-8-6 16:14
都有什么内容，贴个图~~~~~~~~~~~~~~~~~

慢慢放源码{:soso_e100:}

zynyjp · 发表于 2013-8-6 17:30:28

里面有涉及一个函数补上

(defun aing (aing1 aing0) ;(setq aing1 (car (entsel)))
(setq aing2 (entget aing1 (list "*")))
(setq aing3 (cdr (assoc -3 aing2)))
(setq aing6 nil aing0 (strcase aing0))
(while aing3
(setq aing4 (car aing3))
(setq aing3 (cdr aing3))
(setq aing5 (strcase (car aing4)))
(if (= aing5 aing0) (setq aing6 (cdadr aing4))))
aing6)

Lisphk · 发表于 2013-8-6 17:59:21

感谢楼主分享源码，楼主，提个建议，你应该先看看论坛怎么发布源码，发帖有按钮的，可以美化代码显示的。

soly2006 · 发表于 2013-8-28 21:36:20

不错，支持源码！！！

杜流浪人 · 发表于 2014-5-25 14:05:56

带专业的代码希望你出更多的测绘专业代码支持了

dnbcgrass · 发表于 2014-5-25 14:56:10

支持，谢谢分享{:soso_e179:}

杜流浪人 · 发表于 2014-6-3 13:31:22

支持测绘的源代码

清风明月10 · 发表于 2014-6-7 08:52:12

谢谢楼主的分享！很有用啊。

xxvbn · 发表于 2014-6-7 09:45:42

2222222222222222222222222222222

lhd244 · 发表于 2016-7-5 16:40:27

学习学习。。。。

xxxxxxxxx123 · 发表于 2016-7-26 19:41:24

:):):):):):)谢谢学习学习谢谢分享

w379106181 · 发表于 2018-1-15 14:28:37

正好用得到太感谢了正好用得到太感谢了正好用得到太感谢了

f4800 · 发表于 2020-11-5 12:58:18

正好用得到太感谢了正好用得到太感谢了

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

[每日一码] 测绘专业源代码