高程赋值的一个小问题

sangguoqing · 发表于 2007-7-4 10:12:00

本帖最后由作者于 2007-7-4 13:36:50 编辑

小弟刚来这里,请大哥大姐多关照.

以前没有接触过vba,所以现在很头痛.

cad中的点中没有高程信息,但是旁边的标注上有,我想将标注的数据赋给它所对应的点.不知道这个程序该怎么写,在这里请求各位大哥大姐帮忙了,先谢谢了

laoliu09 · 发表于 2007-7-4 10:34:00

这个可以通过搜索点旁边的文字，然后得知高程，也可以直接搜索所有高程标注，然后在文字插入点生成一个高程点，一个是正向思路，一个是逆向思路，随便选！已经有软件实行这个功能了，这就是我们水工行业的ZDM！请记住水工行业有一个画图软件叫ZDM。

tnt1095 · 发表于 2007-7-5 08:32:00

把搜索到的文字高程信息放到点的Z值中就可以了，或者放到Xdata中也行

zml84 · 发表于 2007-7-9 12:46:00

本帖最后由作者于 2007-7-9 12:49:29 编辑

sangguoqing发表于2007-7-4 10:12:00小弟刚来这里,请大哥大姐多关照.以前没有接触过vba,所以现在很头痛.cad中的点中没有高程信息,但是旁边的标注上有,我想将标注的数据赋给它所对应的点.不知道这个程序该怎么写,在这里请求各位大哥

cad中的点是从何而来的?

;;; 功能：全站仪坐标数据展点
;;; 日期：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>" '(("<" "<") (">" ">")))  
   返  回："<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)

hosteboy · 发表于 2007-7-10 16:56:00

我用的是VB，不知道你用的是什么语言，我也要用到全站仪数据绘制点位，最开始我利用VB在CAD中绘制的点是包含有z点高程的，可后来我又删除了，我所在的行业不需要三维作图，有需要联系QQ：87545957

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