求助，选择点批量恢复高程（谁能提供生高程点及文字方法）

yanguangfei · 发表于 2012-5-18 00:32:18

我直接调用的自带的命令不行，老致命错误
希望高手给完善下生高程点及文字方法，一定要一体的，和CASS一样，我知道GC200写扩展202101，文字202101-1，但是生出来的不是一体，先谢了！
单个恢复是没问题的

(defun c:hf ( / ss_gcd i name get dxf10)
  (princ "\n 选择批量恢复的高程点:<支持多选>")
  (setq ss_gcd (ssget (list (cons 0 "point"))))
  (if ss_gcd
(progn
   (setq i -1)
   (repeat (sslength ss_gcd)
(setq name (ssname ss_gcd (setq i (1+ i))))
(setq get (entget name) dxf10 (cdr (assoc 10 get)))
(gcdpoint  dxf10)
(if (= (cdr(assoc 8 get)) "GCD") (entdel name))
   )
   )
  )
(PRINC)
);end_defun

；；；调用CASS自带恢复高程命令
(defun gcdpoint (pt)
  (command "DRAWGCD" "1" pt "" "")
)

yanguangfei · 发表于 2012-5-18 00:37:25

关键要（文字和块）要一体的

utx552258 · 发表于 2012-5-18 00:44:26

嘻，因为和我在一起！！！

yanguangfei · 发表于 2012-5-18 11:56:57

就这样难搞？

gzxl · 发表于 2012-5-19 13:47:01

yanguangfei 发表于 2012-5-18 11:56
就这样难搞？

最好提供样图来看看，是不是像Cass里面的合成打散的高程点?

yanguangfei · 发表于 2012-5-19 18:06:52

就是在南方CASS下用.这个是框选展号生成高程点，调用它自带的命令，谁能写个函数带替它自带的程序么？

652758365 · 发表于 2012-5-21 10:02:06

......................

xgr · 发表于 2012-5-21 16:50:01

本帖最后由 xgr 于 2012-5-21 16:53 编辑

CASS的高程点是属性块，请参照生成属性块的方法，另外扩展数据里不但可以加编码，还可以加你自己定义的信息，如果需要可以把点名也加在里面，去掉属性以后需要时又可以恢复点名，导出为文本的坐标文件时可以不需要输入点号了，不过这都需要你自己编程。

yanguangfei · 发表于 2012-5-22 12:30:44

谢谢，俺已解决方法是entmake生成块和文字带扩展，在调用南方自带的合并高程点命令，5000点测试已OK！

soly2006 · 发表于 2012-5-24 00:27:38

yanguangfei 发表于 2012-5-22 12:30
谢谢，俺已解决方法是entmake生成块和文字带扩展，在调用南方自带的合并高程点命令，5000点测试已OK！

能否共享代码？谢谢

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

求助，选择点批量恢复高程（谁能提供生高程点及文字方法）

相关帖子