明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 6705|回复: 30

[源码] 测绘专业源代码

  [复制链接]
发表于 2013-8-6 15:51 | 显示全部楼层 |阅读模式
本帖最后由 yjpzc 于 2013-8-7 18:21 编辑




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

本帖子中包含更多资源

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

x
"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2018-1-16 23:29 | 显示全部楼层
我也是同行。。看着眼馋。。。就是没有币啊。。。。。。
发表于 2018-3-26 08:18 | 显示全部楼层
代码不错给测绘工作者顶一下
发表于 2018-3-24 22:36 | 显示全部楼层
只有这些吗,有没有更实用些的?
发表于 2013-8-6 15:57 | 显示全部楼层
谢谢,学习学习
发表于 2013-8-6 16:00 | 显示全部楼层
楼主都有哪些程序??
 楼主| 发表于 2013-8-6 16:09 | 显示全部楼层
ucuc2003 发表于 2013-8-6 16:00
楼主都有哪些程序??

已上部分文件名截图
发表于 2013-8-6 17:15 | 显示全部楼层
aing是什么函数?怎么没有?
 楼主| 发表于 2013-8-6 17:17 | 显示全部楼层
陈亚娣 发表于 2013-8-6 17:15
aing是什么函数?怎么没有?

那个文件下的 我查看看
发表于 2013-8-6 17:19 | 显示全部楼层
【(defun c:mj ()                                ;房屋属性写入
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq mj1 (ssget "X" '()))
  (if mj1
    (progn
      (setq mj2 (sslength mj1))
      (setq mj3 0)
      (setq %1 (/ 100.0 mj2))
      (princ "\n 数据更新完成< 0.00% >...")
      (while (< mj3 mj2)
        (setq mj4 (ssname mj1 mj3))        ;(setq mj4 (car (entsel)))(setq mj5 (aing mj4 "SOUTH"))
        (setq mj5 (aing mj4 "SOUTH"))
                                        ;(if (or (= mj5 "144301-2") (= mj5 "143912")) (command "change" mj4 "" "P" "lt" "Continuous" ""))
                                        ;(if (= mj5 "141700") (command "change" mj4 "" "P" "lt" "X5" ""))


                                        ;(if (= mj5 "201102") (COMMAND "PEDIT" mj4 "W" "0.15" ""))
                                        ;(if (= mj5 "201101") (COMMAND "PEDIT" mj4 "W" "0.075" ""))
                                        ;(if (or (= mj5 "215400") (= mj5 "216100")) (command "change" mj4 "" "P" "lt" "1161" ""))
                                        ;(if (= mj5 "164400") (command "change" mj4 "" "P" "lt" "X6" ""))
                                        ;(if (or (= mj5 "204400-1") (= mj5 "204410-1") (= mj5 "204420-1")) (command "change" mj4 "" "P" "lt" "Continuous" ""))。。。。。。。】
发表于 2013-8-6 17:19 | 显示全部楼层
yjpzc 发表于 2013-8-6 17:17
那个文件下的 我查看看

【(defun c:mj ()                                ;房屋属性写入
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq mj1 (ssget "X" '()))
  (if mj1
    (progn
      (setq mj2 (sslength mj1))
      (setq mj3 0)
      (setq %1 (/ 100.0 mj2))
      (princ "\n 数据更新完成< 0.00% >...")
      (while (< mj3 mj2)
        (setq mj4 (ssname mj1 mj3))        ;(setq mj4 (car (entsel)))(setq mj5 (aing mj4 "SOUTH"))
        (setq mj5 (aing mj4 "SOUTH"))
                                        ;(if (or (= mj5 "144301-2") (= mj5 "143912")) (command "change" mj4 "" "P" "lt" "Continuous" ""))
                                        ;(if (= mj5 "141700") (command "change" mj4 "" "P" "lt" "X5" ""))


                                        ;(if (= mj5 "201102") (COMMAND "PEDIT" mj4 "W" "0.15" ""))
                                        ;(if (= mj5 "201101") (COMMAND "PEDIT" mj4 "W" "0.075" ""))
                                        ;(if (or (= mj5 "215400") (= mj5 "216100")) (command "change" mj4 "" "P" "lt" "1161" ""))
                                        ;(if (= mj5 "164400") (command "change" mj4 "" "P" "lt" "X6" ""))
                                        ;(if (or (= mj5 "204400-1") (= mj5 "204410-1") (= mj5 "204420-1")) (command "change" mj4 "" "P" "lt" "Continuous" ""))。。。。。。。】
还有一个是乱码的
 楼主| 发表于 2013-8-6 17:30 | 显示全部楼层
陈亚娣 发表于 2013-8-6 17:19
【(defun c:mj ()                                ;房屋属性写入
  (setvar "cmdecho" 0)
  (setvar " ...

(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)
发表于 2013-8-7 10:10 | 显示全部楼层
yjpzc 发表于 2013-8-6 17:30
(defun aing (aing1 aing0) ;(setq aing1 (car (entsel)))
  (setq aing2 (entget aing1 (list "*")))
...

有没有示例图形什么的?你这房屋属性写入运行后再查询结什么都是ni!可以上传个示例图吗?l
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 23:47 , Processed in 0.262551 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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