遇到鬼了，这个程序怎么运行不了，各位大大帮我审一下呢

wangzezhige

老是提示
命令: qaz
未知命令“QAZ”。按 F1 查看帮助。

        ;wxq 2013 12 29
;批量选择横断面，提取各断面地面高程 工作图形为公路横断面图

(defun  c:qaz ()
  (alert "选择要出数据的横断面图元")
  (setq sss (ssget '((0 . "TEXT") (8 . "shuju")))) ;框选所有横断面桩号
  (vl-load-com)
  (setq        i 0
        biao nil
        jl 2
        j 1
        TW nil
        zbb nil
        ss1 nil
        zh nil
        sstwg nil

  )                                        ;jl为框选半径
  (repeat (sslength sss)
    (setq name (ssname sss i))
    (setq text (cdr (assoc 1 (entget name))))
    (if        (vl-string-position (ascii "K") text)
      (setq biao (append (list name) biao))
    )
    (setq i (1+ i))
  )
  (princ (strcat "/n共有横断面" (itoa (length biao)) "个"))


  (princ)

                                        ;----------------------------------------------------------------------------------------------
  (foreach name        biao                        ;程序遍历每个横断面

    (setq zh (cdr (assoc 1 (entget name)))) ;本横断面桩号
    (setq pt (cdr (assoc 11 (entget name)))) ;取桩号文字处的坐标

                                        ;找本桩横断面的多线（地面线）。
    (while j
      (setq pt1 (list (- (car pt) jl) (- (cadr pt) jl) 0))
      (setq pt2 (list (+ (car pt) jl) (+ (cadr pt) jl) 0))


      (setq ss1 (ssget "C" pt1 pt2 '((0 . "POLYLINE") (8 . "dmx"))))
                                        ;选择各个地面高程多段线
      (if (= (sslength ss1) 1)

        (setq j nil)                        ;跳出循环

        (setq jl (1+ jl))                ;扩大寻找范围
      )

    )

    (princ
      yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
    )
                                        ;找到每个横断面的设计高程填挖高。
    (setq j   1
          jl  1.75
          jly 4.4
    )

    (setq pt1 (list (- (car pt) jl) (- (cadr pt) jly) 0))
    (setq pt2 (list (+ (car pt) jl) (+ (cadr pt) jly) 0))

    (setq sstwg (ssget "C" pt1 pt2 '((0 . "TEXT") (8 . "shuju"))))
                                        ;选择填挖高文字
    (setq i 0)
    (repeat (sslength sstwg)
      (setq name1 (ssname sstwg i))
      (setq text (cdr (assoc 1 (entget name1))))
      (if (vl-string-position (ascii "Wz=") text)
                                        ;如果字符串中含有Wz字样，锁定为填挖高字符。
        (setq tw text)
      )
      (setq i (1+ i))
    )


    (if        (/= nil (vl-string-search "Ht" tw))
      (setq WT -1)
      (setq wt 1)
    )                                        ;判断是填还是挖
    (setq zcd (strlen tw))                ;求字串长度
    (setq cd (vl-string-search " Wz=" tw)) ;求Wz字样的起始长度位置
    (setq tw (substr tw 4 (- cd 3))

          (setq
            zbb        (vlax-get (vlax-ename->vla-object (ssname ss1 0))
                          "coordinates"
                )
          )                                ;获取多线顶点坐标表
           (setq ddgs (length zbb))



    )

                                        ;输出文件

    (setq file_id (open "e:/设计图纸原地面数据.txt" "a"))
    (setq xrz (list zh tw ddgs))
    (print xrz file_id)
  )
                                        ;----------------------------------------------------------------------------------------
  (princ)
)

edata

2. ;wxq 2013 12 29
   
3. ;批量选择横断面，提取各断面地面高程 工作图形为公路横断面图
   
4. 
   
5. (defun  c:qaz (/ BIAO CD DDGS FILE_ID I J JL JLY NAME NAME1 PT PT1 PT2 SS1 SSS SSTWG TEXT TW WT XRZ  ZBB ZCD ZH)
   
6.   (alert "选择要出数据的横断面图元")
   
7.   (setq sss (ssget '((0 . "TEXT") (8 . "shuju")))) ;框选所有横断面桩号
   
8.   (vl-load-com)
   
9.   (setq i 0
   
10.         biao nil
    
11.         jl 2
    
12.         j 1
    
13.         TW nil
    
14.         zbb nil
    
15.         ss1 nil
    
16.         zh nil
    
17.         sstwg nil
    
18.   )                                        ;jl为框选半径
    
19.   (repeat (sslength sss)
    
20.     (setq name (ssname sss i))
    
21.     (setq text (cdr (assoc 1 (entget name))))
    
22.     (if        (vl-string-position (ascii "K") text)
    
23.       (setq biao (append (list name) biao))
    
24.     )
    
25.     (setq i (1+ i))
    
26.   )
    
27.   (princ (strcat "\n共有横断面" (itoa (length biao)) "个"))
    
28.   (princ)                                        ;----------------------------------------------------------------------------------------------
    
29.   (foreach name        biao                        ;程序遍历每个横断面
    
30.     (setq zh (cdr (assoc 1 (entget name)))) ;本横断面桩号
    
31.     (setq pt (cdr (assoc 11 (entget name)))) ;取桩号文字处的坐标
    
32.                                         ;找本桩横断面的多线（地面线）。
    
33.     (while j
    
34.       (setq pt1 (list (- (car pt) jl) (- (cadr pt) jl) 0))
    
35.       (setq pt2 (list (+ (car pt) jl) (+ (cadr pt) jl) 0))
    
36.       (setq ss1 (ssget "C" pt1 pt2 '((0 . "POLYLINE") (8 . "dmx"))))
    
37.                                         ;选择各个地面高程多段线
    
38.       (if (= (sslength ss1) 1)
    
39.         (setq j nil)                        ;跳出循环
    
40.         (setq jl (1+ jl))                ;扩大寻找范围
    
41.       )
    
42.     )
    
43.     (princ);找到每个横断面的设计高程填挖高。
    
44.     (setq j   1
    
45.           jl  1.75
    
46.           jly 4.4
    
47.     )
    
48.     (setq pt1 (list (- (car pt) jl) (- (cadr pt) jly) 0))
    
49.     (setq pt2 (list (+ (car pt) jl) (+ (cadr pt) jly) 0))
    
50.     (setq sstwg (ssget "C" pt1 pt2 '((0 . "TEXT") (8 . "shuju"))))  ;选择填挖高文字
    
51.     (setq i 0)
    
52.     (repeat (sslength sstwg)
    
53.       (setq name1 (ssname sstwg i))
    
54.       (setq text (cdr (assoc 1 (entget name1))))
    
55.       (if (vl-string-position (ascii "Wz=") text);如果字符串中含有Wz字样，锁定为填挖高字符。
    
56.         (setq tw text)
    
57.       )
    
58.       (setq i (1+ i))
    
59.     )
    
60.     (if        (/= nil (vl-string-search "Ht" tw))
    
61.       (setq WT -1)
    
62.       (setq wt 1)
    
63.     )                                        ;判断是填还是挖
    
64.     (setq zcd (strlen tw))                ;求字串长度
    
65.     (setq cd (vl-string-search " Wz=" tw)) ;求Wz字样的起始长度位置
    
66.     (setq tw (substr tw 4 (- cd 3)))
    
67.           (setq zbb (vlax-get (vlax-ename->vla-object (ssname ss1 0)) "coordinates" ));获取多线顶点坐标表
    
68.            (setq ddgs (length zbb)) ;输出文件
    
69.     (setq file_id (open "e:/设计图纸原地面数据.txt" "a"))
    
70.     (setq xrz (list zh tw ddgs))
    
71.     (print xrz file_id)
    
72.   );----------------------------------------------------------------------------------------
    
73.   (princ)
    
74. )

;wxq 2013 12 29<br /> ;批量选择横断面，提取各断面地面高程 工作图形为公路横断面图<br /> <br /> (defun  c:qaz (/ BIAO CD DDGS FILE_ID I J JL JLY NAME NAME1 PT PT1 PT2 SS1 SSS SSTWG TEXT TW WT XRZ  ZBB ZCD ZH)<br />   (alert "选择要出数据的横断面图元")<br />   (setq sss (ssget '((0 . "TEXT") (8 . "shuju")))) ;框选所有横断面桩号<br />   (vl-load-com)<br />   (setq i 0<br />         biao nil<br />         jl 2<br />         j 1<br />         TW nil<br />         zbb nil<br />         ss1 nil<br />         zh nil<br />         sstwg nil<br />   )                                        ;jl为框选半径<br />   (repeat (sslength sss)<br />     (setq name (ssname sss i))<br />     (setq text (cdr (assoc 1 (entget name))))<br />     (if        (vl-string-position (ascii "K") text)<br />       (setq biao (append (list name) biao))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ (strcat "\n共有横断面" (itoa (length biao)) "个"))<br />   (princ)                                        ;----------------------------------------------------------------------------------------------<br />   (foreach name        biao                        ;程序遍历每个横断面<br />     (setq zh (cdr (assoc 1 (entget name)))) ;本横断面桩号<br />     (setq pt (cdr (assoc 11 (entget name)))) ;取桩号文字处的坐标<br />                                         ;找本桩横断面的多线（地面线）。<br />     (while j<br />       (setq pt1 (list (- (car pt) jl) (- (cadr pt) jl) 0))<br />       (setq pt2 (list (+ (car pt) jl) (+ (cadr pt) jl) 0))<br />       (setq ss1 (ssget "C" pt1 pt2 '((0 . "POLYLINE") (8 . "dmx"))))<br />                                         ;选择各个地面高程多段线<br />       (if (= (sslength ss1) 1)<br />         (setq j nil)                        ;跳出循环<br />         (setq jl (1+ jl))                ;扩大寻找范围<br />       )<br />     )<br />     (princ);找到每个横断面的设计高程填挖高。<br />     (setq j   1<br />           jl  1.75<br />           jly 4.4<br />     )<br />     (setq pt1 (list (- (car pt) jl) (- (cadr pt) jly) 0))<br />     (setq pt2 (list (+ (car pt) jl) (+ (cadr pt) jly) 0))<br />     (setq sstwg (ssget "C" pt1 pt2 '((0 . "TEXT") (8 . "shuju"))))  ;选择填挖高文字<br />     (setq i 0)<br />     (repeat (sslength sstwg)<br />       (setq name1 (ssname sstwg i))<br />       (setq text (cdr (assoc 1 (entget name1))))<br />       (if (vl-string-position (ascii "Wz=") text);如果字符串中含有Wz字样，锁定为填挖高字符。<br />         (setq tw text)<br />       )<br />       (setq i (1+ i))<br />     )<br />     (if        (/= nil (vl-string-search "Ht" tw))<br />       (setq WT -1)<br />       (setq wt 1)<br />     )                                        ;判断是填还是挖<br />     (setq zcd (strlen tw))                ;求字串长度<br />     (setq cd (vl-string-search " Wz=" tw)) ;求Wz字样的起始长度位置<br />     (setq tw (substr tw 4 (- cd 3)))<br />           (setq zbb (vlax-get (vlax-ename->vla-object (ssname ss1 0)) "coordinates" ));获取多线顶点坐标表<br />            (setq ddgs (length zbb)) ;输出文件<br />     (setq file_id (open "e:/设计图纸原地面数据.txt" "a"))<br />     (setq xrz (list zh tw ddgs))<br />     (print xrz file_id)<br />   );----------------------------------------------------------------------------------------<br />   (princ)<br /> )

wangzezhige

edata 发表于 2013-12-30 21:42

弱弱的问句，这种回复表示这个代码已帮我改好了吗？怎么我复制到自带编辑器，代码变成一行了呢？都不换行？并且好像还是不能执行呢。。。。。
命令: QAZ
未知命令“QAZ”。按 F1 查看帮助。

edata

wangzezhige 发表于 2013-12-30 22:53
弱弱的问句，这种回复表示这个代码已帮我改好了吗？怎么我复制到自带编辑器，代码变成一行了呢？都不换行 ...

你不要直接点复制代码那个按钮，不然就变成一行。你可以点普通浏览再点普通浏览的复制代码，
或者直接拖动我回帖的代码Ctrl+C复制。

edata

因为没有测试文件，只是代码通过验证，其他错误暂时没看。。。

wangzezhige

十分感谢edata老师，我再弄一下，我是新手哈，十分感谢 ！！！

wangzezhige

还是弄不好呀，复制进去，不是空的地方变成问号，就是只有一行呢

wangzezhige

我上传一下工作的文件

edata

初步使用了下，你的程序算法上有些问题，待修改。。。

77077

《设计图纸原地面数据》是从横断面图上来的么？
原地面数据不是从地形图上读取？