another2121 发表于 2010-12-25 01:06:29

这个程序会使CAD致命错误

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

(defun c:zgcd(/ a n i cs ent_list pt ggcd)
(setq a (ssget))
(if a
(progn
(setq n (sslength a))
(setq i 0)
(setq cs 0)

(repeat n
(setq ent_list (entget(ssname a i)))
(setq pt (cdr(assoc 10 ent_list)))
(setq ggcd (atof(cdr(assoc 1 ent_list))))
(command "drawgcd" "" pt ggcd "")
(setq i (1+ i))
(setq cs (1+ cs))
)
(alert(strcat"共输出了"(itoa cs)"个高程点"))
)
))

another2121 发表于 2010-12-25 01:09:39

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

caoyin 发表于 2010-12-25 01:40:01

有这个命令吗drawgcd？

another2121 发表于 2010-12-25 01:43:27

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

cnks 发表于 2010-12-25 02:49:23

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

another2121 发表于 2010-12-25 09:18:10

本帖最后由 another2121 于 2010-12-25 09:18 编辑

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

zml84 发表于 2010-12-29 17:10:09

远离CASS，珍惜生命。

hgf876 发表于 2010-12-29 18:09:33

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

another2121 发表于 2010-12-29 18:39:10

回复 zml84 的帖子

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

another2121 发表于 2010-12-29 18:40:43

回复 hgf876 的帖子

调用了COMMAND命令那是肯定的。。。但是我选择三个以下的，还是可以正常运行的。。。超 过四个选中，就出错了。。。。
页: [1]
查看完整版本: 这个程序会使CAD致命错误