如何给cass中的高程值添加组码 已解决

461045462

  在地形图编辑时，往往需要给图面添加高程值，以前都是只加上高程数据与点位，没有添加上组码，修改时不方便。
编写了一些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 要如何添加到语句中？
  望高手指教
  谢谢

已解决

yshf

2. 
   
3. (setq appname "SOUTH")
   
4.   .
   
5.   .
   
6.   (setq zm 202101)
   
7.   (setq zm1 (LIST (list -3 (LIST "SOUTH" (cons 1000 zm1)))))
   
8.   .
   
9.   .
   
10.   (command "text" wz "1" "0" (rtos pz 2 2))  ;wz为点位位置 pz为数据
    
11.   (setq dxf (entget (entlast)))
    
12.   (if (= (tblsearch "appid" appname) nil)
    
13.        (if (= (regapp appname) nil)
    
14.            (vl-exit-with-error (alert "注册应用名失败！"))
    
15.        )
    
16.    )
    
17.    (entmod (cons zm1 dxf))       
    
18. 
    

<br /> (setq appname "SOUTH")<br />   .<br />   .<br />   (setq zm 202101)<br />   (setq zm1 (LIST (list -3 (LIST "SOUTH" (cons 1000 zm1))))) <br />   .<br />   .<br />   (command "text" wz "1" "0" (rtos pz 2 2))  ;wz为点位位置 pz为数据 <br />   (setq dxf (entget (entlast)))<br />   (if (= (tblsearch "appid" appname) nil)<br />        (if (= (regapp appname) nil)<br />            (vl-exit-with-error (alert "注册应用名失败！"))<br />        )<br />    )<br />    (entmod (cons zm1 dxf))        <br /> <br />

461045462

回复 yshf 的帖子

谢谢您的回复
等会去试试。
舒心每一天

有关组码的问题已解决


下面的问题望高手指教
另外请教一个问题，如果要连续添加，循环语句要如何写？
谢谢

yanguangfei

行吗？没有命令输入啊
我也再想这个家高程点属性lisp