GCD高程点z值修复[原创.附源码]

changyiran · 发表于 2013-4-17 21:04

╰☆珊瑚玉ヤ发表于 2013-4-17 17:49 谢谢大哥。期待您的分享我的邮箱

这两天就在这个帖子中贴出来

changyiran · 发表于 2013-4-20 21:53

╰☆珊瑚玉ヤ发表于 2013-4-17 17:49
谢谢大哥。期待您的分享
我的邮箱

(setq ss(ssget "x"'((0 . "INSERT")(8 . "GCD")))j -1);建立以高程为对象的选择集
(repeat (sslength ss)
(setq en1 (ssname ss (setq j(1+ j))))
(setq el1(entget en1))
(setq en2(entnext en1))
(setq el2(entget en2))
(setq gcz(atof(cdr(assoc 1 el2))))
(setq el1(subst(list 10 (cadr (assoc 10 el1))(caddr (assoc 10 el1))gcz)(assoc 10 el1)el1))
(entmod el1)
)

H上帝的左手H · 发表于 2013-8-1 00:01

我也出现了正常加载，但是使用处错误的问题，不知道怎么解决？

╰☆珊瑚玉ヤ · 发表于 2013-8-4 10:16

╰☆珊瑚玉ヤ发表于 2013-4-14 22:40
小弟对于编程不懂
我下载了后，加载成功
但是，输入命令统一失败

谢谢海哥的回复，咱们的软件还真是一样的，我的就是加载后出问题。不解，对编程不太懂…

chifan446 · 发表于 2013-8-4 18:26

谢谢楼主分享，学习了

语默有常 · 发表于 2013-9-27 23:35

可能正是我想要我程序，谢谢

清风明月名字 · 发表于 2013-9-28 08:56

谢谢楼主代码分享！

tryhi · 发表于 2013-10-11 16:11

╰☆珊瑚玉ヤ发表于 2013-8-4 10:16
谢谢海哥的回复，咱们的软件还真是一样的，我的就是加载后出问题。不解，对编程不太懂…

有要求高程点必须在GCD图层上面

hsunnyer · 发表于 2014-12-6 18:29

哎。这真是一个难问题啊。

xujinhua · 发表于 2016-4-8 18:49

非常感谢，正需要

账号		自动登录	找回密码
密码			注册

[函数] GCD高程点z值修复[原创.附源码]