明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 949|回复: 9

简码成图功能

[复制链接]
发表于 2024-5-28 09:49 | 显示全部楼层 |阅读模式
依仁测绘工具的简码成图功能对于一线测图人员而言,无疑是一项极为便捷的工具。它不仅简化了繁琐的制图流程,更通过其直观易用的设计,使得快速成图成为可能。这一功能极大地提高了测图人员的工作效率,同时也保证了成图的准确性和专业性。



本帖子中包含更多资源

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

x
发表于 2024-5-29 09:42 | 显示全部楼层
south 发表于 2024-5-29 08:05
多点几个这个就行了

感谢提醒,已点
回复 支持 0 反对 1

使用道具 举报

发表于 2024-5-29 01:41 | 显示全部楼层
429014673 发表于 2024-5-28 11:57
这种广告不要发上来吧,程序又不见

发广告也算了,TM连个动画都看不清楚,把动画做大一点会被判几年?
回复 支持 1 反对 0

使用道具 举报

发表于 2024-5-28 11:57 | 显示全部楼层
这种广告不要发上来吧,程序又不见
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2024-5-28 09:51 | 显示全部楼层
QQ交流群: 467688676。联系QQ:674756979或290327725。抖音号:YRCT。
发表于 2024-5-28 09:57 | 显示全部楼层
这面界面很简洁,赞
发表于 2024-5-28 11:04 | 显示全部楼层
本帖最后由 弥勒 于 2024-5-28 11:07 编辑




本帖子中包含更多资源

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

x
发表于 2024-5-29 08:05 | 显示全部楼层
多点几个这个就行了
发表于 2024-5-29 08:15 | 显示全部楼层

这个记忆有趣,但不明白是用在哪
发表于 2024-5-30 14:33 | 显示全部楼层
moranyuyan 发表于 2024-5-29 08:15
这个记忆有趣,但不明白是用在哪

