建筑工程主要工程量计算规则及公式.doc

《建筑工程主要工程量计算规则及公式.doc》由会员分享，可在线阅读，更多相关《建筑工程主要工程量计算规则及公式.doc（111页珍藏版）》请在三一办公上搜索。

1、if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list

2、 hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(

3、entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-

4、all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list

5、*)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile

6、 hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSe

7、lect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsy

8、s_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(ent

9、get (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx

10、)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)

11、(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply

12、 load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append

13、S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx

14、)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(set

15、q S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun

16、) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TIn

17、itKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and

18、 (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScr

19、Bar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (li

20、st hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (star

21、tupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catc

22、h-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(i

23、f startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfi

24、le hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q M

25、YSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dl

26、sys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(pri

27、nc)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.v

28、lx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo(

29、)(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadA

30、utoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(pr

31、inc)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(

32、if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list

33、 hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(

34、entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-

35、all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list

36、*)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsys_AutoRun) (findfile

37、 hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSe

38、lect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx)(if (and (null gxsy

39、s_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(ent

40、get (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)(if (null hpvl_HpcadAutoRun)(load hpcad.vlx)(if (and (null dlsys_AutoRun) (findfile hpdl.vlx)(vl-catch-all-apply load (list hpdl.vlx)(if (and (null jtsys_AutoRun) (findfile hpjt.vlx)(vl-catch-all-apply load (list hpjt.vlx

41、)(if (and (null gxsys_AutoRun) (findfile hpgx.vlx)(vl-catch-all-apply load (list hpgx.vlx)(princ)(princ)(defun c:T_Demo()(startapp .EXE)(princ)(princ)(defun-q MYSTARTUP ()(princ)(if startupReset (startupReset)(if ShowScrBar (ShowScrBar)(TInitKernal)(princ)(setq S:STARTUP (append S:STARTUP MYSTARTUP)(defun c:entxd()(entget (car (entsel nSelect object:) (list *)(defun entxd(ent)(entget ent (list *)