一个恢复高程的小程序 （cass）老致命错误请问谁知道

yanguangfei

最后调用的是CASS自带的命令
致命错误 提示    命令嵌套不能超过4层
(defun c:hf ( / ss_gcd i name get dxf10)
  (princ "\n 选择批量恢复的高程点:<支持多选>")
  (setq ss_gcd (ssget (list (cons 0 "point"))))
  (if ss_gcd
    (progn
      (setq i -1)
      (repeat (sslength ss_gcd)
        (setq name (ssname ss_gcd (setq i (1+ i))))
        (setq get (entget name) dxf10 (cdr (assoc 10 get)))
        (gcdpoint  dxf10)
        (if (= (cdr(assoc 8 get)) "GCD") (entdel name))
      )
     )
  )
(PRINC)
);end_defun


(defun gcdpoint (pt)
  (command "DRAWGCD" "1" pt "" "")
)

zyhandw

非要通过这种方式加高程吗？其实完全可以用测点生成dat，重新展高程就完了，也没必要写程序！

soly2006

哪位高手搞一下，或说个方法，不胜感谢。

zyhandw

soly2006 发表于 2012-6-6 10:48
哪位高手搞一下，或说个方法，不胜感谢。

cass中“工程应用”里有“高程点生成无编码点文件”，得到dat，再重新展高程点就行了！

soly2006

zyhandw 发表于 2012-6-7 09:17
cass中“工程应用”里有“高程点生成无编码点文件”，得到dat，再重新展高程点就行了！

你图里面有上万个点，为了加几个点时候你就不那么想了。

zyhandw

soly2006 发表于 2012-6-7 11:44
你图里面有上万个点，为了加几个点时候你就不那么想了。

既然只有几个，估计用手工一个个加，也早加完了！
再说，就算有上万个点，重新展高程也费不了多长时间吧？

soly2006

照你说，学lisp没意义了，再少的时间也 是时间哈。
还是请高手们怎么生成cass高程 点（不用cass命令）。

zyhandw

soly2006 发表于 2012-6-7 15:50
照你说，学lisp没意义了，再少的时间也 是时间哈。
还是请高手们怎么生成cass高程 点（不用cass命令）。

我还是认为如果能通过实用、简单的操作，达到自己要求就行了，不一定都得编程实现！
算了，简单写了一个，看看是否适合你的吧！

qfkxc

我的做法是 1 ，先插入一个高程点，创建选择集1
           2，循环复制选择集1到要插入的位置，创建选择集2
3，修改选择集2图元中的高程值为要插入的高程即可
4，删除选择集1

hejiazhao

上楼的想法不错