[LISP函数]：全站仪坐标数据展点

zml84 · 发表于 2007-7-9 13:02:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

<CENTER><H1>全站仪坐标数据展点.lsp</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>;;; 功能：全站仪坐标数据展点
;;; 日期：zml84 于 2007-06-22
(vl-load-com)
(defun C:AAA ()
 (princ "\n读取全站仪文件数据，绘制点位。")
 (if (setq FILE (getfiled "选择dat文件"
 ""
 "dat"
 4
 )
 )
(progn
 ;;询问用户项
 (initget "Yes No")
 (setq key
 (getkword
 "\n是否输出点位？(Y):"
 )
 )

 (initget "1 2 3 4 5")
 (setq mode
 (getkword
 "\n请选择输出项目：[编号(0)/编码(1)/X值(2)/Y值(3)/Z值(4)]:"
 )
 )
 (if (OR (= mode NIL)
 (= mode "")
 )
(setq mode "0")
 )

 ;;读模式打开lsp文件
 (setq F1 (open FILE "r"))
 ;;逐行读入
 (while (setq STR (read-line F1))
;;; (princ "\n")
;;; (princ str)
(setq str1 (str-th str '(("," " "))))
(setq LST (read (strcat "(" STR1 ")")))
(if (>= (length lst) 5)
 (progn
 ;;
 (setq id (nth 0 lst)
 dm (nth 1 lst)
 x (nth 2 lst)
 y (nth 3 lst)
 z (nth 4 lst)
 )
 (setq pt (list (nth 2 lst) (nth 3 lst) (nth 4 lst)))

 ;;输出操作
 (if (= KEY "No")
 ()
 (command "_.point" "non" PT)
 )
 (command "_.text"
 "non"
 PT
 2.5
 0
 (vl-princ-to-string (nth (atoi mode) lst))
 )
 )
 (princ (strcat "\n数据不完整：" str1))
)
 ) ;_结束 while
 ;;关闭文件
 (close F1)
)
 )
 (princ)
) ;_ 结束defun
;;;=============================================================

;|;=====================================================================
 定义函数：替换字符串 
 参数说明： str---欲替换的字符串 
 lst---分割符表，参数类型：表 
 返回值：替换后的字符串 
 类 型：字符串 
 示 例：(str-th "<HTML>" '(("<" "&lt;") (">" "&gt;"))) 
 返 回："&lt;HTML&gt;" 
 日 期：zml84 于2007-05-08 
|;
(defun STR-TH (STR LST / I A B LEN-A TMP J STRJ)
 (if (and STR LST)
(progn
 (setq I 0)
 (repeat (length LST)
(setq A (car (nth I LST))
 LEN-A (strlen A)
 B (cadr (nth I LST))
 TMP ""
)

(if (>= (strlen STR) LEN-A)
 (progn
 (setq J 1)
 (repeat (- (strlen STR)
 LEN-A
 -1
 )
 (setq
STRJ (substr STR
 J
 1
 )
 )
 (if (= STRJ A)
(setq TMP
 (strcat TMP
 B
 )
)
(setq TMP
 (strcat
 TMP
 STRJ
 )
)
 )
 (setq J (1+ J))
 )
 )
)

(setq I (1+ I)
 STR TMP
)
 )
)
 ) ;_结束 if
 STR
) ;_ 结束defun

;;;=====================================================================
;;;加载后的提示信息
(princ "\n全站仪坐标数据展点加载完成!!")
(princ "\n★输入命令aaa开始运行。")
(princ)
</PRE>

zlzlzlzl · 发表于 2007-7-28 12:24:03

好东西，怎么没人顶啊！
玩测量的人少？？？？？

ji3499222 · 发表于 2007-7-30 07:30:39

这个插件肯定受欢迎，只是不会用。

zml84 · 发表于 2007-7-31 11:55:40

将代码复制后，在acad中加载后，输入命令aaa即可运行。
代码完美显示见：
http://zml84.blog.sohu.com/54345418.html

ji3499222 · 发表于 2007-7-31 15:58:20

加载完后运行出错，不知为何。

zml84 · 发表于 2007-7-31 20:58:41

;;; 功能：全站仪坐标数据展点
;;; 日期：zml84 于 2007-06-22
(vl-load-com)
(defun C:AAA ()
(princ "\n读取全站仪文件数据，绘制点位。")
(if (setq FILE (getfiled "选择dat文件"
""
"dat"
4
)
)
(progn
;;询问用户项
(initget "Yes No")
(setq key
(getkword
"\n是否输出点位？(Y):"
)
)
(initget "1 2 3 4 5")
(setq mode
(getkword
"\n请选择输出项目：[编号(0)/编码(1)/X值(2)/Y值(3)/Z值(4)]:"
)
)
(if (OR (= mode NIL)
(= mode "")
)
(setq mode "0")
)
;;读模式打开lsp文件
(setq F1 (open FILE "r"))
;;逐行读入
(while (setq STR (read-line F1))
;;; (princ "\n")
;;; (princ str)
(setq str1 (str-th str '(("," " "))))
(setq LST (read (strcat "(" STR1 ")")))
(if (>= (length lst) 5)
(progn
;;
(setq id (nth 0 lst)
dm (nth 1 lst)
x (nth 2 lst)
y (nth 3 lst)
z (nth 4 lst)
)
(setq pt (list (nth 2 lst) (nth 3 lst)(nth 4 lst)))
;;输出操作
(if (= KEY "No")
()
(command "_.point" "non" PT)
)
(command "_.text"
"non"
PT
2.5
0
(vl-princ-to-string (nth (atoi mode) lst))
)
)
(princ (strcat "\n数据不完整：" str1))
)
) ;_结束 while
;;关闭文件
(close F1)
)
)
(princ)
) ;_ 结束defun
;;;=============================================================
;|;=====================================================================
定义函数：替换字符串
参数说明： str---欲替换的字符串
lst---分割符表，参数类型：表
返回值：替换后的字符串
类型：字符串
示例：(str-th "<HTML>" '(("<" "<") (">" ">")))
返回："<HTML>"
日期：zml84 于2007-05-08
|;
(defun STR-TH (STR LST / I A B LEN-A TMP J STRJ)
(if (and STR LST)
(progn
(setq I 0)
(repeat (length LST)
(setq A (car (nth I LST))
LEN-A (strlen A)
B (cadr (nth I LST))
TMP ""
)
(if (>= (strlen STR) LEN-A)
(progn
(setq J 1)
(repeat (- (strlen STR)
LEN-A
-1
)
(setq
STRJ (substr STR
J
1
)
)
(if (= STRJ A)
(setq TMP
(strcat TMP
B
)
)
(setq TMP
(strcat
TMP
STRJ
)
)
)
(setq J (1+ J))
)
)
)
(setq I (1+ I)
STR TMP
)
)
)
) ;_结束 if
STR
) ;_ 结束defun
;;;=====================================================================
;;;加载后的提示信息
(princ "\n全站仪坐标数据展点加载完成!!")
(princ "\n★输入命令aaa开始运行。")
(princ)

;;; 功能：全站仪坐标数据展点 
;;; 日期：zml84 于 2007-06-22 
(vl-load-com) 
(defun C:AAA () 
  (princ "\n读取全站仪文件数据，绘制点位。") 
  (if (setq FILE (getfiled "选择dat文件" 
                           "" 
                           "dat" 
                           4 
                 ) 
      ) 
    (progn 
      ;;询问用户项 
      (initget "Yes No") 
      (setq key 
             (getkword 
               "\n是否输出点位？(Y):" 
             ) 
      ) 
 
      (initget "1 2 3 4 5") 
      (setq mode 
             (getkword 
               "\n请选择输出项目：[编号(0)/编码(1)/X值(2)/Y值(3)/Z值(4)]:" 
             ) 
      ) 
      (if (OR (= mode NIL) 
              (= mode "") 
          ) 
        (setq mode "0") 
      ) 
 
      ;;读模式打开lsp文件 
      (setq F1 (open FILE "r")) 
      ;;逐行读入 
      (while (setq STR (read-line F1)) 
;;;        (princ "\n") 
;;;        (princ str) 
        (setq str1 (str-th str '(("," " ")))) 
        (setq LST (read (strcat "(" STR1 ")"))) 
        (if (>= (length lst) 5) 
          (progn 
            ;; 
            (setq id (nth 0 lst) 
                  dm (nth 1 lst) 
                  x  (nth 2 lst) 
                  y  (nth 3 lst) 
                  z  (nth 4 lst) 
            ) 
            (setq pt (list (nth 2 lst) (nth 3 lst)(nth 4 lst))) 
 
            ;;输出操作 
            (if        (= KEY "No") 
              () 
              (command "_.point" "non" PT) 
            ) 
            (command "_.text" 
                     "non" 
                     PT 
                     2.5 
                     0 
                     (vl-princ-to-string (nth (atoi mode) lst)) 
            ) 
          ) 
          (princ (strcat "\n数据不完整：" str1)) 
        ) 
      ) ;_结束 while 
      ;;关闭文件 
      (close F1) 
    ) 
  ) 
  (princ) 
) ;_ 结束defun 
;;;============================================================= 
 
;|;===================================================================== 
        定义函数：替换字符串                                                
        参数说明：        str---欲替换的字符串                                
                        lst---分割符表，参数类型：表                        
        返回值：替换后的字符串                                                
        类  型：字符串                                                        
        示  例：(str-th "<HTML>" '(("<" "&lt;") (">" "&gt;")))                
                        返  回："&lt;HTML&gt;"                                
        日  期：zml84 于2007-05-08                                        
|; 
(defun STR-TH (STR LST / I A B LEN-A TMP J STRJ) 
  (if (and STR LST) 
    (progn 
      (setq I 0) 
      (repeat (length LST) 
        (setq A            (car (nth I LST)) 
              LEN-A (strlen A) 
              B            (cadr (nth I LST)) 
              TMP   "" 
        ) 
 
        (if (>= (strlen STR) LEN-A) 
          (progn 
            (setq J 1) 
            (repeat (- (strlen STR) 
                       LEN-A 
                       -1 
                    ) 
              (setq 
                STRJ (substr STR 
                             J 
                             1 
                     ) 
              ) 
              (if (= STRJ A) 
                (setq TMP 
                       (strcat TMP 
                               B 
                       ) 
                ) 
                (setq TMP 
                       (strcat 
                         TMP 
                         STRJ 
                       ) 
                ) 
              ) 
              (setq J (1+ J)) 
            ) 
          ) 
        ) 
 
        (setq I          (1+ I) 
              STR TMP 
        ) 
      ) 
    ) 
  ) ;_结束 if 
  STR 
) ;_ 结束defun 
 
;;;===================================================================== 
;;;加载后的提示信息 
(princ "\n全站仪坐标数据展点 加载完成!!") 
(princ "\n★输入命令aaa开始运行。") 
(princ)

jx2008 · 发表于 2007-8-25 16:49:24

坐标点文件的格式是怎样的？扩展名只能是dat?

yzys · 发表于 2007-11-30 23:11:39

感谢楼主，好东西！

ooohen · 发表于 2007-12-12 22:37:05

谢谢!!试试看看!!

东山之人 · 发表于 2008-7-3 16:41:52

谢谢，很好的程序。

pfw · 发表于 2008-9-4 20:38:13

没钱不能下载

jx2008 · 发表于 2008-9-10 16:47:49

新的东西有没有阿？

lmf97231 · 发表于 2008-10-1 19:15:05

DAT是什么文件

hnxychf · 发表于 2008-10-5 12:13:11

那个子程序与vl-string-translate功能一样，直接调用就是了。

dreamboat007 · 发表于 2008-11-16 15:21:42

用cass直接就展了

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

[LISP函数]：全站仪坐标数据展点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子