这个程序会使CAD致命错误

another2121

   我是搞测绘的。。因甲方只提供了MAPGIS电子图，从MAPGIS里面转换出来的CAD图高程没有属性，但我要进行土方计算，所以自己编了一个粗糙的小程序，这个程序只能处理三个数据，超过四个就出现致命错误。。。。请高手们帮我解决这个问题。。。。

2. (defun c:zgcd(/ a n i cs ent_list pt ggcd)
   
3. (setq a (ssget))
   
4. (if a
   
5. (progn
   
6. (setq n (sslength a))
   
7. (setq i 0)
   
8. (setq cs 0)
   
9. 
   
10. (repeat n
    
11. (setq ent_list (entget(ssname a i)))
    
12. (setq pt (cdr(assoc 10 ent_list)))
    
13. (setq ggcd (atof(cdr(assoc 1 ent_list))))
    
14. (command "drawgcd" "" pt ggcd "")
    
15. (setq i (1+ i))
    
16. (setq cs (1+ cs))
    
17. )
    
18. (alert(strcat"共输出了"(itoa cs)"个高程点"))
    
19. )
    
20. ))

(defun c:zgcd(/ a n i cs ent_list pt ggcd)<br /> (setq a (ssget))<br /> (if a<br /> (progn<br /> (setq n (sslength a))<br /> (setq i 0)<br /> (setq cs 0)<br /> <br /> (repeat n<br /> (setq ent_list (entget(ssname a i)))<br /> (setq pt (cdr(assoc 10 ent_list)))<br /> (setq ggcd (atof(cdr(assoc 1 ent_list))))<br /> (command "drawgcd" "" pt ggcd "")<br /> (setq i (1+ i))<br /> (setq cs (1+ cs))<br /> )<br /> (alert(strcat"共输出了"(itoa cs)"个高程点"))<br /> )<br /> ))

another2121

附：  在这个程序中，我选择是高程点数据。  
   如： 23.3       43.2     12.2       34.5 。。。。。。。。

caoyin

有这个命令吗drawgcd？

another2121

南方CASS里面有这个命令。。。呵呵。。。

cnks

这样不如先把高程点先输出到dat文件然后展点不就行了么？

another2121

呵呵。。。。5楼明鉴啊。。。。

zml84

远离CASS，珍惜生命。

hgf876

drawgcd里面可能也是调用command,或acedCommand

another2121

回复 zml84 的帖子

为了生活。。。。。。为了明天。。。。。。

another2121

回复 hgf876 的帖子

调用了COMMAND命令那是肯定的。。。但是我选择三个以下的，还是可以正常运行的。。。超 过四个选中，就出错了。。。。