如何给cass中的高程值添加组码 已解决
本帖最后由 461045462 于 2011-4-14 18:53 编辑在地形图编辑时，往往需要给图面添加高程值，以前都是只加上高程数据与点位，没有添加上组码，修改时不方便。
编写了一些lsp语句，可是调试了很久，总是不能将组码添加到数据与点位中，
例如 需要添加的组码为：(-3 ("SOUTH" (1000 . "202101"))
下面写了一些语句，要怎样修改，或者要使用什么函数命令，才能实现在点位或数据的属性添加上组码？
(setq appname "SOUTH")
.
.
(setq zm 202101)
(setq zm1 (LIST (list -3 (LIST "SOUTH" (cons 1000 zm1)))))
.
.
(command "text" wz "1" "0" (rtos pz 2 2));wz为点位位置 pz为数据
请问zm1 要如何添加到语句中？
望高手指教
谢谢
已解决
(setq appname "SOUTH")
.
.
(setq zm 202101)
(setq zm1 (LIST (list -3 (LIST "SOUTH" (cons 1000 zm1)))))
.
.
(command "text" wz "1" "0" (rtos pz 2 2));wz为点位位置 pz为数据
(setq dxf (entget (entlast)))
(if (= (tblsearch "appid" appname) nil)
(if (= (regapp appname) nil)
(vl-exit-with-error (alert "注册应用名失败！"))
)
)
(entmod (cons zm1 dxf))
本帖最后由 461045462 于 2011-4-14 18:55 编辑
回复 yshf 的帖子
谢谢您的回复
等会去试试。
舒心每一天
有关组码的问题已解决
下面的问题望高手指教
另外请教一个问题，如果要连续添加，循环语句要如何写？
谢谢
行吗？没有命令输入啊
我也再想这个家高程点属性lisp
页:
[1]