小小品客 发表于 2006-7-30 14:30:00

[求助]急求一个加高程点的小程序

就是那种可以把两根等高线一拉自动加高程点的程序,先谢谢了!

283528149 发表于 2019-6-15 21:47:04

兄弟，也给小弟发一份吧，先谢谢了283528149@qq.com

happy336 发表于 2019-10-14 23:54:41

谢谢分享，支持

jdhszh 发表于 2006-8-1 21:42:00

<P>我用LISP做了一个，命令是DGXF你试一下，你必须输入前一等高线高程&nbsp;</P>

yswoyh 发表于 2006-8-4 16:35:00

(defun c:zgcd ()&nbsp;&nbsp;&nbsp;;注高程点!<BR>&nbsp; (alert "\n适用于1:2000图纸下补注高程点!!")<BR>&nbsp; (setvar "cmdecho" 0)<BR>&nbsp; (command "-layer" "M" "GCDZ" "set" "GCDZ" "COLOR" 3 "" "")<BR>&nbsp; (while (princ "\n输入高程:")<BR>&nbsp;&nbsp;&nbsp; (setq gcz (getstring))<BR>&nbsp;&nbsp;&nbsp; (setq p (getpoint "\n插入点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (command "osmode" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq x1 (car p))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq y1 (car (cdr p)))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq z1 (car (cdr (cdr (cdr (assoc 10 text2))))))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq e1 (distof gcz 2))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq z1 e1)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq pp (list x1 y1 z1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq gczj (list (+ (car p) 1.2)<BR>&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (- (cadr p) 0.50)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; z1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp; (command "text" gczj 6.0 0 gcz "")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq z0 e1)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (command "inSert" "*SCSAA" pp "" "")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq mb (ssget "l"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (command "change" "p" "" "p" "e" z0 "")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (princ "请选择下一组：")<BR>)<BR>)

xiewawa 发表于 2012-2-22 22:44:07

感谢上面的两位，学习了

dwjb 发表于 2012-2-26 21:58:27

cass本来就有这个功能的，很好用

652758365 发表于 2012-3-24 18:13:13

gc1加密近似高程
gc2高程批量提取
gc3批量 + - 高程点的高程值
gc3批量 + - 等高线的高程值
批量 + - 【zdh】【_aid】 的高程值
高程点   Z值   与属性值   检查
gc7删除控制点下面的高程点


需要的话我发给你   万能高程.fas

淚︶ㄣж鈊痛 发表于 2012-6-6 21:23:55

652758365 发表于 2012-3-24 18:13 static/image/common/back.gif
gc1加密近似高程
gc2高程批量提取
gc3批量 + - 高程点的高程值


我急要 谢谢 21688561@qq.com

652758365 发表于 2012-6-10 12:10:19

淚︶ㄣж鈊痛 发表于 2012-6-6 21:23 static/image/common/back.gif
我急要 谢谢

发给你了............

╰☆珊瑚玉ヤ 发表于 2012-12-8 12:30:47

652758365 发表于 2012-6-10 12:10 static/image/common/back.gif
发给你了............

兄弟，也给小弟发一份吧，先谢谢了
zhuofeng41@126.com

xiabin68 发表于 2012-12-18 18:50:30

652758365 发表于 2012-6-10 12:10 static/image/common/back.gif
发给你了............

也给我发一个嘛，，，你的加密近似高程，，，
页: [1] 2
查看完整版本: [求助]急求一个加高程点的小程序