测绘专业源代码

yjpzc · 发表于 2013-8-6 15:51:46

本帖最后由 yjpzc 于 2013-8-7 18:21 编辑

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

wosyuwu · 发表于 2018-1-16 23:29:33

我也是同行。。看着眼馋。。。就是没有币啊。。。。。。

邓超0203 · 发表于 2018-3-26 08:18:01

代码不错给测绘工作者顶一下

idehua2017 · 发表于 2018-3-24 22:36:15

只有这些吗，有没有更实用些的？

gtj116600 · 发表于 2013-8-6 15:57:20

谢谢，学习学习

ucuc2003 · 发表于 2013-8-6 16:00:37

楼主都有哪些程序？？

yjpzc · 发表于 2013-8-6 16:09:21

ucuc2003 发表于 2013-8-6 16:00
楼主都有哪些程序？？

已上部分文件名截图

陈亚娣 · 发表于 2013-8-6 17:15:55

aing是什么函数？怎么没有？

yjpzc · 发表于 2013-8-6 17:17:07

陈亚娣发表于 2013-8-6 17:15
aing是什么函数？怎么没有？

那个文件下的我查看看

陈亚娣 · 发表于 2013-8-6 17:19:01

【(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:43

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" ""))。。。。。。。】
还有一个是乱码的

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

陈亚娣发表于 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:17

yjpzc 发表于 2013-8-6 17:30
(defun aing (aing1 aing0) ;(setq aing1 (car (entsel)))
(setq aing2 (entget aing1 (list "*")))
...

有没有示例图形什么的？你这房屋属性写入运行后再查询结什么都是ni！可以上传个示例图吗？l

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

[源码] 测绘专业源代码

本帖子中包含更多资源

本帖被以下淘专辑推荐:

相关帖子