请问各位大侠用什么命令可以在cad图上自动搜索有z高程的坐标点啊

pros

请问各位大侠用什么命令可以在cad图上自动搜索有z高程的坐标点啊！

最好还可以在cad图中，我在搜索到的有高程定义点的基础上，进行高程插值，得出我需要点的高程。

麻烦各位指点指点

pros

各位，给点意见啊

碎玉す全瓦

我是初学者，不过CAD里好像每个点都有Z值吧？不过是0而已。如果达到你需要的要求没有一个命令可以实现，不过用lisp应该很简单的吧

wei209

我也想知道!

wmz

请问你这个"有z坐标的高程点"是用point创建的吗?

pros

可以是point也可以是块，反正就是插入点，怎么弄？

wmz

这样行不行:

(defun c:TEST()
  (setq s (ssget) m -1)
 (repeat (sslength s) 
  (setq s1 (entget (ssname s (setq m (+ m 1))))
           s2 (cdr (assoc 0 s1))
             d (assoc 10 s1))
      (cond ((= s2 "POINT")

                    (if (/= (last d) 0)(progn(print "点坐标=")(princ (cdr d))(princ)))
                ((= s2 "INSERT")

                    (if (/= (last d) 0)(progn(print "插入点坐标=")(princ (cdr d))(princ)))
      )
  )
(princ) 
) 

pros

  s2 (cdr (assoc 0 s1))
             d (assoc 10 s1))

以上两句话好像不起什么作用啊

pros

wmz大哥，您的程序好像不通，经过我的一番调试就可以实现，请问是什么原因呢，是不是cond函数的格式问题呢？

(defun c:gc()  
(setq ffn (getfiled "\\n保存的坐标文件" "高程点" "txt" 1)
 ff  (open ffn "w"))
  (setq s (ssget) m -1)
 (repeat (sslength s) 
  (setq s1 (entget (ssname s (setq m (+ m 1)))))
          (setq s2 (cdr (assoc 0 s1)))
          (setq d (assoc 10 s1))
    (COND  
                 ((= s2 "TEXT")       
                 (progn    
                 (if   (/= (last d) 0)
   (write-line (strcat (rtos (caDr d) 2 3) " "(rtos (caDDr d) 2 3)" "(rtos (caDDDr d) 2 3) ) ff)
                  )
                  )
                  )
                 
                  ((= s2 "INSERT")
                  (progn
                  (if   (/= (last d) 0)
  (write-line (strcat (rtos (caDr d) 2 3) " "(rtos (caDDr d) 2 3)" "(rtos (caDDDr d) 2 3) ) ff)
                  )
                  )
                  )
    )
  )
 (close ff)
 (princ (strcat "\\n 坐标写至=>" ffn))
)
(princ "\n***程序成功安装***，请输入gc运行 lgs")

wmz

少了两个括弧,不是COND的问题:

(defun c:TEST()
  (setq s (ssget) m -1)
 (repeat (sslength s) 
  (setq s1 (entget (ssname s (setq m (+ m 1))))
           s2 (cdr (assoc 0 s1))
            d (assoc 10 s1))
       (cond ((= s2 "POINT")
                    (if (/= (last d) 0)(progn(print "点坐标=")(princ (cdr d))(princ))))
                 ((= s2 "INSERT")
                    (if (/= (last d) 0)(progn(print "插入点坐标=")(princ (cdr d))(princ))))
       )
 )
(princ) 
)