[LISP程序]：有人想要画钻孔柱状图和剖面图的程序吗

entrophy · 发表于 2003-6-18 12:27:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我写了一个试用版，
画柱状图准确度较高，
有基于dcl对话框输入数据
和直接读取文本文件两种工作方式
需要的话我可以提供下载

画剖面图的程序通用性不强，
不过可以拿来做参考。

eachy · 发表于 2003-6-18 12:32:51

最初由 entrophy 发布
[B]我写了一个试用版，
画柱状图准确度较高，
有基于dcl对话框输入数据
和直接读取文本文件两种工作方式
需要的话我可以提供下载

画剖面图的程序通用性不强，
不过可以拿来做参考。 [/B]

帖上来吧，共同学习。

entrophy · 发表于 2003-6-18 12:43:46

今天的包压缩有问题，
明天我再把程序传上来！

entrophy · 发表于 2003-6-19 10:21:30

程序说明;

;;钻孔柱状图绘制：zkt2.lsp
;;;调用程序:zkt
(defun c:zkt2f (/ dcl_id bianhao zhuanghao gaocheng
xzuobiao yzuobiao bilichi leixing zkongshen
ykongshen jizu kriqi jriqi kongjin
diceng dixiashui zhiliang zhiban fuze
wp)
(setq n 0)
;(setq dat_file (getfiled "请选择文件" "f:\\project\\zkt2" "dat" 2))
; (setq dat_file (open "zkt2.dat" "r"))
(setq ff (open "f:\\entrophy\\lisp\\zkt\\release\\zkt2.dat" "r"))
(setq data "start")
(setq data (read-line ff))
(while data
(setq dat data)
(setq n (+ 1 n))
(princ n)
(if(= n 1)
(setq bianhao dat)
)
(if (= n 2)
(setq zhuanghao dat)
)
(if (= n 3)
(setq gaocheng dat)
)
(if (= n 4)
(setq xzuobiao dat)
)
(if (= n 5)
(setq yzuobiao dat)
)
(if (= n 6)
(setq bilichi dat)
)
(if (= n 7)
(setq zkongshen dat)
)
(if (= n 8)
(setq kriqi dat)
)
(if (= n 9)
(setq jriqi dat)
)
(if (= n 10)
(setq dixiashui dat)
)
;(setq data (read-line ff))
(if (= n 11)
(setq kongjin dat)
)
(if (= n 12)
(setq diceng dat)
)
(if (= n 13)
(setq Yanxin1 dat)
)
(if (= n 14)
(setq Yanxin2 dat)
)
(if (= n 15)
(setq Yanxin3 dat)
)
(setq data (read-line ff))
)
(setvar "cmdecho" 0)
;(setvar "osmode" 32)
(setq c 0
d 0
)
(setq offsetx 98 ;98相对于坐标原点的偏移量
offsety 8 ;8
)
(setq c (+ c offsetx)
d (+ d offsety)
)
(setq a (+ d 265)
b (+ c 350)
) ;p1(c d);p2(c a);p3(b,a)p4(b,d)
(setq x1 (+ c 44.5)
y1 (+ d 259.7)
)
(setq a1 (+ d 9.38)
a2 (+ d 123.14)
a3 (+ d 235.13)
a4 (+ d 255.09)
a5 (+ d 265.0)
) ;ai为相应的水平线的纵坐标
(setq b1 (+ c 28.8)
b2 (+ c 48.90)
b3 (+ c 83.35)
b4 (+ c 120.57) ;123.37
b5 (+ c 143.81)
b6 (+ c 161.42)
)
(setq bt21 (+ b2 9.5)
bt22 (+ b2 24.45)
) ;第2列的分割点坐标
(setq b7 (+ c 181.38)
b8 (+ c 197.23)
b9 (+ c 214.25)
b10 (+ c 327.73);325
b11 (+ c 350.0);348
)
(setq bt11 (+ c 4.8)
bt12 (+ bt11 4.8)
bt13 (+ bt12 4.8)
bt14 (+ bt13 4.8)
bt15 (+ bt14 4.8)
bt16 (+ bt15 4.8)
) ;b1i 为第一列的6个子列的横坐标 b16=b
(setq a41 (+ d 244.96))
;a41为划分第一列的横线的纵标
(setq bt61 (list b6 a41)
bt62 (list b9 a41)
) ;bt61，bt62为6到9列水平线坐标
(setq t1 (+ b5 23.33))
(setq t2 (+ t1 22.24)
t3 (+ t2 18.45)
t4 (+ t3 26.04)
t5 (+ t4 29.84)
t6 (+ t5 21.16)
t7 (+ t6 20.64)
)
;ti为从孔口高程开始的第一行的相应垂直划分线的横坐）
(setq pt2 (+ b5 37.0)) ;pt2为最下一行根据b5确定的垂线的横坐标；biti为上下坐标从左到右
(setq b6t1 (list pt2 a1)
b6t0 (list pt2 d)
)
(setq b7t1 (list (+ pt2 18.26) a1)
b7t0 (list (+ pt2 18.26) d)
)
(setq b8t1 (list (+ pt2 46.89) a1)
b8t0 (list (+ pt2 46.89) d)
)
(setq b9t1 (list (+ pt2 62.40) a1)
b9t0 (list (+ pt2 62.40) d)
)
(setq b10t1 (list (+ pt2 90.12) a1)
b10t0 (list (+ pt2 90.12) d)
)
(setq b11t1 (list (+ pt2 106.65) a1)
b11t0 (list (+ pt2 106.65) d)
)
(setq b12t1 (list (+ pt2 131.27) a1)
b12t0 (list (+ pt2 131.27) d)
)
(setq p1 (list c d))
(setq p2 (list c a))
(setq p3 (list b a))
(setq p4 (list b d))
(setq p11 (list c a1))
(setq p12 (list c a2))
(setq p13 (list c a3))
(setq p14 (list c a4))
(setq p41 (list b a1))
(setq p42 (list b a2))
(setq p43 (list b a3))
(setq p44 (list b a4))
;设置左右边界各点坐标
(setq p21 (list b1 a)) ;p2i中的2代表上界
(setq p22 (list b2 a))
(setq p23 (list b3 a))
(setq p24 (list b4 a))
(setq p25 (list b5 a))
(setq p26 (list b6 a4))
(setq p27 (list b7 a4))
(setq p28 (list b8 a41))
(setq p29 (list b9 a4))
(setq p210 (list b10 a))
;设置上边界各点标
(setq p31 (list b1 a1))
(setq p32 (list b2 a1))
(setq p33 (list b3 a1))
(setq p34 (list b4 a1))
(setq p35 (list b5 d))
(setq p36 (list b6 a1))
(setq p37 (list b7 a1))
(setq p38 (list b8 a1))
(setq p39 (list b9 a1))
(setq p310 (list b10 d))
;设置下边界各点标
(setq p1u (list t1 a))
(setq p1v (list t1 a4))
(setq p2u (list t2 a))
(setq p2v (list t2 a4))
(setq p3u (list t3 a))
(setq p3v (list t3 a4))
(setq p4u (list t4 a))
(setq p4v (list t4 a4))
(setq p5u (list t5 a))
(setq p5v (list t5 a4))
(setq p6u (list t6 a))
(setq p6v (list t6 a4))
(setq p7u (list t7 a))
(setq p7v (list t7 a4)) ;设置第一行分界点标
(setq q0u (list c a41)) ;设置第一列分界点坐标
(setq q0v (list b1 a41))
(setq q1u (list bt11 a41)
q1v (list bt11 a1)
)
(setq q2u (list bt12 a41)
q2v (list bt12 a1)
)
(setq q3u (list bt13 a41)
q3v (list bt13 a1)
)
(setq q4u (list bt14 a41)
q4v (list bt14 a1)
)
(setq q5u (list bt15 a41)
q5v (list bt15 a1)
)
(setq t1u (list bt21 a4)
t1v (list bt21 a1)
t2u (list bt22 a4)
t2v (list bt22 d)
)
;设置第三列控制点标
(setq zkt_off (list 98 8))
(command "insert" "zkt_test11" zkt_off "1" "1" "0" "")
(setq zk_kj (read kongjin)) ;绘制钻孔
(setq kj_n (length zk_kj))
(setq zk_a1 '())
(setq zk_a2 '())
(setq zk_a3 '())
(setq zk_a4 '())
(setq yy 0)
(setq kj_i -1)
(repeat kj_n
(setq kj_i (+ kj_i 1))
(setq zkt1 (nth kj_i zk_kj))
(setq ay1 (nth 0 zkt1))
(setq ax (nth 1 zkt1))
(setq zkx1 (/ (/ ax 10.0) 2.0))
(setq xx1 (- 137 zkx1)
xx2 (+ 137 zkx1)
)
(setq zkb1 (atof bilichi))
(setq ay1 (* ay1 (/ 1000.0 zkb1)))
(setq yy (- 243 yy))
(setq yy1 (- 243 ay1))
(setq zkp1 (list xx1 yy)
zkp2 (list xx1 yy1)
zkp3 (list xx2 yy)
zkp4 (list xx2 yy1)
)
(setq txt (list 137 (/ (+ yy yy1) 2)))
(setq zk_a1 (append zk_a1 (list zkp1 zkp2)))
(setq zk_a2 (append zk_a2 (list zkp3 zkp4)))
(setq zk_a3 (append zk_a3 (list txt)))
(setq zk_a4 (append zk_a4 (list ax)))
(setq yy ay1)
)
(command "pline" (foreach pt zk_a1 (command pt)))
(command "pline" (foreach pt zk_a2 (command pt)))
(setq zx_n (length zk_a4))
(setq zx_i -1)
(repeat zx_n
(setq zx_i (+ zx_i 1))
(setq zx_p1 (nth zx_i zk_a3))
(setq zx_t1 (nth zx_i zk_a4))
(setq tt (strcat "\" "U+2205" (itoa zx_t1)))
(command "text" "j" "m" zx_p1 "3" "0" tt "")
)
(setq zk_diceng (read diceng)) ;huizhi caiqulv quxian
(setq dc_n (length zk_diceng))
(setq dc_a1 '())
(setq dc_a2 '())
(setq dc_a3 '())
(setq m1 (atof gaocheng))
(setq m2 m1)
(setq dcyy 0)
(setq dc_i -1)
(repeat dc_n
(setq dc_i (+ dc_i 1))
(setq dc1 (nth dc_i zk_diceng))
(setq dcay1 (nth 0 dc1))
(setq bzkh dcay1) ;kongshen shuzhi
(setq dcay1 (* dcay1 (/ 1000.0 zkb1))) ;biaozhu kongshen
(setq bz (list 151.5 (- 245 dcay1)))
(setq bzkh1 (rtos bzkh 2 2))
(command "text" "j" "m" bz "3" "0" bzkh1 "")
(setq bzgc (- m1 bzkh))
(setq bzgc1 (rtos bzgc 2 2))
(setq gch (list 164.5 (- 245 dcay1)))
(command "text" "j" "m" gch "3" "0" bzgc1 "") ;biaozhu gaocheng
; (setq s1 m1)
(setq bzgc2 (- m2 bzgc))
(setq bzgc3 (rtos bzgc2 2 2))
(setq ch (list 176.5 (- 245 dcay1)))
(command "text" "j" "m" ch "3" "0" bzgc3 "") ;biaozhu cenghou
(setq m2 bzgc)
(setq dcax1 (nth 1 dc1))
(setq dcxx1 (+ 221 (* dcax1 0.2)))
(setq yxp1 (list b9 (- 243 dcay1))
yxp2 (list b10 (- 243 dcay1))
)
(setq yxp3 (list b2 (- 243 dcay1))
yxp4 (list b3 (- 243 dcay1))
)
(setq dcyy (- 243 dcyy))
(setq dcyy1 (- 243 dcay1))
(setq dcyt (/ (+ dcyy dcyy1) 2.0))
(setq dcpt (list (- dcxx1 1) dcyt))
(setq dcp1 (list dcxx1 dcyy)
dcp2 (list dcxx1 dcyy1)
)
(setq dcb1 (itoa dcax1))
(setq dctxt (list 137 (/ (+ dcyy dcyy1) 2)))
(setq dc_a1 (append dc_a1 (list dcp1 dcp2)))
(setq dc_a2 (append dc_a2 (list dcb1)))
(setq dc_a3 (append dc_a3 (list dcpt)))
(setq dcyy dcay1)
(command "line" yxp1 yxp2 "") ;yxp1 yxp2 shui ping fenjiexian
(command "line" yxp3 yxp4 "")
)
(setq yxp5 (list c (- 243 dcay1))
yxp6 (list b (- 243 dcay1))
)
(command "line" yxp5 yxp6 "") ;yxp5 yxp6 zui xia mian shuiping jiexian
(command "pline" (foreach dcpt dc_a1 (command dcpt)))
(setq yx_n (length dc_a3))
(setq yx_i -1)
(repeat yx_n
(setq yx_i (+ yx_i 1))
(setq dc_p1 (nth yx_i dc_a2))
(setq dc_t1 (nth yx_i dc_a3))
(command "text" "j" "r" dc_t1 "3" "0" dc_p1 "")
) ;text biaozhu
(setq hwm1 (atof dixiashui))
(if (> hwm1 0)
(progn
(setq hwm2 (atof gaocheng))
(setq hwdt1 (- 243 (* hwm1 (/ 1000.0 zkb1))))
(setq hwdt2 (rtos hwm1 2 2))
(setq hwpp hwdt1)
(setq hwp1 (list 306 hwpp)
hwp2 (list 305 (+ hwpp 2.4))
hwp3 (list 305 (- hwpp 2.4))
)
(setq hwp4 (list b8 hwpp)
hwp5 (list b9 hwpp)
)
(setq hwtx1 (- hwm2 hwm1)) ;shui wei gaocheng
(setq hwtx1 (rtos hwtx1 2 2))
(command "line" hwp4 hwp5 "")
(command "text" "j" "m" hwp2 "3" "0" hwdt2 "") ;shuiwei
(command "text" "j" "m" hwp3 "3" "0" hwtx1 "") ;shuiweigaocheng
)
(progn
(command "text" "j" "m" "304.105,222.0" "3" "0" "干" "")
(command "text" "j" "m" "304.105,200.0" "3" "0" "孔" "")
)
)
(setq bilichi (strcat "1:" bilichi))
(command "text" "j" "m" "136,268.5" "3.5" "0" bianhao "")
(command "text" "j" "m" "136,247.5" "2.6" "0" bilichi "")
(command "text" "j" "m" "201,268.5" "3.5" "0" zhuanghao "")
(command "text" "j" "m" "253.475,268.5" "3.5" "0" gaocheng "")
(command "text" "j" "m" "296.755,268.5" "3.5" "0" zkongshen "")
(command "text" "j" "m" "318.85,268.5" "3.5" "0" "钻孔坐标" "")
(command "text"
"j"
"m"
"346.79,270.5"
"3"
"0"
(strcat "X:" xzuobiao)
""
)
(command "text"
"j"
"m"
"346.79,266.5"
"3"
"0"
(strcat "Y:" yzuobiao)
""
)
(command "text" "j" "m" "393.99,268.5" "3.5" "0" kriqi "")
(command "text" "j" "m" "436.715,268.5" "3.5" "0" jriqi "")
(Command "-bhatch" "p" "ansi38" 1 0 (list 130 180) "")
(Command "-bhatch" "p" "ansi38" 1 0 (list 145 180) "")
(command "mtext""315.715,240""425,208" Yanxin1 "")
(command "mtext" "315.715,205" "425,160"Yanxin2 "")
(command "mtext" "315.715,157" "425,95"Yanxin3 "")
)

;;钻孔柱状图绘制 ：zkt2.lsp 
;;;调用程序:zkt 
(defun c:zkt2f (/                 dcl_id            bianhao    zhuanghao  gaocheng 
              xzuobiao         yzuobiao   bilichi    leixing          zkongshen 
              ykongshen         jizu            kriqi      jriqi          kongjin 
              diceng         dixiashui  zhiliang   zhiban          fuze 
              wp) 
 
  (setq n 0) 
 
 ;(setq dat_file (getfiled "请选择文件" "f:\\project\\zkt2" "dat" 2)) 
 ; (setq dat_file (open "zkt2.dat" "r")) 
  (setq ff (open "f:\\entrophy\\lisp\\zkt\\release\\zkt2.dat" "r")) 
  (setq data "start") 
  (setq data (read-line ff)) 
  (while data 
     (setq dat data) 
     (setq n (+ 1 n)) 
    
     (princ n) 
      (if(= n 1) 
      (setq bianhao dat) 
       
    ) 
    (if        (= n 2) 
      (setq zhuanghao dat) 
    ) 
    (if        (= n 3) 
      (setq gaocheng dat) 
    ) 
    (if        (= n 4) 
      (setq xzuobiao dat) 
    ) 
    (if        (= n 5) 
      (setq yzuobiao dat) 
    ) 
    (if        (= n 6) 
      (setq bilichi dat) 
    ) 
    (if        (= n 7) 
      (setq zkongshen dat) 
    ) 
    (if        (= n 8) 
      (setq kriqi dat) 
    ) 
    (if        (= n 9) 
      (setq jriqi dat) 
    ) 
    (if        (= n 10) 
      (setq dixiashui dat) 
    ) 
                                        ;(setq data (read-line ff)) 
    (if        (= n 11) 
      (setq kongjin dat) 
    ) 
    (if        (= n 12) 
      (setq diceng dat) 
    ) 
    (if (= n 13) 
      (setq Yanxin1 dat) 
      ) 
     (if (= n 14) 
      (setq Yanxin2 dat) 
      ) 
    (if (= n 15) 
      (setq Yanxin3 dat) 
      ) 
    
     (setq data (read-line ff)) 
       ) 
 
 
 
   
  (setvar "cmdecho" 0) 
  ;(setvar "osmode" 32) 
  (setq        c 0 
        d 0 
  ) 
  (setq        offsetx        98                        ;98相对于坐标原点的偏移量 
        offsety        8                        ;8 
  ) 
  (setq        c (+ c offsetx) 
        d (+ d offsety) 
  ) 
  (setq        a (+ d 265) 
        b (+ c 350) 
  )                                        ;p1(c d);p2(c a);p3(b,a)p4(b,d) 
  (setq        x1 (+ c 44.5) 
        y1 (+ d 259.7) 
  ) 
  (setq        a1 (+ d 9.38) 
        a2 (+ d 123.14) 
        a3 (+ d 235.13) 
        a4 (+ d 255.09) 
        a5 (+ d 265.0) 
  )                                        ;ai为相应的水平线的纵坐标 
  (setq        b1 (+ c 28.8) 
        b2 (+ c 48.90) 
        b3 (+ c 83.35) 
        b4 (+ c 120.57)                        ;123.37 
        b5 (+ c 143.81) 
        b6 (+ c 161.42) 
  ) 
  (setq        bt21 (+ b2 9.5) 
        bt22 (+ b2 24.45) 
  )                                        ;第2列的分割点坐标 
  (setq        b7  (+ c 181.38) 
        b8  (+ c 197.23) 
        b9  (+ c 214.25) 
        b10 (+ c 327.73);325 
        b11 (+ c 350.0);348 
  ) 
 
 
  (setq        bt11 (+ c 4.8) 
        bt12 (+ bt11 4.8) 
        bt13 (+ bt12 4.8) 
        bt14 (+ bt13 4.8) 
        bt15 (+ bt14 4.8) 
        bt16 (+ bt15 4.8) 
  )                                        ;b1i 为第一列的6个子列的横坐标 b16=b 
  (setq a41 (+ d 244.96)) 
                                        ;a41为划分第一列的横线的纵标 
  (setq        bt61 (list b6 a41) 
        bt62 (list b9 a41) 
  )                                        ;bt61，bt62为6到9列水平线坐标 
 
  (setq t1 (+ b5 23.33)) 
  (setq        t2 (+ t1 22.24) 
        t3 (+ t2 18.45) 
        t4 (+ t3 26.04) 
        t5 (+ t4 29.84) 
        t6 (+ t5 21.16) 
        t7 (+ t6 20.64) 
  ) 
                                        ;ti为从孔口高程开始的第一行的相应垂直划分线的横坐） 
  (setq pt2 (+ b5 37.0))                ;pt2为最下一行根据b5确定的垂线的横坐标；biti为上下坐标从左到右 
  (setq        b6t1 (list pt2 a1) 
        b6t0 (list pt2 d) 
  ) 
  (setq        b7t1 (list (+ pt2 18.26) a1) 
        b7t0 (list (+ pt2 18.26) d) 
  ) 
  (setq        b8t1 (list (+ pt2 46.89) a1) 
        b8t0 (list (+ pt2 46.89) d) 
  ) 
  (setq        b9t1 (list (+ pt2 62.40) a1) 
        b9t0 (list (+ pt2 62.40) d) 
  ) 
  (setq        b10t1 (list (+ pt2 90.12) a1) 
        b10t0 (list (+ pt2 90.12) d) 
  ) 
  (setq        b11t1 (list (+ pt2 106.65) a1) 
        b11t0 (list (+ pt2 106.65) d) 
  ) 
  (setq        b12t1 (list (+ pt2 131.27) a1) 
        b12t0 (list (+ pt2 131.27) d) 
  ) 
 
  (setq p1 (list c d)) 
  (setq p2 (list c a)) 
  (setq p3 (list b a)) 
  (setq p4 (list b d)) 
  (setq p11 (list c a1)) 
  (setq p12 (list c a2)) 
  (setq p13 (list c a3)) 
  (setq p14 (list c a4)) 
  (setq p41 (list b a1)) 
  (setq p42 (list b a2)) 
  (setq p43 (list b a3)) 
  (setq p44 (list b a4)) 
                                        ;设置左右边界各点坐标 
  (setq p21 (list b1 a))                ;p2i中的2代表上界 
  (setq p22 (list b2 a)) 
  (setq p23 (list b3 a)) 
  (setq p24 (list b4 a)) 
  (setq p25 (list b5 a)) 
  (setq p26 (list b6 a4)) 
  (setq p27 (list b7 a4)) 
  (setq p28 (list b8 a41)) 
  (setq p29 (list b9 a4)) 
  (setq p210 (list b10 a)) 
                                        ;设置上边界各点标 
 
  (setq p31 (list b1 a1)) 
  (setq p32 (list b2 a1)) 
  (setq p33 (list b3 a1)) 
  (setq p34 (list b4 a1)) 
  (setq p35 (list b5 d)) 
  (setq p36 (list b6 a1)) 
  (setq p37 (list b7 a1)) 
  (setq p38 (list b8 a1)) 
  (setq p39 (list b9 a1)) 
  (setq p310 (list b10 d)) 
                                        ;设置下边界各点标 
  (setq p1u (list t1 a)) 
  (setq p1v (list t1 a4)) 
  (setq p2u (list t2 a)) 
  (setq p2v (list t2 a4)) 
  (setq p3u (list t3 a)) 
  (setq p3v (list t3 a4)) 
  (setq p4u (list t4 a)) 
  (setq p4v (list t4 a4)) 
  (setq p5u (list t5 a)) 
  (setq p5v (list t5 a4)) 
  (setq p6u (list t6 a)) 
  (setq p6v (list t6 a4)) 
  (setq p7u (list t7 a)) 
  (setq p7v (list t7 a4))                ;设置第一行分界点标 
 
 
  (setq q0u (list c a41))                ;设置第一列分界点坐标 
  (setq q0v (list b1 a41)) 
  (setq        q1u (list bt11 a41) 
        q1v (list bt11 a1) 
  ) 
  (setq        q2u (list bt12 a41) 
        q2v (list bt12 a1) 
  ) 
  (setq        q3u (list bt13 a41) 
        q3v (list bt13 a1) 
  ) 
  (setq        q4u (list bt14 a41) 
        q4v (list bt14 a1) 
  ) 
  (setq        q5u (list bt15 a41) 
        q5v (list bt15 a1) 
  ) 
  (setq        t1u (list bt21 a4) 
        t1v (list bt21 a1) 
        t2u (list bt22 a4) 
        t2v (list bt22 d) 
  ) 
  ;设置第三列控制点标 
  (setq        zkt_off  (list 98 8)) 
 (command "insert" "zkt_test11" zkt_off "1" "1" "0" "") 
 
  (setq zk_kj (read kongjin))                ;绘制钻孔 
  (setq kj_n (length zk_kj)) 
  (setq zk_a1 '()) 
  (setq zk_a2 '()) 
  (setq zk_a3 '()) 
  (setq zk_a4 '()) 
  (setq yy 0) 
  (setq kj_i -1) 
  (repeat kj_n 
    (setq kj_i (+ kj_i 1)) 
    (setq zkt1 (nth kj_i zk_kj)) 
    (setq ay1 (nth 0 zkt1)) 
    (setq ax (nth 1 zkt1)) 
    (setq zkx1 (/ (/ ax 10.0) 2.0)) 
    (setq xx1 (- 137 zkx1) 
          xx2 (+ 137 zkx1) 
    ) 
    (setq zkb1 (atof bilichi)) 
    (setq ay1 (* ay1 (/ 1000.0 zkb1))) 
    (setq yy (- 243 yy)) 
    (setq yy1 (- 243 ay1)) 
    (setq zkp1 (list xx1 yy) 
          zkp2 (list xx1 yy1) 
          zkp3 (list xx2 yy) 
          zkp4 (list xx2 yy1) 
    ) 
    (setq txt (list 137 (/ (+ yy yy1) 2))) 
    (setq zk_a1 (append zk_a1 (list zkp1 zkp2))) 
    (setq zk_a2 (append zk_a2 (list zkp3 zkp4))) 
    (setq zk_a3 (append zk_a3 (list txt))) 
    (setq zk_a4 (append zk_a4 (list ax))) 
    (setq yy ay1) 
  ) 
  (command "pline" (foreach pt zk_a1 (command pt))) 
  (command "pline" (foreach pt zk_a2 (command pt))) 
  (setq zx_n (length zk_a4)) 
  (setq zx_i -1) 
  (repeat zx_n 
    (setq zx_i (+ zx_i 1)) 
    (setq zx_p1 (nth zx_i zk_a3)) 
    (setq zx_t1 (nth zx_i zk_a4)) 
    (setq tt (strcat "\" "U+2205" (itoa zx_t1))) 
    (command "text" "j" "m" zx_p1 "3" "0" tt "") 
  ) 
 
 
  (setq zk_diceng (read diceng))        ;huizhi caiqulv quxian 
  (setq dc_n (length zk_diceng)) 
  (setq dc_a1 '()) 
  (setq dc_a2 '()) 
  (setq dc_a3 '()) 
  (setq m1 (atof gaocheng)) 
  (setq m2 m1) 
  (setq dcyy 0) 
  (setq dc_i -1) 
  (repeat dc_n 
    (setq dc_i (+ dc_i 1)) 
    (setq dc1 (nth dc_i zk_diceng)) 
    (setq dcay1 (nth 0 dc1)) 
    (setq bzkh dcay1)                        ;kongshen shuzhi 
 
 
    (setq dcay1 (* dcay1 (/ 1000.0 zkb1))) ;biaozhu  kongshen 
    (setq bz (list 151.5 (- 245 dcay1))) 
    (setq bzkh1 (rtos bzkh 2 2)) 
    (command "text" "j" "m" bz "3" "0" bzkh1 "") 
 
    (setq bzgc (- m1 bzkh)) 
    (setq bzgc1 (rtos bzgc 2 2)) 
    (setq gch (list 164.5 (- 245 dcay1))) 
    (command "text" "j" "m" gch "3" "0" bzgc1 "") ;biaozhu gaocheng 
 
                                        ; (setq s1 m1) 
    (setq bzgc2 (- m2 bzgc)) 
    (setq bzgc3 (rtos bzgc2 2 2)) 
    (setq ch (list 176.5 (- 245 dcay1))) 
    (command "text" "j" "m" ch "3" "0" bzgc3 "") ;biaozhu cenghou 
    (setq m2 bzgc) 
    (setq dcax1 (nth 1 dc1)) 
    (setq dcxx1 (+ 221 (* dcax1 0.2))) 
    (setq yxp1 (list b9 (- 243 dcay1)) 
          yxp2 (list b10 (- 243 dcay1)) 
    ) 
    (setq yxp3 (list b2 (- 243 dcay1)) 
          yxp4 (list b3 (- 243 dcay1)) 
    ) 
 
 
 
    (setq dcyy (- 243 dcyy)) 
    (setq dcyy1 (- 243 dcay1)) 
    (setq dcyt (/ (+ dcyy dcyy1) 2.0)) 
    (setq dcpt (list (- dcxx1 1) dcyt)) 
 
    (setq dcp1 (list dcxx1 dcyy) 
          dcp2 (list dcxx1 dcyy1) 
    ) 
    (setq dcb1 (itoa dcax1)) 
 
    (setq dctxt (list 137 (/ (+ dcyy dcyy1) 2))) 
 
    (setq dc_a1 (append dc_a1 (list dcp1 dcp2))) 
    (setq dc_a2 (append dc_a2 (list dcb1))) 
    (setq dc_a3 (append dc_a3 (list dcpt))) 
    (setq dcyy dcay1) 
    (command "line" yxp1 yxp2 "")        ;yxp1 yxp2 shui ping fenjiexian 
    (command "line" yxp3 yxp4 "") 
 
  ) 
  (setq        yxp5 (list c (- 243 dcay1)) 
        yxp6 (list b (- 243 dcay1)) 
  ) 
  (command "line" yxp5 yxp6 "")                ;yxp5 yxp6 zui xia mian shuiping jiexian 
 
 
  (command "pline" (foreach dcpt dc_a1 (command dcpt))) 
  (setq yx_n (length dc_a3)) 
  (setq yx_i -1) 
  (repeat yx_n 
    (setq yx_i (+ yx_i 1)) 
    (setq dc_p1 (nth yx_i dc_a2)) 
    (setq dc_t1 (nth yx_i dc_a3)) 
    (command "text" "j" "r" dc_t1 "3" "0" dc_p1 "") 
  )                                        ;text biaozhu 
  (setq hwm1 (atof dixiashui)) 
  (if (> hwm1 0) 
    (progn 
      (setq hwm2 (atof gaocheng)) 
      (setq hwdt1 (- 243 (* hwm1 (/ 1000.0 zkb1)))) 
      (setq hwdt2 (rtos hwm1 2 2)) 
      (setq hwpp hwdt1) 
      (setq hwp1 (list 306 hwpp) 
            hwp2 (list 305 (+ hwpp 2.4)) 
            hwp3 (list 305 (- hwpp 2.4)) 
      ) 
      (setq hwp4 (list b8 hwpp) 
            hwp5 (list b9 hwpp) 
      ) 
      (setq hwtx1 (- hwm2 hwm1))        ;shui wei gaocheng 
      (setq hwtx1 (rtos hwtx1 2 2)) 
      (command "line" hwp4 hwp5 "") 
      (command "text" "j" "m" hwp2 "3" "0" hwdt2 "") ;shuiwei 
      (command "text" "j" "m" hwp3 "3" "0" hwtx1 "") ;shuiweigaocheng 
    ) 
    (progn 
      (command "text" "j" "m" "304.105,222.0" "3" "0" "干" "") 
      (command "text" "j" "m" "304.105,200.0" "3" "0" "孔" "") 
    ) 
  ) 
  (setq bilichi (strcat "1:" bilichi)) 
   
 
  (command "text" "j" "m" "136,268.5" "3.5" "0" bianhao "") 
  (command "text" "j" "m" "136,247.5" "2.6" "0" bilichi "") 
  (command "text" "j" "m" "201,268.5" "3.5" "0" zhuanghao "") 
  (command "text" "j" "m" "253.475,268.5" "3.5"        "0" gaocheng "") 
  (command "text" "j" "m" "296.755,268.5" "3.5"        "0" zkongshen "") 
   
  (command "text" "j" "m" "318.85,268.5" "3.5" "0" "钻孔坐标" "") 
  (command "text" 
           "j" 
           "m" 
           "346.79,270.5" 
           "3" 
           "0" 
           (strcat "X:" xzuobiao) 
           "" 
  ) 
  (command "text" 
           "j" 
           "m" 
           "346.79,266.5" 
           "3" 
           "0" 
           (strcat "Y:" yzuobiao) 
           "" 
  ) 
   
  (command "text" "j" "m" "393.99,268.5" "3.5" "0" kriqi "") 
 
  (command "text" "j" "m" "436.715,268.5" "3.5" "0" jriqi "") 
     (Command "-bhatch" "p" "ansi38" 1 0 (list 130 180) "") 
   (Command "-bhatch" "p" "ansi38" 1 0 (list 145 180) "") 
  (command "mtext""315.715,240""425,208" Yanxin1 "") 
  (command "mtext" "315.715,205" "425,160"Yanxin2 "") 
  (command "mtext" "315.715,157" "425,95"Yanxin3 "") 
   
   
)

思达克 · 发表于 2003-6-22 09:29:01

加载后，输入“zkt”、“zkt2”cad不认，输入“zkt2f”后cad显示“; 错误: 参数类型错误: FILE nil”请帮忙解答，谢谢

aeo · 发表于 2003-6-22 11:10:46

zkt2.dat
弄个样例贴一下好吗.

基于对话框的方法,也没有.

entrophy · 发表于 2003-6-22 11:13:24

这是因为缺少数据文件，所以提示无法找到文件。

数据文件格式如下：
钻空编号
钻孔桩号
钻孔高程
钻孔x坐标
钻孔y坐标
比例尺
钻空深度
开工日期
竣工日期
地下水位
孔径层次 eg:((3.4 130)(15 110))
岩心采取率曲线eg:((5.6 90)(15 80))
岩心描述内容

因为上次帖了没有反映，
所以我就没有帖数据文件和基于对话框的文件。
下次一起补上来

msdg · 发表于 2003-6-22 12:02:58

感谢楼上无私奉献，虽然不是地质专业，但工作中也会和其有关系。因此也想学习学习，下了以后遇到思达克同样的问题。原来是缺少数据文件。
没回帖不说明没反应，有时大家是在等待楼主的进一步说明。可以看一看浏览数就知道了。
请楼主好事做到底，附上相关的说明、数据文件样例等。送人玫瑰，手留余香！相互交流，共同提高。

entrophy · 发表于 2003-6-25 16:24:14

没问题啦
等我出差回来马上就全部传上来。

文件说明：
1。zkt2.dat为参考的数据文件
2。zkt_test11.dwg为需要插入的图框文件
3。标准柱状图为做出的标准文件
4。zkt.dcl为基于对话框模式的dcl文件
5。zkt.lsp为基于对话框模式的lsp文件
因为用对话框方式输入数据没有编写文本文件快捷，
所以lsp程序取消了基于对话框输入岩心描述的内容。
需要的同道只要用cad自己输入文本就可以了。
6。对话框例子.bmp为基于对话框模式的程序接口画面。
7。zkt2.lsp为基于文本文件的lsp程序。
使用时注意在程序中修改自己的dat文件的保存路径。

注意之处：
1。因为我不知道如何为CAD设置默认字体，所以直接画出的柱状图有乱码和
其他的问题，希望各位大侠教我如何解决。
我所想到的解决方法是先打开标准柱状图.dwg，然后“全选”，“删除”，
再调用zkt2f命令画图。
2。画柱状图的注意事项可以参考dcl对话框的“帮助”按钮所提供的参考内容。

斑竹在吗？
我怎么上传不了附件，
给我你的信箱，
我把附件发到你的信箱中，
帮我上传如何啊？

错误信息
上传附件出错. 请返回重试, 如果问题仍然存在, 请联系管理员

因为不能上传，
我把所有的文本文件都贴上来给大家做参考
因为缺少自定义的图框文件，
所以还是没有办法使用。
只好请大家多包含了。。

zkt.dcl

dcl_settings : default_dcl_settings { audit_level = 0; }
zkt : dialog {
label = /*MSG1*/"钻孔信息设置";
: boxed_column {
label = /*MSG18*/"钻孔信息";
:row {
: boxed_column {
label = "钻孔属性";
: edit_box {
label = /*MSG19*/"钻孔编号";
key = "zk_bianhao";
edit_width = 9;
}
: edit_box {
label = /*MSG20*/"钻孔桩号";
key = "zk_zhuanghao";
edit_width = 9;
}
: edit_box {
label = /*MSG21*/"孔口高程";
key = "zk_gaocheng";
edit_width = 9;
}
: edit_box {
label = /*MSG22*/"X坐标";
key = "zk_xzuobiao";
edit_width = 9;
}
: edit_box {
label = /*MSG23*/"Y坐标";
key = "zk_yzuobiao";
edit_width = 9;
}
: edit_box {
label = /*MSG27*/"比例尺";
key = "zk_bilichi";
edit_width = 9;
}
}
: boxed_column {
label = "工程信息";
: edit_box {
label = /*MSG25*/"钻孔类型";
key = "zk_leixing";
edit_width = 7;
}
: edit_box {
label = /*MSG26*/"终孔孔深";
key = "zk_zkongshen";
edit_width = 7;
}
: edit_box {
label = /*MSG27*/"验孔孔深";
key = "zk_ykongshen";
edit_width = 7;
}
: edit_box {
label = /*MSG28*/"施工机组";
key = "zk_jizu";
edit_width = 7;
}
: edit_box {
label = /*MSG29*/"开工日期";
key = "zk_kriqi";
edit_width = 7;
}
: edit_box {
label = /*MSG30*/"竣工日期";
key = "zk_jriqi";
edit_width = 7;
}
}
: boxed_column {
label = "地质信息";
: edit_box {
label = /*MSG31*/"孔径层次";
key = "zk_kongjin";
edit_width = 7;
}
: edit_box {
label = /*MSG32*/"地层结构";
key = "zk_diceng";
edit_width = 7;
}
: edit_box {
label = /*MSG33*/"地下水位?";
key = "zk_dixiashui";
edit_width = 7;
}
: edit_box {
label = /*MSG37*/"质量等级";
key = "zk_zhiliang";
edit_width = 7;
}
: edit_box {
label = /*MSG35*/"地质值班";
key = "zk_zhiban";
edit_width = 7;
}
: edit_box {
label = /*MSG36*/"地质负责";
key = "zk_fuze";
edit_width = 7;
}
}
}
: row {
ok_button;
cancel_button;
:button{
label="帮助信息";
key="helpinfo";
fixed_width=true;
}
}
}
}
help:dialog
{
label="帮助信息";
spacer_1;
:text{
label="1.绘制钻孔图时,只需要输入必要内容,其他内容可以暂时不进行处理";
}
:text{
label="2.输入比例尺时,只需要输入比率,比如1:100只要输入100即可";
}
:text{
label="3.孔径层次的输入法如下((深度孔径)):((5 130)(15 110))外层括号不能省略";
}
:text{
label="4.地层结构的输入法同上,为避免作图误差,对于90的岩心采取率建议改为91或者89";
}
:text{
label="5.地下水位必须大于0,若小于0或者不进行输入,将作为干孔处理";
}
:text{
label="6.绘制钻孔图前必需先打开标准图件direct.dwg,然后删除标准图件,以消除显示误差";
}
ok_only;
}

dcl_settings : default_dcl_settings { audit_level = 0; } 
zkt : dialog { 
 
    label = /*MSG1*/"钻孔信息设置"; 
    
    : boxed_column { 
 
    label = /*MSG18*/"钻孔信息"; 
 
        :row { 
           : boxed_column { 
                label = "钻孔属性"; 
 
                : edit_box { 
                    label = /*MSG19*/"钻孔编号"; 
                    key = "zk_bianhao"; 
                    edit_width = 9; 
                } 
                : edit_box { 
                    label = /*MSG20*/"钻孔桩号"; 
                    key = "zk_zhuanghao"; 
                    edit_width = 9; 
                } 
                : edit_box { 
                    label = /*MSG21*/"孔口高程"; 
                    key = "zk_gaocheng"; 
                    edit_width = 9; 
                } 
                : edit_box { 
                    label = /*MSG22*/"X坐标"; 
                    key = "zk_xzuobiao"; 
                    edit_width = 9; 
                } 
                : edit_box { 
                    label = /*MSG23*/"Y坐标"; 
                    key = "zk_yzuobiao"; 
                    edit_width = 9; 
                } 
                : edit_box { 
                    label = /*MSG27*/"比例尺"; 
                    key = "zk_bilichi"; 
                    edit_width = 9; 
                } 
           } 
 
           : boxed_column { 
                label = "工程信息"; 
 
                : edit_box { 
                    label = /*MSG25*/"钻孔类型"; 
                    key = "zk_leixing"; 
                    edit_width = 7; 
                   
                } 
                : edit_box { 
                    label = /*MSG26*/"终孔孔深"; 
                    key = "zk_zkongshen"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG27*/"验孔孔深"; 
                    key = "zk_ykongshen"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG28*/"施工机组"; 
                    key = "zk_jizu"; 
                    edit_width = 7; 
                     
                } 
                : edit_box { 
                    label = /*MSG29*/"开工日期"; 
                    key = "zk_kriqi"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG30*/"竣工日期"; 
                    key = "zk_jriqi"; 
                    edit_width = 7; 
                } 
           } 
 
           : boxed_column { 
                label = "地质信息"; 
 
                : edit_box { 
                    label = /*MSG31*/"孔径层次"; 
                    key = "zk_kongjin"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG32*/"地层结构"; 
                    key = "zk_diceng"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG33*/"地下水位?"; 
                    key = "zk_dixiashui"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG37*/"质量等级"; 
                    key = "zk_zhiliang"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG35*/"地质值班"; 
                    key = "zk_zhiban"; 
                    edit_width = 7; 
                } 
                : edit_box { 
                    label = /*MSG36*/"地质负责"; 
                    key = "zk_fuze"; 
                    edit_width = 7; 
                } 
  } 
 } 
 
    : row { 
       ok_button; 
                cancel_button; 
                :button{ 
       label="帮助信息"; 
       key="helpinfo"; 
       fixed_width=true; 
       } 
       
       } 
     } 
} 
help:dialog 
{ 
label="帮助信息"; 
spacer_1; 
:text{ 
label="1.绘制钻孔图时,只需要输入必要内容,其他内容可以暂时不进行处理"; 
} 
:text{ 
label="2.输入比例尺时,只需要输入比率,比如1:100只要输入100即可"; 
} 
:text{ 
label="3.孔径层次的输入法如下((深度 孔径)):((5 130)(15 110))外层括号不能省略"; 
} 
:text{ 
label="4.地层结构的输入法同上,为避免作图误差,对于90的岩心采取率建议改为91或者89"; 
} 
:text{ 
label="5.地下水位必须大于0,若小于0或者不进行输入,将作为干孔处理"; 
} 
:text{ 
label="6.绘制钻孔图前必需先打开标准图件direct.dwg,然后删除标准图件,以消除显示误差"; 
} 
ok_only; 
}

;;;钻孔柱状图绘制：zkt1.lsp
;;;调用对话框程序:zkt
(defun c:zkt (/ dcl_id bianhao zhuanghao gaocheng
xzuobiao yzuobiao bilichi leixing zkongshen
ykongshen jizu kriqi jriqi kongjin
diceng dixiashui zhiliang zhiban fuze
wp
)
(setq dcl_id (load_dialog "zkt.dcl"))
(if (< dcl_id 0)
(exit)
)
(setq wp 0)
(setq dixiashui "0")
(new_dialog "zkt" dcl_id)
(mode_tile "zk_bianhao" 2) ;shezhi bianji kuang focus
(action_tile "zk_bianhao" "(setq bianhao $value)")
(action_tile "zk_zhuanghao" "(setq zhuanghao $value)")
(action_tile "zk_gaocheng" "(setq gaocheng $value)")
(action_tile "zk_xzuobiao" "(setq xzuobiao $value)")
(action_tile "zk_yzuobiao" "(setq yzuobiao $value)")
(action_tile "zk_bilichi" "(setq bilichi $value)")
(action_tile "zk_leixing" "(setq leixing $value)")
(action_tile "zk_zkongshen" "(setq zkongshen $value)")
(action_tile "zk_ykongshen" "(setq ykongshen $value)")
(action_tile "zk_jizu" "(setq jizu $value)")
(action_tile "zk_kriqi" "(setq kriqi $value)")
(action_tile "zk_jriqi" "(setq jriqi $value)")
(action_tile "zk_kongjin" "(setq kongjin $value)")
(action_tile "zk_diceng" "(setq diceng $value)")
(action_tile "zk_dixiashui" "(setq dixiashui $value)")
(action_tile "zk_zhiliang" "(setq zhiliang $value)")
(action_tile "zk_zhiban" "(setq zhiban $value)")
(action_tile "zk_fuze" "(setq fuze $value)")
(action_tile "accept" "(justyes) (done_dialog)") ;
(action_tile "cancel" "(justnone) (done_dialog )") ;
(action_tile "helpinfo" "(c:help)") ;
(start_dialog)
(unload_dialog dcl_id) ;unload dialog
(if (> wp 0)
(draw)
)
)
;;;do_hz
(defun justyes () ;justify huitu
(setq wp 1)
)
(defun justnone ()
(setq wp -1)
)
(defun c:help (/ dclid)
(setq dclid (load_dialog "zkt.dcl"))
(if (not (new_dialog "help" dclid))
(quit)
)
(action_tile "accept" "(done_dialog)")
(start_dialog)
(unload_dialog dclid)
(princ)
)
;;;设计制图主程序：draw
(defun draw ()
(setvar "cmdecho" 0)
(setvar "osmode" 32)
(setq c 0
d 0
)
(setq offsetx 98 ;98相对于坐标原点的偏移量
offsety 8 ;8
)
(setq c (+ c offsetx)
d (+ d offsety)
)
(setq a (+ d 265)
b (+ c 350)
) ;p1(c d);p2(c a);p3(b,a)p4(b,d)
(setq x1 (+ c 44.5)
y1 (+ d 259.7)
)
(setq a1 (+ d 9.38)
a2 (+ d 123.14)
a3 (+ d 235.13)
a4 (+ d 255.09)
a5 (+ d 265.0)
) ;ai为相应的水平线的纵坐标
(setq b1 (+ c 28.8)
b2 (+ c 48.90)
b3 (+ c 83.35)
b4 (+ c 120.57) ;123.37
b5 (+ c 143.81)
b6 (+ c 161.42)
)
(setq bt21 (+ b2 9.5)
bt22 (+ b2 24.45)
) ;第2列的分割点坐标
(setq b7 (+ c 181.38)
b8 (+ c 197.23)
b9 (+ c 214.25)
b10 (+ c 327.73);325
b11 (+ c 350.0);348
)
(setq bt11 (+ c 4.8)
bt12 (+ bt11 4.8)
bt13 (+ bt12 4.8)
bt14 (+ bt13 4.8)
bt15 (+ bt14 4.8)
bt16 (+ bt15 4.8)
) ;b1i 为第一列的6个子列的横坐标 b16=b
(setq a41 (+ d 244.96))
;a41为划分第一列的横线的纵标
(setq bt61 (list b6 a41)
bt62 (list b9 a41)
) ;bt61，bt62为6到9列水平线坐标
(setq t1 (+ b5 23.33))
(setq t2 (+ t1 22.24)
t3 (+ t2 18.45)
t4 (+ t3 26.04)
t5 (+ t4 29.84)
t6 (+ t5 21.16)
t7 (+ t6 20.64)
)
;ti为从孔口高程开始的第一行的相应垂直划分线的横坐）
(setq pt2 (+ b5 37.0)) ;pt2为最下一行根据b5确定的垂线的横坐标；biti为上下坐标从左到右
(setq b6t1 (list pt2 a1)
b6t0 (list pt2 d)
)
(setq b7t1 (list (+ pt2 18.26) a1)
b7t0 (list (+ pt2 18.26) d)
)
(setq b8t1 (list (+ pt2 46.89) a1)
b8t0 (list (+ pt2 46.89) d)
)
(setq b9t1 (list (+ pt2 62.40) a1)
b9t0 (list (+ pt2 62.40) d)
)
(setq b10t1 (list (+ pt2 90.12) a1)
b10t0 (list (+ pt2 90.12) d)
)
(setq b11t1 (list (+ pt2 106.65) a1)
b11t0 (list (+ pt2 106.65) d)
)
(setq b12t1 (list (+ pt2 131.27) a1)
b12t0 (list (+ pt2 131.27) d)
)
(setq p1 (list c d))
(setq p2 (list c a))
(setq p3 (list b a))
(setq p4 (list b d))
(setq p11 (list c a1))
(setq p12 (list c a2))
(setq p13 (list c a3))
(setq p14 (list c a4))
(setq p41 (list b a1))
(setq p42 (list b a2))
(setq p43 (list b a3))
(setq p44 (list b a4))
;设置左右边界各点坐标
(setq p21 (list b1 a)) ;p2i中的2代表上界
(setq p22 (list b2 a))
(setq p23 (list b3 a))
(setq p24 (list b4 a))
(setq p25 (list b5 a))
(setq p26 (list b6 a4))
(setq p27 (list b7 a4))
(setq p28 (list b8 a41))
(setq p29 (list b9 a4))
(setq p210 (list b10 a))
;设置上边界各点标
(setq p31 (list b1 a1))
(setq p32 (list b2 a1))
(setq p33 (list b3 a1))
(setq p34 (list b4 a1))
(setq p35 (list b5 d))
(setq p36 (list b6 a1))
(setq p37 (list b7 a1))
(setq p38 (list b8 a1))
(setq p39 (list b9 a1))
(setq p310 (list b10 d))
;设置下边界各点标
(setq p1u (list t1 a))
(setq p1v (list t1 a4))
(setq p2u (list t2 a))
(setq p2v (list t2 a4))
(setq p3u (list t3 a))
(setq p3v (list t3 a4))
(setq p4u (list t4 a))
(setq p4v (list t4 a4))
(setq p5u (list t5 a))
(setq p5v (list t5 a4))
(setq p6u (list t6 a))
(setq p6v (list t6 a4))
(setq p7u (list t7 a))
(setq p7v (list t7 a4)) ;设置第一行分界点标
(setq q0u (list c a41)) ;设置第一列分界点坐标
(setq q0v (list b1 a41))
(setq q1u (list bt11 a41)
q1v (list bt11 a1)
)
(setq q2u (list bt12 a41)
q2v (list bt12 a1)
)
(setq q3u (list bt13 a41)
q3v (list bt13 a1)
)
(setq q4u (list bt14 a41)
q4v (list bt14 a1)
)
(setq q5u (list bt15 a41)
q5v (list bt15 a1)
)
(setq t1u (list bt21 a4)
t1v (list bt21 a1)
t2u (list bt22 a4)
t2v (list bt22 d)
) ;设置第三列控制点坐标
(command "line" p1 p2 "")
(command "line" p2 p3 "")
(command "line" p3 p4 "")
(command "line" p4 p1 "")
; 画边框
(command "line" p11 p41 "")
; (command "line" p12 p42 "")
(command "line" p13 p43 "")
(command "line" p14 p44 "")
; 画水平边界
(command "line" p21 p31 "")
(command "line" p22 p32 "")
(command "line" p23 p33 "")
(command "line" p24 p34 "")
(command "line" p25 p35 "")
(command "line" p26 p36 "")
(command "line" p27 p37 "")
(command "line" p28 p38 "")
(command "line" p29 p39 "")
(command "line" p210 p310 "") ;画界
(command "line" p1u p1v "")
(command "line" p2u p2v "")
(command "line" p3u p3v "")
(command "line" p4u p4v "")
(command "line" p5u p5v "")
(command "line" p6u p6v "")
(command "line" p7u p7v "") ;补充绘制第一行不规则的列的分界线
(command "line" q0u q0v "")
(command "line" q1u q1v "")
(command "line" q2u q2v "")
(command "line" q3u q3v "")
(command "line" q4u q4v "")
(command "line" q5u q5v "")
;补充绘制第一列的不规则界
(command "line" t1u t1v "")
(command "line" t2u t2v "") ;补充绘制第三列的不规则界
(command "line" bt61 bt62 "") ;绘制6-9列水平分线
(command "line" b6t1 b6t0 "") ;绘制最底行第6-11列的垂直分线
(command "line" b7t1 b7t0 "")
(command "line" b8t1 b8t0 "")
(command "line" b9t1 b9t0 "")
(command "line" b10t1 b10t0 "")
(command "line" b11t1 b11t0 "")
(command "line" b12t1 b12t0 "")
(setq zk_kj (read kongjin)) ;绘制钻孔
(setq kj_n (length zk_kj))
(setq zk_a1 '())
(setq zk_a2 '())
(setq zk_a3 '())
(setq zk_a4 '())
(setq yy 0)
(setq kj_i -1)
(repeat kj_n
(setq kj_i (+ kj_i 1))
(setq zkt1 (nth kj_i zk_kj))
(setq ay1 (nth 0 zkt1))
(setq ax (nth 1 zkt1))
(setq zkx1 (/ (/ ax 10.0) 2.0))
(setq xx1 (- 137 zkx1)
xx2 (+ 137 zkx1)
)
(setq zkb1 (atof bilichi))
(setq ay1 (* ay1 (/ 1000.0 zkb1)))
(setq yy (- 243 yy))
(setq yy1 (- 243 ay1))
(setq zkp1 (list xx1 yy)
zkp2 (list xx1 yy1)
zkp3 (list xx2 yy)
zkp4 (list xx2 yy1)
)
(setq txt (list 137 (/ (+ yy yy1) 2)))
(setq zk_a1 (append zk_a1 (list zkp1 zkp2)))
(setq zk_a2 (append zk_a2 (list zkp3 zkp4)))
(setq zk_a3 (append zk_a3 (list txt)))
(setq zk_a4 (append zk_a4 (list ax)))
(setq yy ay1)
)
(command "pline" (foreach pt zk_a1 (command pt)))
(command "pline" (foreach pt zk_a2 (command pt)))
(setq zx_n (length zk_a4))
(setq zx_i -1)
(repeat zx_n
(setq zx_i (+ zx_i 1))
(setq zx_p1 (nth zx_i zk_a3))
(setq zx_t1 (nth zx_i zk_a4))
(setq tt (strcat "\" "U+2205" (itoa zx_t1)))
(command "text" "j" "m" zx_p1 "3" "0" tt "")
)
(setq zk_diceng (read diceng)) ;huizhi caiqulv quxian
(setq dc_n (length zk_diceng))
(setq dc_a1 '())
(setq dc_a2 '())
(setq dc_a3 '())
(setq m1 (atof gaocheng))
(setq m2 m1)
(setq dcyy 0)
(setq dc_i -1)
(repeat dc_n
(setq dc_i (+ dc_i 1))
(setq dc1 (nth dc_i zk_diceng))
(setq dcay1 (nth 0 dc1))
(setq bzkh dcay1) ;kongshen shuzhi
(setq dcay1 (* dcay1 (/ 1000.0 zkb1))) ;biaozhu kongshen
(setq bz (list 151.5 (- 245 dcay1)))
(setq bzkh1 (rtos bzkh 2 2))
(command "text" "j" "m" bz "3" "0" bzkh1 "")
(setq bzgc (- m1 bzkh))
(setq bzgc1 (rtos bzgc 2 2))
(setq gch (list 164.5 (- 245 dcay1)))
(command "text" "j" "m" gch "3" "0" bzgc1 "") ;biaozhu gaocheng
; (setq s1 m1)
(setq bzgc2 (- m2 bzgc))
(setq bzgc3 (rtos bzgc2 2 2))
(setq ch (list 176.5 (- 245 dcay1)))
(command "text" "j" "m" ch "3" "0" bzgc3 "") ;biaozhu cenghou
(setq m2 bzgc)
(setq dcax1 (nth 1 dc1))
(setq dcxx1 (+ 221 (* dcax1 0.2)))
(setq yxp1 (list b9 (- 243 dcay1))
yxp2 (list b10 (- 243 dcay1))
)
(setq yxp3 (list b2 (- 243 dcay1))
yxp4 (list b3 (- 243 dcay1))
)
(setq dcyy (- 243 dcyy))
(setq dcyy1 (- 243 dcay1))
(setq dcyt (/ (+ dcyy dcyy1) 2.0))
(setq dcpt (list (- dcxx1 1) dcyt))
(setq dcp1 (list dcxx1 dcyy)
dcp2 (list dcxx1 dcyy1)
)
(setq dcb1 (itoa dcax1))
(setq dctxt (list 137 (/ (+ dcyy dcyy1) 2)))
(setq dc_a1 (append dc_a1 (list dcp1 dcp2)))
(setq dc_a2 (append dc_a2 (list dcb1)))
(setq dc_a3 (append dc_a3 (list dcpt)))
(setq dcyy dcay1)
(command "line" yxp1 yxp2 "") ;yxp1 yxp2 shui ping fenjiexian
(command "line" yxp3 yxp4 "")
)
(setq yxp5 (list c (- 243 dcay1))
yxp6 (list b (- 243 dcay1))
)
(command "line" yxp5 yxp6 "") ;yxp5 yxp6 zui xia mian shuiping jiexian
(command "pline" (foreach dcpt dc_a1 (command dcpt)))
(setq yx_n (length dc_a3))
(setq yx_i -1)
(repeat yx_n
(setq yx_i (+ yx_i 1))
(setq dc_p1 (nth yx_i dc_a2))
(setq dc_t1 (nth yx_i dc_a3))
(command "text" "j" "r" dc_t1 "3" "0" dc_p1 "")
) ;text biaozhu
(setq hwm1 (atof dixiashui))
(if (> hwm1 0)
(progn
(setq hwm2 (atof gaocheng))
(setq hwdt1 (- 243 (* hwm1 (/ 1000.0 zkb1))))
(setq hwdt2 (rtos hwm1 2 2))
(setq hwpp hwdt1)
(setq hwp1 (list 306 hwpp)
hwp2 (list 306 (+ hwpp 2.4))
hwp3 (list 306 (- hwpp 2.4))
)
(setq hwp4 (list b8 hwpp)
hwp5 (list b9 hwpp)
)
(setq hwtx1 (- hwm2 hwm1)) ;shui wei gaocheng
(setq hwtx1 (rtos hwtx1 2 2))
(command "line" hwp4 hwp5 "")
(command "text" "j" "m" hwp2 "3" "0" hwdt2 "") ;shuiwei
(command "text" "j" "m" hwp3 "3" "0" hwtx1 "") ;shuiweigaocheng
)
(progn
(command "text" "j" "m" "304.105,222.0" "3" "0" "干" "")
(command "text" "j" "m" "304.105,200.0" "3" "0" "孔" "")
)
)
(setq bilichi (strcat "1:" bilichi))
(command "text" "j" "m" "112,268.5" "3.5" "0" "钻孔编号" "")
(command "text" "j" "m" "114.3,257.5" "3.5" "0" " 地层 " "")
(command "text" "j" "m" "101.6,247.4" "3" "0" " 界 " "")
(command "text" "j" "m" "101.6,231.4" "3" "0" "新" "")
(command "text" "j" "m" "101.6,194.4" "3" "0" "生" "")
(command "text" "j" "m" "101.6,157.4" "3" "0" "界" "")
(command "text" "j" "m" "106.4,247.4" "3" "0" " 系 " "")
(command "text" "j" "m" "106.0,231.4" "3" "0" "第" "")
(command "text" "j" "m" "106.0,194.4" "3" "0" "四" "")
(command "text" "j" "m" "106.0,157.4" "3" "0" "系" "")
(command "text" "j" "m" "111.2,247.4" "3" "0" " 统 " "")
(command "text" "j" "m" "111.0,231.4" "3" "0" "全" "")
(command "text" "j" "m" "111.0,194.4" "3" "0" "新" "")
(command "text" "j" "m" "111.0,157.4" "3" "0" "统" "")
(command "text" "j" "m" "115.5,247.4" "3" "0" " 组 " "")
(command "text" "j" "m" "120.8,247.4" "3" "0" " 层 " "")
(command "text" "j" "m" "120.4,234.4" "3" "0" "冲" "")
(command "text" "j" "m" "120.4,209.4" "3" "0" "洪" "")
(command "text" "j" "m" "120.4,178.4" "3" "0" "积" "")
(command "text" "j" "m" "120.4,153.4" "3" "0" "层" "")
(command "text" "j" "m" "125.6,249.9" "3" "0" " 代 " "")
(command "text" "j" "m" "125.6,245.7" "3" "0" " 号 " "")
(command "text" "j" "m" "136,268.5" "3.5" "0" bianhao "")
(command "text" "j" "m" "136,259.5" "2.6" "0" "钻孔结构及" "")
(command "text" "j" "m" "136,253.5" "2.6" "0" "地层柱状图" "")
(command "text" "j" "m" "136,247.5" "2.6" "0" bilichi "")
(command "text" "j" "m" "163,268.5" "3.5" "0" "钻孔位置" "")
(command "text" "j" "m" "151.5,259.5" "3.5" "0" "孔" "")
(command "text" "j" "m" "151.5,253.5" "3.5" "0" "深" "")
(command "text" "j" "m" "151.5,247.5" "3.5" "0" "(M)" "")
(command "text" "j" "m" "164.5,259.5" "3.5" "0" "高" "")
(command "text" "j" "m" "164.5,253.5" "3.5" "0" "程" "")
(command "text" "j" "m" "164.5,247.5" "3.5" "0" "(M)" "")
(command "text" "j" "m" "176.5,259.5" "3.5" "0" "层" "")
(command "text" "j" "m" "176.5,253.5" "3.5" "0" "厚" "")
(command "text" "j" "m" "176.5,247.5" "3.5" "0" "(M)" "")
(command "text" "j" "m" "201,268.5" "3.5" "0" zhuanghao "")
(command "text" "j" "m" "200.6,259.5" "3.5" "0" "标贯试验(击)" "")
(command "text" "j" "m" "200.6,253.5" "3.5" "0" "动力触探曲线N" "")
(command "text" "j" "m" "200.6,247.5" "3.5" "0" "10 20 30" "")
(command "text" "j" "m" "230.6,268.5" "3.5" "0" "孔口高程" "")
(command "text" "j" "m" "230.6,259.5" "3.1" "0" "岩心采取率" "")
(command "text" "j" "m" "230.6,253.5" "3.1" "0" " % " "")
(command "text" "j" "m" "230.6,247.5" "3.1" "0" "25 50 75" "")
(command "text" "j" "m" "253.475,268.5" "3.5" "0" gaocheng "")
(command "text" "j" "m" "251.075,261" "3.0" "0" "岩石" "")
(command "text" "j" "m" "251.075,256.5" "3.0" "0" "质量指标" "")
(command "text" "j" "m" "252.075,252.0" "3.0" "0" "RQD(%)" "")
(command "text" "j" "m" "251.075,247.5" "3.0" "0" "25 50 75" "")
(command "text" "j" "m" "276.16,268.5" "3.5" "0" "终孔深度" "")
(command "text" "j" "m" "268.26,257.5" "3.5" "0" "试样编号" "")
(command "text" "j" "m" "269.26,247.0" "3.5" "0" "孔深(M)" "")
(command "text" "j" "m" "296.755,268.5" "3.5" "0" zkongshen "")
(command "text" "j" "m" "287.605,257.5" "3.2" "0" "地下水位" "")
(command "text" "j" "m" "287.605,247.0" "3.2" "0" "初见" "")
(command "text" "j" "m" "304.105,247.0" "3.2" "0" "静止" "")
(command "text" "j" "m" "300.605,259.9" "2.6" "0" "孔深" "")
(command "text" "j" "m" "300.605,254.9" "2.6" "0" "标高" "")
(command "text" "j" "m" "308.605,257.5" "3.2" "0" "(M)" "")
(command "text" "j" "m" "318.85,268.5" "3.5" "0" "钻孔坐标" "")
(command "text"
"j"
"m"
"346.79,270.5"
"3"
"0"
(strcat "x:" xzuobiao)
""
)
(command "text"
"j"
"m"
"346.79,266.5"
"3"
"0"
(strcat "y:" yzuobiao)
""
)
(command "text" "j" "m" "372.34,268.5" "3.5" "0" "开工日期" "")
(command "text" "j" "m" "367.34,253.5"
"3.5" "0" " 岩性描述"
""
)
(command "text" "j" "m" "393.99,268.5" "3.5" "0" kriqi "")
(command "text" "j" "m" "415.205,268.5" "3.5" "0" "竣工日期" "")
(command "text" "j" "m" "436.715,268.5" "3.5" "0" jriqi "")
(command "text" "j" "m" "436.515,253.5" "3.5" "0" " 备注 " "")
(command "text" "j" "m"
"135,13.08" "3.4" "0"
"规划设计院" ""
)
(command "text" "j" "m" "260.42,13.08" "3.4" "0" "钻孔柱状图" "")
(command "text" "j" "m" "289.42,13.08" "3.4" "0" "制图" "")
(command "text" "j" "m" "334,13.08" "3.4" "0" "复核" "")
(command "text" "j" "m" "378,13.08" "3.4" "0" "审核" "")
(command "text" "j" "m" "418.75,13.08" "3.4" "0" "图号" "")
)
示范文件zkt2.dat
zk9
k1+800
8848.88
1234.56
5678.12
120
15.00
2003.8.18
2003.8.19
8.4
((3.2 130)(9.8 110)(15.0 94))
((3.6 88)(8.4 83)(15 80))
粉土:灰黄~灰褐色,干燥~稍湿,松散,可塑,不可搓条,上层含有少量植物根茎和腐殖质.
含卵砾石土粉土:灰黄色,稍密~中密,卵砾石成分以砂岩为主,磨圆度较好,粒径2~6cm,含量20%左右.
漂卵石土:密实,成分以砂岩为主,粒径20~40cm,磨圆度较好,含量65~75%,充填少量沙砾.
;;;钻孔柱状图绘制：zkt2.lsp
;;;调用程序:zkt
(defun c:zkt2f (/ dcl_id bianhao zhuanghao gaocheng
xzuobiao yzuobiao bilichi leixing zkongshen
ykongshen jizu kriqi jriqi kongjin
diceng dixiashui zhiliang zhiban fuze
wp)
(setq n 0)
;(setq dat_file (getfiled "请选择文件" "f:\\project\\zkt2" "dat" 2))
; (setq dat_file (open "zkt2.dat" "r"))
(setq ff (open "f:\\entrophy\\lisp\\zkt\\release\\zkt2.dat" "r"))
(setq data "start")
(setq data (read-line ff))
(while data
(setq dat data)
(setq n (+ 1 n))
(princ n)
(if(= n 1)
(setq bianhao dat)
)
(if (= n 2)
(setq zhuanghao dat)
)
(if (= n 3)
(setq gaocheng dat)
)
(if (= n 4)
(setq xzuobiao dat)
)
(if (= n 5)
(setq yzuobiao dat)
)
(if (= n 6)
(setq bilichi dat)
)
(if (= n 7)
(setq zkongshen dat)
)
(if (= n 8)
(setq kriqi dat)
)
(if (= n 9)
(setq jriqi dat)
)
(if (= n 10)
(setq dixiashui dat)
)
;(setq data (read-line ff))
(if (= n 11)
(setq kongjin dat)
)
(if (= n 12)
(setq diceng dat)
)
(if (= n 13)
(setq Yanxin1 dat)
)
(if (= n 14)
(setq Yanxin2 dat)
)
(if (= n 15)
(setq Yanxin3 dat)
)
(setq data (read-line ff))
)
(setvar "cmdecho" 0)
;(setvar "osmode" 32)
(setq c 0
d 0
)
(setq offsetx 98 ;98相对于坐标原点的偏移量
offsety 8 ;8
)
(setq c (+ c offsetx)
d (+ d offsety)
)
(setq a (+ d 265)
b (+ c 350)
) ;p1(c d);p2(c a);p3(b,a)p4(b,d)
(setq x1 (+ c 44.5)
y1 (+ d 259.7)
)
(setq a1 (+ d 9.38)
a2 (+ d 123.14)
a3 (+ d 235.13)
a4 (+ d 255.09)
a5 (+ d 265.0)
) ;ai为相应的水平线的纵坐标
(setq b1 (+ c 28.8)
b2 (+ c 48.90)
b3 (+ c 83.35)
b4 (+ c 120.57) ;123.37
b5 (+ c 143.81)
b6 (+ c 161.42)
)
(setq bt21 (+ b2 9.5)
bt22 (+ b2 24.45)
) ;第2列的分割点坐标
(setq b7 (+ c 181.38)
b8 (+ c 197.23)
b9 (+ c 214.25)
b10 (+ c 327.73);325
b11 (+ c 350.0);348
)
(setq bt11 (+ c 4.8)
bt12 (+ bt11 4.8)
bt13 (+ bt12 4.8)
bt14 (+ bt13 4.8)
bt15 (+ bt14 4.8)
bt16 (+ bt15 4.8)
) ;b1i 为第一列的6个子列的横坐标 b16=b
(setq a41 (+ d 244.96))
;a41为划分第一列的横线的纵标
(setq bt61 (list b6 a41)
bt62 (list b9 a41)
) ;bt61，bt62为6到9列水平线坐标
(setq t1 (+ b5 23.33))
(setq t2 (+ t1 22.24)
t3 (+ t2 18.45)
t4 (+ t3 26.04)
t5 (+ t4 29.84)
t6 (+ t5 21.16)
t7 (+ t6 20.64)
)
;ti为从孔口高程开始的第一行的相应垂直划分线的横坐）
(setq pt2 (+ b5 37.0)) ;pt2为最下一行根据b5确定的垂线的横坐标；biti为上下坐标从左到右
(setq b6t1 (list pt2 a1)
b6t0 (list pt2 d)
)
(setq b7t1 (list (+ pt2 18.26) a1)
b7t0 (list (+ pt2 18.26) d)
)
(setq b8t1 (list (+ pt2 46.89) a1)
b8t0 (list (+ pt2 46.89) d)
)
(setq b9t1 (list (+ pt2 62.40) a1)
b9t0 (list (+ pt2 62.40) d)
)
(setq b10t1 (list (+ pt2 90.12) a1)
b10t0 (list (+ pt2 90.12) d)
)
(setq b11t1 (list (+ pt2 106.65) a1)
b11t0 (list (+ pt2 106.65) d)
)
(setq b12t1 (list (+ pt2 131.27) a1)
b12t0 (list (+ pt2 131.27) d)
)
(setq p1 (list c d))
(setq p2 (list c a))
(setq p3 (list b a))
(setq p4 (list b d))
(setq p11 (list c a1))
(setq p12 (list c a2))
(setq p13 (list c a3))
(setq p14 (list c a4))
(setq p41 (list b a1))
(setq p42 (list b a2))
(setq p43 (list b a3))
(setq p44 (list b a4))
;设置左右边界各点坐标
(setq p21 (list b1 a)) ;p2i中的2代表上界
(setq p22 (list b2 a))
(setq p23 (list b3 a))
(setq p24 (list b4 a))
(setq p25 (list b5 a))
(setq p26 (list b6 a4))
(setq p27 (list b7 a4))
(setq p28 (list b8 a41))
(setq p29 (list b9 a4))
(setq p210 (list b10 a))
;设置上边界各点标
(setq p31 (list b1 a1))
(setq p32 (list b2 a1))
(setq p33 (list b3 a1))
(setq p34 (list b4 a1))
(setq p35 (list b5 d))
(setq p36 (list b6 a1))
(setq p37 (list b7 a1))
(setq p38 (list b8 a1))
(setq p39 (list b9 a1))
(setq p310 (list b10 d))
;设置下边界各点标
(setq p1u (list t1 a))
(setq p1v (list t1 a4))
(setq p2u (list t2 a))
(setq p2v (list t2 a4))
(setq p3u (list t3 a))
(setq p3v (list t3 a4))
(setq p4u (list t4 a))
(setq p4v (list t4 a4))
(setq p5u (list t5 a))
(setq p5v (list t5 a4))
(setq p6u (list t6 a))
(setq p6v (list t6 a4))
(setq p7u (list t7 a))
(setq p7v (list t7 a4)) ;设置第一行分界点标
(setq q0u (list c a41)) ;设置第一列分界点坐标
(setq q0v (list b1 a41))
(setq q1u (list bt11 a41)
q1v (list bt11 a1)
)
(setq q2u (list bt12 a41)
q2v (list bt12 a1)
)
(setq q3u (list bt13 a41)
q3v (list bt13 a1)
)
(setq q4u (list bt14 a41)
q4v (list bt14 a1)
)
(setq q5u (list bt15 a41)
q5v (list bt15 a1)
)
(setq t1u (list bt21 a4)
t1v (list bt21 a1)
t2u (list bt22 a4)
t2v (list bt22 d)
)
;设置第三列控制点标
(setq zkt_off (list 98 8))
(command "insert" "zkt_test11" zkt_off "1" "1" "0" "")
(setq zk_kj (read kongjin)) ;绘制钻孔
(setq kj_n (length zk_kj))
(setq zk_a1 '())
(setq zk_a2 '())
(setq zk_a3 '())
(setq zk_a4 '())
(setq yy 0)
(setq kj_i -1)
(repeat kj_n
(setq kj_i (+ kj_i 1))
(setq zkt1 (nth kj_i zk_kj))
(setq ay1 (nth 0 zkt1))
(setq ax (nth 1 zkt1))
(setq zkx1 (/ (/ ax 10.0) 2.0))
(setq xx1 (- 137 zkx1)
xx2 (+ 137 zkx1)
)
(setq zkb1 (atof bilichi))
(setq ay1 (* ay1 (/ 1000.0 zkb1)))
(setq yy (- 243 yy))
(setq yy1 (- 243 ay1))
(setq zkp1 (list xx1 yy)
zkp2 (list xx1 yy1)
zkp3 (list xx2 yy)
zkp4 (list xx2 yy1)
)
(setq txt (list 137 (/ (+ yy yy1) 2)))
(setq zk_a1 (append zk_a1 (list zkp1 zkp2)))
(setq zk_a2 (append zk_a2 (list zkp3 zkp4)))
(setq zk_a3 (append zk_a3 (list txt)))
(setq zk_a4 (append zk_a4 (list ax)))
(setq yy ay1)
)
(command "pline" (foreach pt zk_a1 (command pt)))
(command "pline" (foreach pt zk_a2 (command pt)))
(setq zx_n (length zk_a4))
(setq zx_i -1)
(repeat zx_n
(setq zx_i (+ zx_i 1))
(setq zx_p1 (nth zx_i zk_a3))
(setq zx_t1 (nth zx_i zk_a4))
(setq tt (strcat "\" "U+2205" (itoa zx_t1)))
(command "text" "j" "m" zx_p1 "3" "0" tt "")
)
(setq zk_diceng (read diceng)) ;huizhi caiqulv quxian
(setq dc_n (length zk_diceng))
(setq dc_a1 '())
(setq dc_a2 '())
(setq dc_a3 '())
(setq m1 (atof gaocheng))
(setq m2 m1)
(setq dcyy 0)
(setq dc_i -1)
(repeat dc_n
(setq dc_i (+ dc_i 1))
(setq dc1 (nth dc_i zk_diceng))
(setq dcay1 (nth 0 dc1))
(setq bzkh dcay1) ;kongshen shuzhi
(setq dcay1 (* dcay1 (/ 1000.0 zkb1))) ;biaozhu kongshen
(setq bz (list 151.5 (- 245 dcay1)))
(setq bzkh1 (rtos bzkh 2 2))
(command "text" "j" "m" bz "3" "0" bzkh1 "")
(setq bzgc (- m1 bzkh))
(setq bzgc1 (rtos bzgc 2 2))
(setq gch (list 164.5 (- 245 dcay1)))
(command "text" "j" "m" gch "3" "0" bzgc1 "") ;biaozhu gaocheng
; (setq s1 m1)
(setq bzgc2 (- m2 bzgc))
(setq bzgc3 (rtos bzgc2 2 2))
(setq ch (list 176.5 (- 245 dcay1)))
(command "text" "j" "m" ch "3" "0" bzgc3 "") ;biaozhu cenghou
(setq m2 bzgc)
(setq dcax1 (nth 1 dc1))
(setq dcxx1 (+ 221 (* dcax1 0.2)))
(setq yxp1 (list b9 (- 243 dcay1))
yxp2 (list b10 (- 243 dcay1))
)
(setq yxp3 (list b2 (- 243 dcay1))
yxp4 (list b3 (- 243 dcay1))
)
(setq dcyy (- 243 dcyy))
(setq dcyy1 (- 243 dcay1))
(setq dcyt (/ (+ dcyy dcyy1) 2.0))
(setq dcpt (list (- dcxx1 1) dcyt))
(setq dcp1 (list dcxx1 dcyy)
dcp2 (list dcxx1 dcyy1)
)
(setq dcb1 (itoa dcax1))
(setq dctxt (list 137 (/ (+ dcyy dcyy1) 2)))
(setq dc_a1 (append dc_a1 (list dcp1 dcp2)))
(setq dc_a2 (append dc_a2 (list dcb1)))
(setq dc_a3 (append dc_a3 (list dcpt)))
(setq dcyy dcay1)
(command "line" yxp1 yxp2 "") ;yxp1 yxp2 shui ping fenjiexian
(command "line" yxp3 yxp4 "")
)
(setq yxp5 (list c (- 243 dcay1))
yxp6 (list b (- 243 dcay1))
)
(command "line" yxp5 yxp6 "") ;yxp5 yxp6 zui xia mian shuiping jiexian
(command "pline" (foreach dcpt dc_a1 (command dcpt)))
(setq yx_n (length dc_a3))
(setq yx_i -1)
(repeat yx_n
(setq yx_i (+ yx_i 1))
(setq dc_p1 (nth yx_i dc_a2))
(setq dc_t1 (nth yx_i dc_a3))
(command "text" "j" "r" dc_t1 "3" "0" dc_p1 "")
) ;text biaozhu
(setq hwm1 (atof dixiashui))
(if (> hwm1 0)
(progn
(setq hwm2 (atof gaocheng))
(setq hwdt1 (- 243 (* hwm1 (/ 1000.0 zkb1))))
(setq hwdt2 (rtos hwm1 2 2))
(setq hwpp hwdt1)
(setq hwp1 (list 306 hwpp)
hwp2 (list 305 (+ hwpp 2.4))
hwp3 (list 305 (- hwpp 2.4))
)
(setq hwp4 (list b8 hwpp)
hwp5 (list b9 hwpp)
)
(setq hwtx1 (- hwm2 hwm1)) ;shui wei gaocheng
(setq hwtx1 (rtos hwtx1 2 2))
(command "line" hwp4 hwp5 "")
(command "text" "j" "m" hwp2 "3" "0" hwdt2 "") ;shuiwei
(command "text" "j" "m" hwp3 "3" "0" hwtx1 "") ;shuiweigaocheng
)
(progn
(command "text" "j" "m" "304.105,222.0" "3" "0" "干" "")
(command "text" "j" "m" "304.105,200.0" "3" "0" "孔" "")
)
)
(setq bilichi (strcat "1:" bilichi))
(command "text" "j" "m" "136,268.5" "3.5" "0" bianhao "")
(command "text" "j" "m" "136,247.5" "2.6" "0" bilichi "")
(command "text" "j" "m" "201,268.5" "3.5" "0" zhuanghao "")
(command "text" "j" "m" "253.475,268.5" "3.5" "0" gaocheng "")
(command "text" "j" "m" "296.755,268.5" "3.5" "0" zkongshen "")
(command "text" "j" "m" "318.85,268.5" "3.5" "0" "钻孔坐标" "")
(command "text"
"j"
"m"
"346.79,270.5"
"3"
"0"
(strcat "X:" xzuobiao)
""
)
(command "text"
"j"
"m"
"346.79,266.5"
"3"
"0"
(strcat "Y:" yzuobiao)
""
)
(command "text" "j" "m" "393.99,268.5" "3.5" "0" kriqi "")
(command "text" "j" "m" "436.715,268.5" "3.5" "0" jriqi "")
(Command "-bhatch" "p" "ansi38" 1 0 (list 130 180) "")
(Command "-bhatch" "p" "ansi38" 1 0 (list 145 180) "")
(command "mtext""315.715,240""425,208" Yanxin1 "")
(command "mtext" "315.715,205" "425,160"Yanxin2 "")
(command "mtext" "315.715,157" "425,95"Yanxin3 "")
)

;;;钻孔柱状图绘制 ：zkt1.lsp 
;;;调用对话框程序:zkt 
(defun c:zkt (/                 dcl_id            bianhao    zhuanghao  gaocheng 
              xzuobiao         yzuobiao   bilichi    leixing          zkongshen 
              ykongshen         jizu            kriqi      jriqi          kongjin 
              diceng         dixiashui  zhiliang   zhiban          fuze 
              wp 
             ) 
  (setq dcl_id (load_dialog "zkt.dcl")) 
  (if (< dcl_id 0) 
    (exit) 
  ) 
  (setq wp 0) 
   (setq dixiashui "0") 
   (new_dialog "zkt" dcl_id) 
  (mode_tile "zk_bianhao" 2)                ;shezhi bianji kuang focus            
  (action_tile "zk_bianhao" "(setq bianhao $value)") 
  (action_tile "zk_zhuanghao" "(setq zhuanghao $value)") 
  (action_tile "zk_gaocheng" "(setq gaocheng $value)") 
 
  (action_tile "zk_xzuobiao" "(setq xzuobiao $value)") 
  (action_tile "zk_yzuobiao" "(setq yzuobiao $value)") 
  (action_tile "zk_bilichi" "(setq bilichi $value)") 
  (action_tile "zk_leixing" "(setq leixing $value)") 
 
  (action_tile "zk_zkongshen" "(setq zkongshen $value)") 
  (action_tile "zk_ykongshen" "(setq ykongshen $value)") 
  (action_tile "zk_jizu" "(setq jizu $value)") 
  (action_tile "zk_kriqi" "(setq kriqi $value)") 
  (action_tile "zk_jriqi" "(setq jriqi $value)") 
 
 
  (action_tile "zk_kongjin" "(setq kongjin $value)") 
  (action_tile "zk_diceng" "(setq diceng $value)") 
  (action_tile "zk_dixiashui" "(setq dixiashui $value)") 
  (action_tile "zk_zhiliang" "(setq zhiliang $value)") 
  (action_tile "zk_zhiban" "(setq zhiban $value)") 
  (action_tile "zk_fuze" "(setq fuze $value)") 
 
 
  (action_tile "accept" "(justyes) (done_dialog)") ; 
  (action_tile "cancel" "(justnone) (done_dialog )") ; 
  (action_tile "helpinfo" "(c:help)")        ; 
  (start_dialog) 
 
  (unload_dialog dcl_id)                ;unload dialog 
  (if (> wp 0) 
    (draw) 
  ) 
 
) 
;;;do_hz 
(defun justyes ()                        ;justify huitu 
  (setq wp 1) 
) 
 
(defun justnone        () 
  (setq wp -1) 
) 
(defun c:help (/ dclid) 
  (setq dclid (load_dialog "zkt.dcl")) 
  (if (not (new_dialog "help" dclid)) 
    (quit) 
  ) 
  (action_tile "accept" "(done_dialog)") 
  (start_dialog) 
  (unload_dialog dclid) 
  (princ) 
) 
;;;设计制图主程序：draw 
(defun draw () 
 
  (setvar "cmdecho" 0) 
  (setvar "osmode" 32) 
  (setq        c 0 
        d 0 
  ) 
  (setq        offsetx        98                        ;98相对于坐标原点的偏移量 
        offsety        8                        ;8 
  ) 
  (setq        c (+ c offsetx) 
        d (+ d offsety) 
  ) 
  (setq        a (+ d 265) 
        b (+ c 350) 
  )                                        ;p1(c d);p2(c a);p3(b,a)p4(b,d) 
  (setq        x1 (+ c 44.5) 
        y1 (+ d 259.7) 
  ) 
  (setq        a1 (+ d 9.38) 
        a2 (+ d 123.14) 
        a3 (+ d 235.13) 
        a4 (+ d 255.09) 
        a5 (+ d 265.0) 
  )                                        ;ai为相应的水平线的纵坐标 
  (setq        b1 (+ c 28.8) 
        b2 (+ c 48.90) 
        b3 (+ c 83.35) 
        b4 (+ c 120.57)                        ;123.37 
        b5 (+ c 143.81) 
        b6 (+ c 161.42) 
  ) 
  (setq        bt21 (+ b2 9.5) 
        bt22 (+ b2 24.45) 
  )                                        ;第2列的分割点坐标 
  (setq        b7  (+ c 181.38) 
        b8  (+ c 197.23) 
        b9  (+ c 214.25) 
        b10 (+ c 327.73);325 
        b11 (+ c 350.0);348 
  ) 
 
 
  (setq        bt11 (+ c 4.8) 
        bt12 (+ bt11 4.8) 
        bt13 (+ bt12 4.8) 
        bt14 (+ bt13 4.8) 
        bt15 (+ bt14 4.8) 
        bt16 (+ bt15 4.8) 
  )                                        ;b1i 为第一列的6个子列的横坐标 b16=b 
  (setq a41 (+ d 244.96)) 
                                        ;a41为划分第一列的横线的纵标 
  (setq        bt61 (list b6 a41) 
        bt62 (list b9 a41) 
  )                                        ;bt61，bt62为6到9列水平线坐标 
 
  (setq t1 (+ b5 23.33)) 
  (setq        t2 (+ t1 22.24) 
        t3 (+ t2 18.45) 
        t4 (+ t3 26.04) 
        t5 (+ t4 29.84) 
        t6 (+ t5 21.16) 
        t7 (+ t6 20.64) 
  ) 
                                        ;ti为从孔口高程开始的第一行的相应垂直划分线的横坐） 
  (setq pt2 (+ b5 37.0))                ;pt2为最下一行根据b5确定的垂线的横坐标；biti为上下坐标从左到右 
  (setq        b6t1 (list pt2 a1) 
        b6t0 (list pt2 d) 
  ) 
  (setq        b7t1 (list (+ pt2 18.26) a1) 
        b7t0 (list (+ pt2 18.26) d) 
  ) 
  (setq        b8t1 (list (+ pt2 46.89) a1) 
        b8t0 (list (+ pt2 46.89) d) 
  ) 
  (setq        b9t1 (list (+ pt2 62.40) a1) 
        b9t0 (list (+ pt2 62.40) d) 
  ) 
  (setq        b10t1 (list (+ pt2 90.12) a1) 
        b10t0 (list (+ pt2 90.12) d) 
  ) 
  (setq        b11t1 (list (+ pt2 106.65) a1) 
        b11t0 (list (+ pt2 106.65) d) 
  ) 
  (setq        b12t1 (list (+ pt2 131.27) a1) 
        b12t0 (list (+ pt2 131.27) d) 
  ) 
 
  (setq p1 (list c d)) 
  (setq p2 (list c a)) 
  (setq p3 (list b a)) 
  (setq p4 (list b d)) 
  (setq p11 (list c a1)) 
  (setq p12 (list c a2)) 
  (setq p13 (list c a3)) 
  (setq p14 (list c a4)) 
  (setq p41 (list b a1)) 
  (setq p42 (list b a2)) 
  (setq p43 (list b a3)) 
  (setq p44 (list b a4)) 
                                        ;设置左右边界各点坐标 
  (setq p21 (list b1 a))                ;p2i中的2代表上界 
  (setq p22 (list b2 a)) 
  (setq p23 (list b3 a)) 
  (setq p24 (list b4 a)) 
  (setq p25 (list b5 a)) 
  (setq p26 (list b6 a4)) 
  (setq p27 (list b7 a4)) 
  (setq p28 (list b8 a41)) 
  (setq p29 (list b9 a4)) 
  (setq p210 (list b10 a)) 
                                        ;设置上边界各点标 
 
  (setq p31 (list b1 a1)) 
  (setq p32 (list b2 a1)) 
  (setq p33 (list b3 a1)) 
  (setq p34 (list b4 a1)) 
  (setq p35 (list b5 d)) 
  (setq p36 (list b6 a1)) 
  (setq p37 (list b7 a1)) 
  (setq p38 (list b8 a1)) 
  (setq p39 (list b9 a1)) 
  (setq p310 (list b10 d)) 
                                        ;设置下边界各点标 
  (setq p1u (list t1 a)) 
  (setq p1v (list t1 a4)) 
  (setq p2u (list t2 a)) 
  (setq p2v (list t2 a4)) 
  (setq p3u (list t3 a)) 
  (setq p3v (list t3 a4)) 
  (setq p4u (list t4 a)) 
  (setq p4v (list t4 a4)) 
  (setq p5u (list t5 a)) 
  (setq p5v (list t5 a4)) 
  (setq p6u (list t6 a)) 
  (setq p6v (list t6 a4)) 
  (setq p7u (list t7 a)) 
  (setq p7v (list t7 a4))                ;设置第一行分界点标 
 
 
  (setq q0u (list c a41))                ;设置第一列分界点坐标 
  (setq q0v (list b1 a41)) 
  (setq        q1u (list bt11 a41) 
        q1v (list bt11 a1) 
  ) 
  (setq        q2u (list bt12 a41) 
        q2v (list bt12 a1) 
  ) 
  (setq        q3u (list bt13 a41) 
        q3v (list bt13 a1) 
  ) 
  (setq        q4u (list bt14 a41) 
        q4v (list bt14 a1) 
  ) 
  (setq        q5u (list bt15 a41) 
        q5v (list bt15 a1) 
  ) 
  (setq        t1u (list bt21 a4) 
        t1v (list bt21 a1) 
        t2u (list bt22 a4) 
        t2v (list bt22 d) 
  )                                        ;设置第三列控制点坐标 
 
 
  (command "line" p1 p2 "") 
  (command "line" p2 p3 "") 
  (command "line" p3 p4 "") 
  (command "line" p4 p1 "") 
                                        ;   画边框 
  (command "line" p11 p41 "") 
                                        ; (command "line" p12 p42 "") 
  (command "line" p13 p43 "") 
  (command "line" p14 p44 "") 
                                        ;  画水平边界 
  (command "line" p21 p31 "") 
  (command "line" p22 p32 "") 
  (command "line" p23 p33 "") 
  (command "line" p24 p34 "") 
  (command "line" p25 p35 "") 
  (command "line" p26 p36 "") 
  (command "line" p27 p37 "") 
  (command "line" p28 p38 "") 
  (command "line" p29 p39 "") 
  (command "line" p210 p310 "")                ;画界 
 
  (command "line" p1u p1v "") 
  (command "line" p2u p2v "") 
  (command "line" p3u p3v "") 
  (command "line" p4u p4v "") 
  (command "line" p5u p5v "") 
  (command "line" p6u p6v "") 
  (command "line" p7u p7v "")                ;补充绘制第一行不规则的列的分界线 
 
 
 
  (command "line" q0u q0v "") 
  (command "line" q1u q1v "") 
  (command "line" q2u q2v "") 
  (command "line" q3u q3v "") 
  (command "line" q4u q4v "") 
  (command "line" q5u q5v "") 
                                        ;补充绘制第一列的不规则界 
 
  (command "line" t1u t1v "") 
  (command "line" t2u t2v "")                ;补充绘制第三列的不规则界 
 
  (command "line" bt61 bt62 "")                ;绘制6-9列水平分线 
  (command "line" b6t1 b6t0 "")                ;绘制最底行第6-11列的垂直分线 
  (command "line" b7t1 b7t0 "") 
  (command "line" b8t1 b8t0 "") 
  (command "line" b9t1 b9t0 "") 
  (command "line" b10t1 b10t0 "") 
  (command "line" b11t1 b11t0 "") 
  (command "line" b12t1 b12t0 "") 
  (setq zk_kj (read kongjin))                ;绘制钻孔 
  (setq kj_n (length zk_kj)) 
  (setq zk_a1 '()) 
  (setq zk_a2 '()) 
  (setq zk_a3 '()) 
  (setq zk_a4 '()) 
  (setq yy 0) 
  (setq kj_i -1) 
  (repeat kj_n 
    (setq kj_i (+ kj_i 1)) 
    (setq zkt1 (nth kj_i zk_kj)) 
    (setq ay1 (nth 0 zkt1)) 
    (setq ax (nth 1 zkt1)) 
    (setq zkx1 (/ (/ ax 10.0) 2.0)) 
    (setq xx1 (- 137 zkx1) 
          xx2 (+ 137 zkx1) 
    ) 
    (setq zkb1 (atof bilichi)) 
    (setq ay1 (* ay1 (/ 1000.0 zkb1))) 
    (setq yy (- 243 yy)) 
    (setq yy1 (- 243 ay1)) 
    (setq zkp1 (list xx1 yy) 
          zkp2 (list xx1 yy1) 
          zkp3 (list xx2 yy) 
          zkp4 (list xx2 yy1) 
    ) 
    (setq txt (list 137 (/ (+ yy yy1) 2))) 
    (setq zk_a1 (append zk_a1 (list zkp1 zkp2))) 
    (setq zk_a2 (append zk_a2 (list zkp3 zkp4))) 
    (setq zk_a3 (append zk_a3 (list txt))) 
    (setq zk_a4 (append zk_a4 (list ax))) 
    (setq yy ay1) 
  ) 
  (command "pline" (foreach pt zk_a1 (command pt))) 
  (command "pline" (foreach pt zk_a2 (command pt))) 
  (setq zx_n (length zk_a4)) 
  (setq zx_i -1) 
  (repeat zx_n 
    (setq zx_i (+ zx_i 1)) 
    (setq zx_p1 (nth zx_i zk_a3)) 
    (setq zx_t1 (nth zx_i zk_a4)) 
    (setq tt (strcat "\" "U+2205" (itoa zx_t1))) 
    (command "text" "j" "m" zx_p1 "3" "0" tt "") 
  ) 
 
 
  (setq zk_diceng (read diceng))        ;huizhi caiqulv quxian 
  (setq dc_n (length zk_diceng)) 
  (setq dc_a1 '()) 
  (setq dc_a2 '()) 
  (setq dc_a3 '()) 
  (setq m1 (atof gaocheng)) 
  (setq m2 m1) 
  (setq dcyy 0) 
  (setq dc_i -1) 
  (repeat dc_n 
    (setq dc_i (+ dc_i 1)) 
    (setq dc1 (nth dc_i zk_diceng)) 
    (setq dcay1 (nth 0 dc1)) 
    (setq bzkh dcay1)                        ;kongshen shuzhi 
 
 
    (setq dcay1 (* dcay1 (/ 1000.0 zkb1))) ;biaozhu  kongshen 
    (setq bz (list 151.5 (- 245 dcay1))) 
    (setq bzkh1 (rtos bzkh 2 2)) 
    (command "text" "j" "m" bz "3" "0" bzkh1 "") 
 
    (setq bzgc (- m1 bzkh)) 
    (setq bzgc1 (rtos bzgc 2 2)) 
    (setq gch (list 164.5 (- 245 dcay1))) 
    (command "text" "j" "m" gch "3" "0" bzgc1 "") ;biaozhu gaocheng 
 
                                        ; (setq s1 m1) 
    (setq bzgc2 (- m2 bzgc)) 
    (setq bzgc3 (rtos bzgc2 2 2)) 
    (setq ch (list 176.5 (- 245 dcay1))) 
    (command "text" "j" "m" ch "3" "0" bzgc3 "") ;biaozhu cenghou 
    (setq m2 bzgc) 
    (setq dcax1 (nth 1 dc1)) 
    (setq dcxx1 (+ 221 (* dcax1 0.2))) 
    (setq yxp1 (list b9 (- 243 dcay1)) 
          yxp2 (list b10 (- 243 dcay1)) 
    ) 
    (setq yxp3 (list b2 (- 243 dcay1)) 
          yxp4 (list b3 (- 243 dcay1)) 
    ) 
 
 
 
    (setq dcyy (- 243 dcyy)) 
    (setq dcyy1 (- 243 dcay1)) 
    (setq dcyt (/ (+ dcyy dcyy1) 2.0)) 
    (setq dcpt (list (- dcxx1 1) dcyt)) 
 
    (setq dcp1 (list dcxx1 dcyy) 
          dcp2 (list dcxx1 dcyy1) 
    ) 
    (setq dcb1 (itoa dcax1)) 
 
    (setq dctxt (list 137 (/ (+ dcyy dcyy1) 2))) 
 
    (setq dc_a1 (append dc_a1 (list dcp1 dcp2))) 
    (setq dc_a2 (append dc_a2 (list dcb1))) 
    (setq dc_a3 (append dc_a3 (list dcpt))) 
    (setq dcyy dcay1) 
    (command "line" yxp1 yxp2 "")        ;yxp1 yxp2 shui ping fenjiexian 
    (command "line" yxp3 yxp4 "") 
 
  ) 
  (setq        yxp5 (list c (- 243 dcay1)) 
        yxp6 (list b (- 243 dcay1)) 
  ) 
  (command "line" yxp5 yxp6 "")                ;yxp5 yxp6 zui xia mian shuiping jiexian 
 
 
  (command "pline" (foreach dcpt dc_a1 (command dcpt))) 
  (setq yx_n (length dc_a3)) 
  (setq yx_i -1) 
  (repeat yx_n 
    (setq yx_i (+ yx_i 1)) 
    (setq dc_p1 (nth yx_i dc_a2)) 
    (setq dc_t1 (nth yx_i dc_a3)) 
    (command "text" "j" "r" dc_t1 "3" "0" dc_p1 "") 
  )                                        ;text biaozhu 
  (setq hwm1 (atof dixiashui)) 
  (if (> hwm1 0) 
    (progn 
      (setq hwm2 (atof gaocheng)) 
      (setq hwdt1 (- 243 (* hwm1 (/ 1000.0 zkb1)))) 
      (setq hwdt2 (rtos hwm1 2 2)) 
      (setq hwpp hwdt1) 
      (setq hwp1 (list 306 hwpp) 
            hwp2 (list 306 (+ hwpp 2.4)) 
            hwp3 (list 306 (- hwpp 2.4)) 
      ) 
      (setq hwp4 (list b8 hwpp) 
            hwp5 (list b9 hwpp) 
      ) 
      (setq hwtx1 (- hwm2 hwm1))        ;shui wei gaocheng 
      (setq hwtx1 (rtos hwtx1 2 2)) 
      (command "line" hwp4 hwp5 "") 
      (command "text" "j" "m" hwp2 "3" "0" hwdt2 "") ;shuiwei 
      (command "text" "j" "m" hwp3 "3" "0" hwtx1 "") ;shuiweigaocheng 
    ) 
    (progn 
      (command "text" "j" "m" "304.105,222.0" "3" "0" "干" "") 
      (command "text" "j" "m" "304.105,200.0" "3" "0" "孔" "") 
    ) 
  ) 
  (setq bilichi (strcat "1:" bilichi)) 
  (command "text" "j" "m" "112,268.5" "3.5" "0" "钻孔编号" "") 
  (command "text" "j" "m" "114.3,257.5"        "3.5" "0" " 地 层 " "") 
  (command "text" "j" "m" "101.6,247.4" "3" "0" " 界 " "") 
  (command "text" "j" "m" "101.6,231.4" "3" "0" "新" "") 
  (command "text" "j" "m" "101.6,194.4" "3" "0" "生" "") 
  (command "text" "j" "m" "101.6,157.4" "3" "0" "界" "") 
 
  (command "text" "j" "m" "106.4,247.4" "3" "0" " 系 " "") 
  (command "text" "j" "m" "106.0,231.4" "3" "0" "第" "") 
  (command "text" "j" "m" "106.0,194.4" "3" "0" "四" "") 
  (command "text" "j" "m" "106.0,157.4" "3" "0" "系" "") 
 
  (command "text" "j" "m" "111.2,247.4" "3" "0" " 统 " "") 
  (command "text" "j" "m" "111.0,231.4" "3" "0" "全" "") 
  (command "text" "j" "m" "111.0,194.4" "3" "0" "新" "") 
  (command "text" "j" "m" "111.0,157.4" "3" "0" "统" "") 
 
  (command "text" "j" "m" "115.5,247.4" "3" "0" " 组 " "") 
  (command "text" "j" "m" "120.8,247.4" "3" "0" " 层 " "") 
  (command "text" "j" "m" "120.4,234.4" "3" "0" "冲" "") 
  (command "text" "j" "m" "120.4,209.4" "3" "0" "洪" "") 
  (command "text" "j" "m" "120.4,178.4" "3" "0" "积" "") 
  (command "text" "j" "m" "120.4,153.4" "3" "0" "层" "") 
 
  (command "text" "j" "m" "125.6,249.9" "3" "0" " 代 " "") 
  (command "text" "j" "m" "125.6,245.7" "3" "0" " 号 " "") 
 
  (command "text" "j" "m" "136,268.5" "3.5" "0" bianhao "") 
  (command "text" "j" "m" "136,259.5" "2.6" "0"        "钻孔结构及" "") 
  (command "text" "j" "m" "136,253.5" "2.6" "0"        "地层柱状图" "") 
  (command "text" "j" "m" "136,247.5" "2.6" "0" bilichi "") 
 
  (command "text" "j" "m" "163,268.5" "3.5" "0" "钻孔位置" "") 
  (command "text" "j" "m" "151.5,259.5" "3.5" "0" "孔" "") 
  (command "text" "j" "m" "151.5,253.5" "3.5" "0" "深" "") 
  (command "text" "j" "m" "151.5,247.5" "3.5" "0" "(M)" "") 
  (command "text" "j" "m" "164.5,259.5" "3.5" "0" "高" "") 
  (command "text" "j" "m" "164.5,253.5" "3.5" "0" "程" "") 
  (command "text" "j" "m" "164.5,247.5" "3.5" "0" "(M)" "") 
  (command "text" "j" "m" "176.5,259.5" "3.5" "0" "层" "") 
  (command "text" "j" "m" "176.5,253.5" "3.5" "0" "厚" "") 
  (command "text" "j" "m" "176.5,247.5" "3.5" "0" "(M)" "") 
 
 
  (command "text" "j" "m" "201,268.5" "3.5" "0" zhuanghao "") 
  (command "text" "j" "m" "200.6,259.5"        "3.5" "0" "标贯试验(击)" "") 
  (command "text" "j" "m" "200.6,253.5"        "3.5" "0" "动力触探曲线N" "") 
  (command "text" "j" "m" "200.6,247.5"        "3.5" "0" "10   20   30" "") 
 
  (command "text" "j" "m" "230.6,268.5"        "3.5" "0" "孔口高程" "") 
  (command "text" "j" "m" "230.6,259.5"        "3.1" "0" "岩心采取率" "") 
  (command "text" "j" "m" "230.6,253.5" "3.1" "0" "  %  " "") 
  (command "text" "j" "m" "230.6,247.5"        "3.1" "0" "25 50 75" "") 
 
  (command "text" "j" "m" "253.475,268.5" "3.5"        "0" gaocheng "") 
  (command "text" "j" "m" "251.075,261" "3.0" "0" "岩石" "") 
  (command "text" "j" "m" "251.075,256.5" "3.0"        "0" "质量指标" "") 
  (command "text" "j" "m" "252.075,252.0" "3.0"        "0" "RQD(%)" "") 
  (command "text" "j" "m" "251.075,247.5" "3.0"        "0" "25 50 75" "") 
 
 
  (command "text" "j" "m" "276.16,268.5" "3.5" "0" "终孔深度" "") 
  (command "text" "j" "m" "268.26,257.5" "3.5" "0" "试样编号" "") 
  (command "text" "j" "m" "269.26,247.0" "3.5" "0" "孔深(M)" "") 
 
  (command "text" "j" "m" "296.755,268.5" "3.5"        "0" zkongshen "") 
  (command "text" "j" "m" "287.605,257.5" "3.2"        "0" "地下水位" "") 
  (command "text" "j" "m" "287.605,247.0" "3.2" "0" "初见" "") 
  (command "text" "j" "m" "304.105,247.0" "3.2" "0" "静止" "") 
  (command "text" "j" "m" "300.605,259.9" "2.6" "0" "孔深" "") 
  (command "text" "j" "m" "300.605,254.9" "2.6" "0" "标高" "") 
  (command "text" "j" "m" "308.605,257.5" "3.2" "0" "(M)" "") 
 
 
 
 
 
 
  (command "text" "j" "m" "318.85,268.5" "3.5" "0" "钻孔坐标" "") 
  (command "text" 
           "j" 
           "m" 
           "346.79,270.5" 
           "3" 
           "0" 
           (strcat "x:" xzuobiao) 
           "" 
  ) 
  (command "text" 
           "j" 
           "m" 
           "346.79,266.5" 
           "3" 
           "0" 
           (strcat "y:" yzuobiao) 
           "" 
  ) 
  (command "text" "j" "m" "372.34,268.5" "3.5" "0" "开工日期" "") 
  (command "text"         "j"               "m"             "367.34,253.5" 
           "3.5"         "0"               "  岩  性  描  述" 
           "" 
          ) 
  (command "text" "j" "m" "393.99,268.5" "3.5" "0" kriqi "") 
  (command "text" "j" "m" "415.205,268.5" "3.5"        "0" "竣工日期" "") 
  (command "text" "j" "m" "436.715,268.5" "3.5" "0" jriqi "") 
  (command "text" "j" "m" "436.515,253.5" "3.5"        "0" "  备  注  " "") 
  (command "text"              "j"                 "m" 
           "135,13.08"              "3.4"                 "0" 
           "规划设计院"         "" 
          ) 
  (command "text" "j" "m" "260.42,13.08" "3.4" "0" "钻孔柱状图"        "") 
  (command "text" "j" "m" "289.42,13.08" "3.4" "0" "制图" "") 
  (command "text" "j" "m" "334,13.08" "3.4" "0" "复核" "") 
  (command "text" "j" "m" "378,13.08" "3.4" "0" "审核" "") 
  (command "text" "j" "m" "418.75,13.08" "3.4" "0" "图号" "") 
 
 
 
) 
 
示范文件zkt2.dat 
 
 
zk9 
k1+800 
8848.88 
1234.56        
5678.12        
120 
15.00 
2003.8.18 
2003.8.19 
8.4 
((3.2 130)(9.8 110)(15.0 94)) 
((3.6 88)(8.4 83)(15 80)) 
粉土:灰黄~灰褐色,干燥~稍湿,松散,可塑,不可搓条,上层含有少量植物根茎和腐殖质. 
含卵砾石土粉土:灰黄色,稍密~中密,卵砾石成分以砂岩为主,磨圆度较好,粒径2~6cm,含量20%左右. 
漂卵石土:密实,成分以砂岩为主,粒径20~40cm,磨圆度较好,含量65~75%,充填少量沙砾. 
 
 
 
;;;钻孔柱状图绘制 ：zkt2.lsp 
;;;调用程序:zkt 
(defun c:zkt2f (/                 dcl_id            bianhao    zhuanghao  gaocheng 
              xzuobiao         yzuobiao   bilichi    leixing          zkongshen 
              ykongshen         jizu            kriqi      jriqi          kongjin 
              diceng         dixiashui  zhiliang   zhiban          fuze 
              wp) 
 
  (setq n 0) 
 
 ;(setq dat_file (getfiled "请选择文件" "f:\\project\\zkt2" "dat" 2)) 
 ; (setq dat_file (open "zkt2.dat" "r")) 
  (setq ff (open "f:\\entrophy\\lisp\\zkt\\release\\zkt2.dat" "r")) 
  (setq data "start") 
  (setq data (read-line ff)) 
  (while data 
     (setq dat data) 
     (setq n (+ 1 n)) 
    
     (princ n) 
      (if(= n 1) 
      (setq bianhao dat) 
       
    ) 
    (if        (= n 2) 
      (setq zhuanghao dat) 
    ) 
    (if        (= n 3) 
      (setq gaocheng dat) 
    ) 
    (if        (= n 4) 
      (setq xzuobiao dat) 
    ) 
    (if        (= n 5) 
      (setq yzuobiao dat) 
    ) 
    (if        (= n 6) 
      (setq bilichi dat) 
    ) 
    (if        (= n 7) 
      (setq zkongshen dat) 
    ) 
    (if        (= n 8) 
      (setq kriqi dat) 
    ) 
    (if        (= n 9) 
      (setq jriqi dat) 
    ) 
    (if        (= n 10) 
      (setq dixiashui dat) 
    ) 
                                        ;(setq data (read-line ff)) 
    (if        (= n 11) 
      (setq kongjin dat) 
    ) 
    (if        (= n 12) 
      (setq diceng dat) 
    ) 
    (if (= n 13) 
      (setq Yanxin1 dat) 
      ) 
     (if (= n 14) 
      (setq Yanxin2 dat) 
      ) 
    (if (= n 15) 
      (setq Yanxin3 dat) 
      ) 
    
     (setq data (read-line ff)) 
       ) 
 
 
 
   
  (setvar "cmdecho" 0) 
  ;(setvar "osmode" 32) 
  (setq        c 0 
        d 0 
  ) 
  (setq        offsetx        98                        ;98相对于坐标原点的偏移量 
        offsety        8                        ;8 
  ) 
  (setq        c (+ c offsetx) 
        d (+ d offsety) 
  ) 
  (setq        a (+ d 265) 
        b (+ c 350) 
  )                                        ;p1(c d);p2(c a);p3(b,a)p4(b,d) 
  (setq        x1 (+ c 44.5) 
        y1 (+ d 259.7) 
  ) 
  (setq        a1 (+ d 9.38) 
        a2 (+ d 123.14) 
        a3 (+ d 235.13) 
        a4 (+ d 255.09) 
        a5 (+ d 265.0) 
  )                                        ;ai为相应的水平线的纵坐标 
  (setq        b1 (+ c 28.8) 
        b2 (+ c 48.90) 
        b3 (+ c 83.35) 
        b4 (+ c 120.57)                        ;123.37 
        b5 (+ c 143.81) 
        b6 (+ c 161.42) 
  ) 
  (setq        bt21 (+ b2 9.5) 
        bt22 (+ b2 24.45) 
  )                                        ;第2列的分割点坐标 
  (setq        b7  (+ c 181.38) 
        b8  (+ c 197.23) 
        b9  (+ c 214.25) 
        b10 (+ c 327.73);325 
        b11 (+ c 350.0);348 
  ) 
 
 
  (setq        bt11 (+ c 4.8) 
        bt12 (+ bt11 4.8) 
        bt13 (+ bt12 4.8) 
        bt14 (+ bt13 4.8) 
        bt15 (+ bt14 4.8) 
        bt16 (+ bt15 4.8) 
  )                                        ;b1i 为第一列的6个子列的横坐标 b16=b 
  (setq a41 (+ d 244.96)) 
                                        ;a41为划分第一列的横线的纵标 
  (setq        bt61 (list b6 a41) 
        bt62 (list b9 a41) 
  )                                        ;bt61，bt62为6到9列水平线坐标 
 
  (setq t1 (+ b5 23.33)) 
  (setq        t2 (+ t1 22.24) 
        t3 (+ t2 18.45) 
        t4 (+ t3 26.04) 
        t5 (+ t4 29.84) 
        t6 (+ t5 21.16) 
        t7 (+ t6 20.64) 
  ) 
                                        ;ti为从孔口高程开始的第一行的相应垂直划分线的横坐） 
  (setq pt2 (+ b5 37.0))                ;pt2为最下一行根据b5确定的垂线的横坐标；biti为上下坐标从左到右 
  (setq        b6t1 (list pt2 a1) 
        b6t0 (list pt2 d) 
  ) 
  (setq        b7t1 (list (+ pt2 18.26) a1) 
        b7t0 (list (+ pt2 18.26) d) 
  ) 
  (setq        b8t1 (list (+ pt2 46.89) a1) 
        b8t0 (list (+ pt2 46.89) d) 
  ) 
  (setq        b9t1 (list (+ pt2 62.40) a1) 
        b9t0 (list (+ pt2 62.40) d) 
  ) 
  (setq        b10t1 (list (+ pt2 90.12) a1) 
        b10t0 (list (+ pt2 90.12) d) 
  ) 
  (setq        b11t1 (list (+ pt2 106.65) a1) 
        b11t0 (list (+ pt2 106.65) d) 
  ) 
  (setq        b12t1 (list (+ pt2 131.27) a1) 
        b12t0 (list (+ pt2 131.27) d) 
  ) 
 
  (setq p1 (list c d)) 
  (setq p2 (list c a)) 
  (setq p3 (list b a)) 
  (setq p4 (list b d)) 
  (setq p11 (list c a1)) 
  (setq p12 (list c a2)) 
  (setq p13 (list c a3)) 
  (setq p14 (list c a4)) 
  (setq p41 (list b a1)) 
  (setq p42 (list b a2)) 
  (setq p43 (list b a3)) 
  (setq p44 (list b a4)) 
                                        ;设置左右边界各点坐标 
  (setq p21 (list b1 a))                ;p2i中的2代表上界 
  (setq p22 (list b2 a)) 
  (setq p23 (list b3 a)) 
  (setq p24 (list b4 a)) 
  (setq p25 (list b5 a)) 
  (setq p26 (list b6 a4)) 
  (setq p27 (list b7 a4)) 
  (setq p28 (list b8 a41)) 
  (setq p29 (list b9 a4)) 
  (setq p210 (list b10 a)) 
                                        ;设置上边界各点标 
 
  (setq p31 (list b1 a1)) 
  (setq p32 (list b2 a1)) 
  (setq p33 (list b3 a1)) 
  (setq p34 (list b4 a1)) 
  (setq p35 (list b5 d)) 
  (setq p36 (list b6 a1)) 
  (setq p37 (list b7 a1)) 
  (setq p38 (list b8 a1)) 
  (setq p39 (list b9 a1)) 
  (setq p310 (list b10 d)) 
                                        ;设置下边界各点标 
  (setq p1u (list t1 a)) 
  (setq p1v (list t1 a4)) 
  (setq p2u (list t2 a)) 
  (setq p2v (list t2 a4)) 
  (setq p3u (list t3 a)) 
  (setq p3v (list t3 a4)) 
  (setq p4u (list t4 a)) 
  (setq p4v (list t4 a4)) 
  (setq p5u (list t5 a)) 
  (setq p5v (list t5 a4)) 
  (setq p6u (list t6 a)) 
  (setq p6v (list t6 a4)) 
  (setq p7u (list t7 a)) 
  (setq p7v (list t7 a4))                ;设置第一行分界点标 
 
 
  (setq q0u (list c a41))                ;设置第一列分界点坐标 
  (setq q0v (list b1 a41)) 
  (setq        q1u (list bt11 a41) 
        q1v (list bt11 a1) 
  ) 
  (setq        q2u (list bt12 a41) 
        q2v (list bt12 a1) 
  ) 
  (setq        q3u (list bt13 a41) 
        q3v (list bt13 a1) 
  ) 
  (setq        q4u (list bt14 a41) 
        q4v (list bt14 a1) 
  ) 
  (setq        q5u (list bt15 a41) 
        q5v (list bt15 a1) 
  ) 
  (setq        t1u (list bt21 a4) 
        t1v (list bt21 a1) 
        t2u (list bt22 a4) 
        t2v (list bt22 d) 
  ) 
  ;设置第三列控制点标 
  (setq        zkt_off  (list 98 8)) 
 (command "insert" "zkt_test11" zkt_off "1" "1" "0" "") 
 
  (setq zk_kj (read kongjin))                ;绘制钻孔 
  (setq kj_n (length zk_kj)) 
  (setq zk_a1 '()) 
  (setq zk_a2 '()) 
  (setq zk_a3 '()) 
  (setq zk_a4 '()) 
  (setq yy 0) 
  (setq kj_i -1) 
  (repeat kj_n 
    (setq kj_i (+ kj_i 1)) 
    (setq zkt1 (nth kj_i zk_kj)) 
    (setq ay1 (nth 0 zkt1)) 
    (setq ax (nth 1 zkt1)) 
    (setq zkx1 (/ (/ ax 10.0) 2.0)) 
    (setq xx1 (- 137 zkx1) 
          xx2 (+ 137 zkx1) 
    ) 
    (setq zkb1 (atof bilichi)) 
    (setq ay1 (* ay1 (/ 1000.0 zkb1))) 
    (setq yy (- 243 yy)) 
    (setq yy1 (- 243 ay1)) 
    (setq zkp1 (list xx1 yy) 
          zkp2 (list xx1 yy1) 
          zkp3 (list xx2 yy) 
          zkp4 (list xx2 yy1) 
    ) 
    (setq txt (list 137 (/ (+ yy yy1) 2))) 
    (setq zk_a1 (append zk_a1 (list zkp1 zkp2))) 
    (setq zk_a2 (append zk_a2 (list zkp3 zkp4))) 
    (setq zk_a3 (append zk_a3 (list txt))) 
    (setq zk_a4 (append zk_a4 (list ax))) 
    (setq yy ay1) 
  ) 
  (command "pline" (foreach pt zk_a1 (command pt))) 
  (command "pline" (foreach pt zk_a2 (command pt))) 
  (setq zx_n (length zk_a4)) 
  (setq zx_i -1) 
  (repeat zx_n 
    (setq zx_i (+ zx_i 1)) 
    (setq zx_p1 (nth zx_i zk_a3)) 
    (setq zx_t1 (nth zx_i zk_a4)) 
    (setq tt (strcat "\" "U+2205" (itoa zx_t1))) 
    (command "text" "j" "m" zx_p1 "3" "0" tt "") 
  ) 
 
 
  (setq zk_diceng (read diceng))        ;huizhi caiqulv quxian 
  (setq dc_n (length zk_diceng)) 
  (setq dc_a1 '()) 
  (setq dc_a2 '()) 
  (setq dc_a3 '()) 
  (setq m1 (atof gaocheng)) 
  (setq m2 m1) 
  (setq dcyy 0) 
  (setq dc_i -1) 
  (repeat dc_n 
    (setq dc_i (+ dc_i 1)) 
    (setq dc1 (nth dc_i zk_diceng)) 
    (setq dcay1 (nth 0 dc1)) 
    (setq bzkh dcay1)                        ;kongshen shuzhi 
 
 
    (setq dcay1 (* dcay1 (/ 1000.0 zkb1))) ;biaozhu  kongshen 
    (setq bz (list 151.5 (- 245 dcay1))) 
    (setq bzkh1 (rtos bzkh 2 2)) 
    (command "text" "j" "m" bz "3" "0" bzkh1 "") 
 
    (setq bzgc (- m1 bzkh)) 
    (setq bzgc1 (rtos bzgc 2 2)) 
    (setq gch (list 164.5 (- 245 dcay1))) 
    (command "text" "j" "m" gch "3" "0" bzgc1 "") ;biaozhu gaocheng 
 
                                        ; (setq s1 m1) 
    (setq bzgc2 (- m2 bzgc)) 
    (setq bzgc3 (rtos bzgc2 2 2)) 
    (setq ch (list 176.5 (- 245 dcay1))) 
    (command "text" "j" "m" ch "3" "0" bzgc3 "") ;biaozhu cenghou 
    (setq m2 bzgc) 
    (setq dcax1 (nth 1 dc1)) 
    (setq dcxx1 (+ 221 (* dcax1 0.2))) 
    (setq yxp1 (list b9 (- 243 dcay1)) 
          yxp2 (list b10 (- 243 dcay1)) 
    ) 
    (setq yxp3 (list b2 (- 243 dcay1)) 
          yxp4 (list b3 (- 243 dcay1)) 
    ) 
 
 
 
    (setq dcyy (- 243 dcyy)) 
    (setq dcyy1 (- 243 dcay1)) 
    (setq dcyt (/ (+ dcyy dcyy1) 2.0)) 
    (setq dcpt (list (- dcxx1 1) dcyt)) 
 
    (setq dcp1 (list dcxx1 dcyy) 
          dcp2 (list dcxx1 dcyy1) 
    ) 
    (setq dcb1 (itoa dcax1)) 
 
    (setq dctxt (list 137 (/ (+ dcyy dcyy1) 2))) 
 
    (setq dc_a1 (append dc_a1 (list dcp1 dcp2))) 
    (setq dc_a2 (append dc_a2 (list dcb1))) 
    (setq dc_a3 (append dc_a3 (list dcpt))) 
    (setq dcyy dcay1) 
    (command "line" yxp1 yxp2 "")        ;yxp1 yxp2 shui ping fenjiexian 
    (command "line" yxp3 yxp4 "") 
 
  ) 
  (setq        yxp5 (list c (- 243 dcay1)) 
        yxp6 (list b (- 243 dcay1)) 
  ) 
  (command "line" yxp5 yxp6 "")                ;yxp5 yxp6 zui xia mian shuiping jiexian 
 
 
  (command "pline" (foreach dcpt dc_a1 (command dcpt))) 
  (setq yx_n (length dc_a3)) 
  (setq yx_i -1) 
  (repeat yx_n 
    (setq yx_i (+ yx_i 1)) 
    (setq dc_p1 (nth yx_i dc_a2)) 
    (setq dc_t1 (nth yx_i dc_a3)) 
    (command "text" "j" "r" dc_t1 "3" "0" dc_p1 "") 
  )                                        ;text biaozhu 
  (setq hwm1 (atof dixiashui)) 
  (if (> hwm1 0) 
    (progn 
      (setq hwm2 (atof gaocheng)) 
      (setq hwdt1 (- 243 (* hwm1 (/ 1000.0 zkb1)))) 
      (setq hwdt2 (rtos hwm1 2 2)) 
      (setq hwpp hwdt1) 
      (setq hwp1 (list 306 hwpp) 
            hwp2 (list 305 (+ hwpp 2.4)) 
            hwp3 (list 305 (- hwpp 2.4)) 
      ) 
      (setq hwp4 (list b8 hwpp) 
            hwp5 (list b9 hwpp) 
      ) 
      (setq hwtx1 (- hwm2 hwm1))        ;shui wei gaocheng 
      (setq hwtx1 (rtos hwtx1 2 2)) 
      (command "line" hwp4 hwp5 "") 
      (command "text" "j" "m" hwp2 "3" "0" hwdt2 "") ;shuiwei 
      (command "text" "j" "m" hwp3 "3" "0" hwtx1 "") ;shuiweigaocheng 
    ) 
    (progn 
      (command "text" "j" "m" "304.105,222.0" "3" "0" "干" "") 
      (command "text" "j" "m" "304.105,200.0" "3" "0" "孔" "") 
    ) 
  ) 
  (setq bilichi (strcat "1:" bilichi)) 
   
 
  (command "text" "j" "m" "136,268.5" "3.5" "0" bianhao "") 
  (command "text" "j" "m" "136,247.5" "2.6" "0" bilichi "") 
  (command "text" "j" "m" "201,268.5" "3.5" "0" zhuanghao "") 
  (command "text" "j" "m" "253.475,268.5" "3.5"        "0" gaocheng "") 
  (command "text" "j" "m" "296.755,268.5" "3.5"        "0" zkongshen "") 
   
  (command "text" "j" "m" "318.85,268.5" "3.5" "0" "钻孔坐标" "") 
  (command "text" 
           "j" 
           "m" 
           "346.79,270.5" 
           "3" 
           "0" 
           (strcat "X:" xzuobiao) 
           "" 
  ) 
  (command "text" 
           "j" 
           "m" 
           "346.79,266.5" 
           "3" 
           "0" 
           (strcat "Y:" yzuobiao) 
           "" 
  ) 
   
  (command "text" "j" "m" "393.99,268.5" "3.5" "0" kriqi "") 
 
  (command "text" "j" "m" "436.715,268.5" "3.5" "0" jriqi "") 
     (Command "-bhatch" "p" "ansi38" 1 0 (list 130 180) "") 
   (Command "-bhatch" "p" "ansi38" 1 0 (list 145 180) "") 
  (command "mtext""315.715,240""425,208" Yanxin1 "") 
  (command "mtext" "315.715,205" "425,160"Yanxin2 "") 
  (command "mtext" "315.715,157" "425,95"Yanxin3 "") 
   
   
)

绘图员 · 发表于 2003-6-27 08:43:04

最初由 entrophy 发布
[B]我写了一个试用版，
画柱状图准确度较高，
有基于dcl对话框输入数据
和直接读取文本文件两种工作方式
需要的话我可以提供下载

画剖面图的程序通用性不强，
不过可以拿来做参考。 [/B]

我想参考画剖面的程序，可以贴上来吗？

msdg · 发表于 2003-6-27 14:53:35

再次感谢楼主的无私的奉献!前几天可能是调试服务器，现在应该没问题了，给你一个邮箱试试：MSDG@KM169.NET.
目前还差两个文件:2、zkt_test11.dwg和3、标准柱状图(DIRECT.DWG?)
建议本版斑竹加分加币以资鼓励！
现画出的图：

msdg · 发表于 2003-6-27 15:47:39

关于字体的设置，应该是这样：当你打开“标准柱状图。DWG”时，你可以“格式——》文字式样”中查看一下它设置的字体，以后就按它设置就可以了。如果你的电脑中没有该字体，只有到其它地方去找了（打开上图时会有提示的）。

entrophy · 发表于 2003-6-30 10:42:42

补充说明两点：
根据msdg斑竹附带的第一副图件
可以看出有个问题：
就是孔径层次和地层结构的输入方式应该用半角的括号给扩起来
如下所示：
((3.4 130)(8.2 110)(15 94)) 用来表示取芯管的钻进方式
((1.2 88)(6.4 85)(15 80))用来表示地层的结构和相应的岩心采取率
另外在dcl对话框上有个帮助信息，可以看到对常见问题的处理。

另外我把其他的文件打包传上来了。
最后特别感谢大家的支持，
和aeo、msdg两位斑竹的慷慨行为！
今后我就不用到处灌水了！~——~！！！

最后请教斑竹，
还是关于字体设置的问题，
我现在正在用arx来改写上述程序，
但是每个图都必须修改字体才能消除乱玛。
请问有没有什么办法为cad指定默认字体，
就是使cad始终用同样的字体来处理所有的文件。

fjw_ok · 发表于 2003-6-30 19:34:15

(command "style" "romans" "宋体" 1.0 0.8 0 "n" "n" "n")
加在 acad'lsp

msdg · 发表于 2003-6-30 19:39:29

我也不会，在fjwok斑竹的指导下，做了一下，现蒸热卖，加深映象。
在ACAD的SUPPOR文件夹中，找到ACAD。LSP或ACAD2000DOC。LSP文件。将下面这一行贴到最后（不要或编辑的时候好找）。搞定！
(command "style" "romans" "宋体" 1.0 0.8 0 "n" "n" "n")
但这样设置后，打开其它图可能又有问题。

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

[LISP程序]：有人想要画钻孔柱状图和剖面图的程序吗

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP程序]：有人想要画钻孔柱状图和剖面图的程序吗

程序

Re: [LISP程序]：有人想要画钻孔柱状图和剖面图的程序吗