市政综合标高辅助计算程序

mdxcad

(defun C:Q1( )
   (graphscr)
   (setvar "cmdecho" 0)
   (draw_gz20180315)
   (princ)
)

(defun draw_gz20180315 ()         
(graphscr)
(setq oce0 (getvar "dimzin"))
(setq oce2 (getvar "cmdecho"))
(setvar "cmdecho" 0);系统参数
(setvar "dimzin"  0)
(setvar "osmode" 1)
(command "-style" "QCDL" "tssdeng.shx,tssdchn.shx" 0  0.67 0  "" "" "")
(command "-layer"  "n"  "qcgzdim1"  "c" 4 "qcgzdim1" "")
(command "-layer"  "n"  "qcgzdim2"  "c" 1 "qcgzdim2" "")
;;;(command "-layer"  "n"  "qcgzdim3"  "c" 7  "L" "center" "qcgzdim3" "")
;;;(command "layer" "new" "qcgzdim3" "s" "qcgzdim3" "C" 1 "" "L" "Center" "" "LW" 0.09 "" "")
(command "layer" "new" "qcgzdim3" "s" "qcgzdim3" "C" 7 "" "L" "Center" ""  "")
(vl-load-com)

(setq QCGZgdlx (getreal "\n输入管道类型项[水平管(0)/横向管(1)]<0>:"))
(if (= QCGZgdlx nil) (setq QCGZgdlx 0))
(setq QCGZJL (getreal "\n输入管线与道路中线的距离，中线左侧输入负数，右输入正数<0>:"))
(if (= QCGZJL nil) (setq QCGZJL 0))
(setq QCGZdmgc (getreal "\n输入设计地面高程<20>:"))
(if (= QCGZdmgc nil) (setq QCGZdmgc 20))
(setq QCGZgc (getreal "\n输入结构底高程<15>:"))
(if (= QCGZgc nil) (setq QCGZgc 15))
(setq QCGZgd (getreal "\n输入结构高度<1.2>:"))
(if (= QCGZgd nil) (setq QCGZgd 1.2))
(setq QCGZpt1 (getpoint "\n拾取道路设计线上的点:"))


(setvar "clayer" "qcgzdim2")
(setvar "osmode" 0)
(setq QCGZpt2 (polar QCGZpt1 0 -30))
(setq QCGZpt2a (polar QCGZpt1 0 30))
(command ".pline" QCGZpt2 "W" 0 ""  QCGZpt2a  "" )
(setvar "clayer" "qcgzdim3")
(setq QCGZpt1a (polar QCGZpt1 (* -0.5 pi) 20))
(command ".pline" QCGZpt1 "W" 0 ""  QCGZpt1a  "" )

  (cond
  ((= QCGZgdlx 0)
   (setq  QCGZL 50)
   (setvar "clayer" "qcgzdim1")

  )
  ((= QCGZgdlx 1)
   (setq  QCGZL 1)
   (setvar "clayer" "qcgzdim2")

   )
)


(setq QCGZpt3 (polar QCGZpt1 0 QCGZJL))
(setq QCGZpt4a (polar QCGZpt3 (* -0.5 pi) (- QCGZdmgc QCGZgc)))

(setq QCGZpt4 (polar QCGZpt4a 0 (* -0.5 QCGZL)))
(setq QCGZpt5 (polar QCGZpt4 0 QCGZL))
(setq QCGZpt6 (polar QCGZpt5 (* 0.5 pi) QCGZgd))
(setq QCGZpt7 (polar QCGZpt4 (* 0.5 pi) QCGZgd))
(command ".pline" QCGZpt4 "W" 0 ""  QCGZpt5 QCGZpt6 QCGZpt7 "C" )

(setq QCGZpt8 (polar QCGZpt4 0 (* 0.5 QCGZL)))
(setq QCGZpt9 (polar QCGZpt8 (* 0.5 pi) 0.2))
(command ".TEXT"  "M"  QCGZpt9  0.3  0    (rtos QCGZgc 2 2) );结构底高程

(setq QCGZpt10 (polar QCGZpt7 0 (* 0.5 QCGZL)))
(setq QCGZpt11 (polar QCGZpt10 (* 0.5 pi) 0.2))
(command ".TEXT"  "M"  QCGZpt11  0.3  0    (rtos (+ QCGZgc QCGZgd) 2 2) );结构顶高程

(setq QCGZpt12 (polar QCGZpt1 0 1))
(setq QCGZpt13 (polar QCGZpt12 (* 0.5 pi) 0.2))
(command ".TEXT"  "M"  QCGZpt13  0.3  0    (strcat "设计地面高程" (rtos QCGZdmgc 2 2)) );设计路面高程


    (command "cecolor" "bylayer")
    (setvar "dimzin" oce0)
    (setvar "osmode" 175)
    (setvar "cmdecho" oce2)
    (princ)
  )