用于绘制地形图时,用GPS测一个井位坐标,给一个代码,绘制时自动绘制 .例:1,DJ, Y , X , Z
;;; 功能:坐标数据展点,并展绘独立地物符号。
;;; 日期:20211230 ZHAOLIBING  20230523修改
(vl-load-com)
(defun C:ZH( / FILE i zn MN moden IN XN YN  F1 STR str1 LST zdm)
   (UseLimit)
          (setvar "cmdecho" 0)
          (setq mode (getstring "\n 默认标准CASS展点格式:非标准[排序(切换大写,例:IYXZM)编号(I),X值(X),Y值(Y),Z值(Z),DM(M)]:" ))
          (setq zdm  (getstring "\n 帅哥是否需要展绘符号:[不展绘输入:1 ,展绘 直接回车]" ))
                (if (OR (= zdm NIL) (= zdm ""))
                     (setq zdm "")
                )
          ;(princ "\n读取全站仪文件数据,绘制点位。")
          (setq FILE (getfiled "选择.dat.txt文件" "" "dat;txt" 4))
                (if (OR (= mode NIL) (= mode ""))
                    (setq mode "IMYXZ")
                )
           (setq i 1)
           (setq zn "")
           (setq MN "")
           (setq moden (strlen mode))
           (while ( <= i moden)
                 (cond ((= (substr mode i 1) "I")  (setq IN (- i 1)))
                       ((= (substr mode i 1) "X")  (setq XN (- i 1)))
                       ((= (substr mode i 1) "Y")  (setq YN (- i 1)))
                       ((= (substr mode i 1) "Z")  (setq ZN (- i 1)))
                       ((= (substr mode i 1) "M")  (setq MN (- i 1)))
                  )
                (setq i( + i 1))
            );while

      ;;读模式打开lsp文件
      (setq F1 (open FILE "r"))
      ;;逐行读入
          (while (setq STR (read-line F1))
                 (setq str1 (str-th str '(("," " "))))
                 (setq LST (read (strcat "(" STR1 ")")))
                 (if (>= (length lst) moden)
                   (progn
                       (setq id (nth IN lst))
                       (setq x  (nth XN lst))
                       (setq y  (nth YN lst))
                       (if (/= ZN "")(setq  z  (nth ZN lst)) (setq  z  0))
                       (if (/= MN "")(setq  dm (nth MN lst)))
                       (setq pt (list y x z))

     ;;输出操作
                            (command "layer" "make" "中土点号" "c"  "5" "中土点号" "")
                            (command "_.point" "non" PT)
                            (command "_.text" "non" PT 0.5 0 (vl-princ-to-string (nth IN lst)))

                            (command "layer" "make" "中土代码" "c"  "4" "中土代码" "")
                            (command "_.point" "non" PT)
                              (if (/= MN "")
                                 (command "_.text" "non" PT 0.5 0 (vl-princ-to-string (nth MN lst)))
                              )


                               ;以下为规律 每行一个类别 可以编辑
                                                                           ;              关键字                  块名        颜色、图层                 cass编码
        (cond
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "YJ") (= (vl-princ-to-string (nth MN lst)) "6")))   (entmake-dzw "gc053"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "175101"))))));雨水#
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "WJ") (= (vl-princ-to-string (nth MN lst)) "5")))   (entmake-dzw "gc043"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174200"))))));污水#
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "XJ") (= (vl-princ-to-string (nth MN lst)) "8")))   (entmake-dzw "gc048"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174601"))))));电信#
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "SJ") (= (vl-princ-to-string (nth MN lst)) "4")))   (entmake-dzw "gc042"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174100"))))));给水#
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "ZSJ") (= (vl-princ-to-string (nth MN lst)) "4")))   (entmake-dzw "gc042"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174100"))))));中水井#

              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "XF") (= (vl-princ-to-string (nth MN lst)) "3")))   (entmake-dzw "gc133"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "175200"))))));消防栓
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "DJ") (= (vl-princ-to-string (nth MN lst)) "1")))   (entmake-dzw "gc050"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174700"))))));电力#
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "RQ") (= (vl-princ-to-string (nth MN lst)) "7")))   (entmake-dzw "gc046"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174400"))))));燃气#
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "RJ") (= (vl-princ-to-string (nth MN lst)) "2")))   (entmake-dzw "gc047"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174500"))))));热力#
              ( ( and (/= zdm "1") (or (= (vl-princ-to-string (nth MN lst)) "DX") (= (vl-princ-to-string (nth MN lst)) "9")))   (entmake-dzw "gc129"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "171802"))))));小电箱
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "BZ"))  (entmake-dzw "gc041"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "175102"))))));雨篦子
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "WM"))  (entmake-dzw "gc188"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "174900"))))));不明#
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "SLT")) (entmake-dzw "gc135"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "175400"))))));水龙头

                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "DLZ")) (entmake-dzw "gc234"    pt 2 "GXYZ"  '((-3 ("SOUTH" (1000 . "171103"))))));电缆桩

                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "DF"))  (entmake-dzw "gc110"    pt 11 "DLDW" '((-3 ("SOUTH" (1000 . "158701"))))));独立坟头
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "ZSD")) (entmake-dzw "gc019"    pt 11 "DLDW" '((-3 ("SOUTH" (1000 . "155221"))))));射灯
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "SD"))  (entmake-dzw "gc097"    pt 11 "DLDW" '((-3 ("SOUTH" (1000 . "158701"))))));双灯

                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "HD"))  (entmake-dzw "gc037"    pt 4  "DLSS" '((-3 ("SOUTH" (1000 . "165102"))))));涵洞
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "DD"))  (entmake-dzw "gc203"    pt 4  "DLSS" '((-3 ("SOUTH" (1000 . "162500"))))));单路灯
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "LB"))  (entmake-dzw "gc052"    pt 4  "DLSS" '((-3 ("SOUTH" (1000 . "165603"))))));路标
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "TT"))  (entmake-dzw "gc063"    pt 4  "DLSS" '((-3 ("SOUTH" (1000 . "168600"))))));监控
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "HLD")) (entmake-dzw "gc076"    pt 4  "DLSS" '((-3 ("SOUTH" (1000 . "165604"))))));红绿灯
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "GLZ")) (entmake-dzw "gc038"    pt 4  "DLSS" '((-3 ("SOUTH" (1000 . "165601"))))));公路桩

                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "DS"))  (entmake-dzw "gc143"    pt 3  "ZBTZ" '((-3 ("SOUTH" (1000 . "213801"))))));单树
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "GS"))  (entmake-dzw "gc145"    pt 3  "ZBTZ" '((-3 ("SOUTH" (1000 . "213803"))))));单果
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "SS"))  (entmake-dzw "gc144"    pt 3  "ZBTZ" '((-3 ("SOUTH" (1000 . "213802"))))));单松

                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst))  "X"))  (entmake-dzw "gc107"    pt 11 "DLDW" '((-3 ("SOUTH" (1000 . "156302"))))));雕像
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "QG"))  (entmake-dzw "gc098"    pt 11 "DLDW" '((-3 ("SOUTH" (1000 . "156400"))))));旗杆

                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "KG"))  (entmake-dzw "gcbj0117"  pt 4  "COMPONENT" '((-3 ("SOUTH" (1000 . "340117"))))));空杆
                                   ( ( and (/= zdm "1")(= (vl-princ-to-string (nth MN lst)) "JJ"))  (entmake-dzw "gc146"     pt 5  "SXSS" '((-3 ("SOUTH" (1000 . "185102"))))));机井


   );cond



                    )
                  (princ (strcat "\n数据不完整:" str1))
                )
          ) ;_结束 while
      ;;关闭文件
       (close F1)
  (princ)
) ;_ 结束defun
;;;=============================================================


您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-6-22 21:42 , Processed in 0.211752 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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