標高系列.rar

；CAD圖上自由點標高，初始化命令為DC，點某點標高后顯示高程DBG,輸入高程顯示位為DBB (DEFUN C:dc() (setq bl(getreal"請輸幾個單位等于1m<1>：")) (if (= bl nil) (setq bl 1)) (setq pt(getpoint"點已知點位置:")) (setq ptx(car pt)) (setq pty(cadr pt)) (prompt"\n請選擇知點高程數據\n") (setq ssm (ssget)) (setq en (ssname ssm 0)) (setq date(entget en)) (setq STql (cdr (assoc '1 date))) ) (DEFUN C:dbb() (setvar "osmode" 555) (setq pt10(getpoint"\n點想要的高程位置:\n")) (setq gchax(car pt10)) (setq bgao2(getreal"\n請輸入標高:\n")) (setq gcaca(- bgao2 (atof stql))) (setq pr20(list gchax (* (+ pty gcaca) bl))) (setvar "osmode" 0) (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pr20 0.6 0 (rtos bgao2 2 2)) ) (DEFUN C:dbbB() (setvar "osmode" 555) (setq pt10(getpoint"\n點起點位置:\n")) (setvar "osmode" 0) (setq gchax1(car pt10)) ;(setq bgao2(getreal"\n請輸入標高:\n")) (setq fname (getfiled "請選擇平面關系文件名" "E:/" "txt" 4)) (setq f (open fname "r")) (setq pt11(list 0 0)) (while (/= (setq xt1 (read-line f)) NIL) (setq ha(read (strcat "(" xt1 ")"))) ;(setq bh (VL-PRINC-TO-STRING (nth 0 ha))) (setq bgao2LC (nth 0 ha)) (setq bgao2 (nth 1 ha)) (setq gchax(+ gchax1 bgao2LC)) ;(setvar "osmode" 555) ;(setq pt10(getpoint"\n點想要的高程位置:\n")) ;(setvar "osmode" 0) ;(setq gchax(car pt10)) (setq gcaca(- bgao2 (atof stql))) (setq pr20(list gchax (* (+ pty gcaca) bl))) (command "layer" "m" "高程" "") (setvar "cecolor" "1") (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pr20 0.6 0 (rtos bgao2 2 2)) (command "pline" pt11 pr20 "") (command "layer" "m" "輔助里程" "") (setvar "cecolor" "4") (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pr20 0.2 90 (rtos bgao2LC 2 2)) (setq pt11 pr20) ) (close fname) ) (DEFUN C:dbg() (while (setq pt0(getpoint"點想要的高程點:")) (setq gcha(* (- (cadr pt0) pty) bl)) (setq gcheng(+ (atof stql) gcha)) (print gcheng) (setq sgcheng (rtos gcheng 2 2)) ;(prompt"\n請選擇要改變的對象") ;(setq ss (ssget)) ;(setq n 0) ; (repeat (sslength ss) ;(setq en1 (ssname ss n)) ;(setq endate(entget en1)) ;(sub) (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pt0 0.6 0 sgcheng) (setq n (+ 1 n)) ) ) (defun sub() (setq li (assoc 1 endate)) (setq nli (cons 1 sgcheng)) (setq endate (subst nli li endate)) (entmod endate) ) (DEFUN C:ddf() ;(setq bl(getreal"請輸幾個單位等于1m<1>：")) ;(if (= bl nil) (setq bl 1) (setq pt3(getpoint"點已知點位置:")) (setq ptx3(car pt3)) (setq pty3(cadr pt3)) (prompt"\n請選擇知點高程數據\n") (setq ssm (ssget)) (setq en (ssname ssm 0)) (setq date(entget en)) (setq STql (atof(cdr (assoc '1 date)))) ;(setq STql(getreal"請輸高程：")) (while (setq pt(getpoint"點已知點位置:")) (setq ptx(car pt)) (setq pty(cadr pt)) (prompt"\n請選擇知點2高程數據\n") (setq ssm2 (ssget)) (setq en2 (ssname ssm2 0)) (setq date2(entget en2)) (setq STql2 (atof(cdr (assoc '1 date2)))) (setq gggccc(- STql2 STql)) (print STql2) (print "dfdf") (print STql) (setq ptcc(list ptx (+ pty3 (* bl gggccc)))) (command "point" ptcc) ) )