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

测绘专业源代码

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




论坛放源代码比较多，但是放专业代码的大家还是有些舍不得，就此我在这里先放出一部份测绘专业的源代码。http://cache.soso.com/img/img/e100.gif

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 static/image/common/back.gif
楼主都有哪些程序？？

已上部分文件名截图

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

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

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

陈亚娣 发表于 2013-8-6 17:15 static/image/common/back.gif
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 static/image/common/back.gif
那个文件下的 我查看看

【(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 static/image/common/back.gif
【(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 nilaing0 (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 static/image/common/back.gif
(defun aing (aing1 aing0) ;(setq aing1 (car (entsel)))
(setq aing2 (entget aing1 (list "*")))
...

有没有示例图形什么的？你这房屋属性写入运行后再查询结什么都是ni！可以上传个示例图吗？l
页: [1] 2 3
查看完整版本: 测绘专业源代码