求助，选择点批量恢复高程（谁能提供生高程点及文字方法）
我直接调用的自带的命令不行，老致命错误希望高手给完善下生高程点及文字方法，一定要一体的，和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)))
(gcdpointdxf10)
(if (= (cdr(assoc 8 get)) "GCD") (entdel name))
)
)
)
(PRINC)
);end_defun
；；；调用CASS自带恢复高程命令
(defun gcdpoint (pt)
(command "DRAWGCD" "1" pt "" "")
) 关键要（文字和块）要一体的 嘻，因为和我在一起！！！ 就这样难搞？ yanguangfei 发表于 2012-5-18 11:56 static/image/common/back.gif
就这样难搞？
最好提供样图来看看，是不是像Cass里面的合成打散的高程点? 就是在南方CASS下用.这个是框选展号生成高程点，调用它自带的命令，谁能写个函数带替它自带的程序么？ ...................... 本帖最后由 xgr 于 2012-5-21 16:53 编辑
CASS的高程点是属性块，请参照生成属性块的方法，另外扩展数据里不但可以加编码，还可以加你自己定义的信息，如果需要可以把点名也加在里面，去掉属性以后需要时又可以恢复点名，导出为文本的坐标文件时可以不需要输入点号了，不过这都需要你自己编程。 谢谢，俺已解决方法是entmake生成块和文字带扩展，在调用南方自带的合并高程点命令，5000点测试已OK！ yanguangfei 发表于 2012-5-22 12:30 static/image/common/back.gif
谢谢，俺已解决方法是entmake生成块和文字带扩展，在调用南方自带的合并高程点命令，5000点测试已OK！
能否共享代码？谢谢
页:
[1]
2