【已解决】高程点高程累加 哪里出错了？

arker

(defun c:gcpj(/ n ssn ssdata enl old_zz z gczz gcpjz ss os)
  (setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0) ;关闭捕捉命令
  (setq ss (ssget '((0 . "POINT"))));获取实体选择集ss
（setq n 0）;定义n，从0开始
（setq gczz 0.0）;定义高程总值 gczz

(repeat (sslength ss)   ；重复 （ss的单元个数） 次
  (setq n (+ n 1))
（setq ssn (ssname ss n)） ;提取元素的像素名称
（setq ssdata (entget ssn)）;提取元素的数据串行
（setq enl (assoc 10 ssdata)）;提取三维坐标
（setq old_zz (cdr enl)) ;提取坐标值
（setq z (caddr old_zz)）;提取Z值
  （setq gczz (+ gczz z)）;累加Z值
);repeat 结束
(setq gcpjz (/ (/ gczz (sslength ss)) 1)) ;高程平均值
(princ  "统计计高程点对象为:")
(princ  (sslength ss))
(princ  "平均高程值为:")
(princ  gcpjz)

(setvar "osmode" os) ;恢复捕捉设置
  (prin1)
  )
;程序说明：
;1、该程序为计算高程平均值。
;2、本次统计地形图高程点自带z坐标,即高程。
;3、已设置捕捉打开关闭。
;4、加载时 从cad 工具--加载应用程序--找到本程序并加载。
;5、输入gcpj命令启动程序。
;6、 Edited by Kar 2019.02.13。

检查对照大神们的程序检查了一天了，找不出原因，恳请大神们指导。  手上有地形图，地形图上有很多高程点均匀布置，所以想用高程点检查一下平均高程。（图上高程数字与高程点不是很对应，感觉还是高程点更原始更准确些）

arker

对了 提示错误是这样的：
; 错误: 参数类型错误: numberp: nil   

tzfcn

（setq gczz (+ gczz z)）;累加Z值
里面的z转化为数值试试。

dnbcgrass

;|
;以下这些行最左、最右的括号全非英文括号
（setq n 0）;定义n，从0开始
（setq gczz 0.0）;定义高程总值 gczz

（setq ssn (ssname ss n)） ;提取元素的像素名称
（setq ssdata (entget ssn)）;提取元素的数据串行
（setq enl (assoc 10 ssdata)）;提取三维坐标
（setq old_zz (cdr enl)) ;提取坐标值
（setq z (caddr old_zz)）;提取Z值
（setq gczz (+ gczz z)）;累加Z值
;输入时应注意中英文的切换
|;

(defun c:gcpj(/ n ssn ssdata enl old_zz z gczz gcpjz ss os)
    (setvar "cmdecho" 0)
    (setq os (getvar "osmode"))
    (setvar "osmode" 0) ;关闭捕捉命令
    (setq ss (ssget '((0 . "POINT"))));获取实体选择集ss
    (setq n 0) ;定义n，从0开始
    (setq gczz 0.0) ;定义高程总值 gczz
    (setq m (sslength ss))   
    (repeat m  ;重复m次
        (setq ssn (ssname ss n)) ;提取元素的像素名称
        (setq ssdata (entget ssn));提取元素的数据串行
        (setq old_zz (cdr (assoc 10 ssdata)));提取三维坐标
        (setq z (last old_zz)) ;提取Z值
        (setq gczz (+ gczz z)) ;累加Z值
        (setq n (+ n 1))
    );repeat 结束
    (setq gcpjz (/ gczz m)) ;高程平均值
    (princ "统计计高程点对象为:")
    (princ  m)
    (princ  "平均高程值为:")
    (princ  gcpjz)
    (setvar "osmode" os) ;恢复捕捉设置
    (princ)
  )

coverne

问题在哪里？

arker

感谢，确实是括号不对，刚刚试了六万多个点的，都可以了。