久久建筑網(wǎng)(m.i5h4u.cn)致力打造一個(gè)專業(yè)的建筑學(xué)習(xí)分享平臺(tái)! | 用戶登錄 免費(fèi)注冊(cè) | 投訴舉報(bào) 幫助 | 會(huì)員中心 | 上傳資料 |
標(biāo)高系列.rar
資料評(píng)價(jià):
☆☆☆☆☆
生成時(shí)間:
2021-07-09
下載權(quán)限:
免費(fèi)會(huì)員
文件大。
1.20KB
文件類型:
.rar
瀏覽次數(shù):
2
建筑論壇:
上傳會(huì)員:
fggggd
所屬欄目:
建筑軟件
下載地址:
資料是由會(huì)員“fggggd”上傳到本平臺(tái),如有不妥請(qǐng)聯(lián)系客服。違規(guī)侵權(quán)投訴
;CAD圖上自由點(diǎn)標(biāo)高,初始化命令為DC,點(diǎn)某點(diǎn)標(biāo)高后顯示高程DBG,輸入高程顯示位為DBB (DEFUN C:dc() (setq bl(getreal"請(qǐng)輸幾個(gè)單位等于1m<1>:")) (if (= bl nil) (setq bl 1)) (setq pt(getpoint"點(diǎn)已知點(diǎn)位置:")) (setq ptx(car pt)) (setq pty(cadr pt)) (prompt"\n請(qǐng)選擇知點(diǎn)高程數(shù)據(jù)\n") (setq ssm (ssget)) (setq en (ssname ssm 0)) (setq date(entget en)) (setq STql (cdr (assoc '1 date))) ) (DEFUN C:dbb() (setvar "osmode" 555) (setq pt10(getpoint"\n點(diǎn)想要的高程位置:\n")) (setq gchax(car pt10)) (setq bgao2(getreal"\n請(qǐng)輸入標(biāo)高:\n")) (setq gcaca(- bgao2 (atof stql))) (setq pr20(list gchax (* (+ pty gcaca) bl))) (setvar "osmode" 0) (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pr20 0.6 0 (rtos bgao2 2 2)) ) (DEFUN C:dbbB() (setvar "osmode" 555) (setq pt10(getpoint"\n點(diǎn)起點(diǎn)位置:\n")) (setvar "osmode" 0) (setq gchax1(car pt10)) ;(setq bgao2(getreal"\n請(qǐng)輸入標(biāo)高:\n")) (setq fname (getfiled "請(qǐng)選擇平面關(guān)系文件名" "E:/" "txt" 4)) (setq f (open fname "r")) (setq pt11(list 0 0)) (while (/= (setq xt1 (read-line f)) NIL) (setq ha(read (strcat "(" xt1 ")"))) ;(setq bh (VL-PRINC-TO-STRING (nth 0 ha))) (setq bgao2LC (nth 0 ha)) (setq bgao2 (nth 1 ha)) (setq gchax(+ gchax1 bgao2LC)) ;(setvar "osmode" 555) ;(setq pt10(getpoint"\n點(diǎn)想要的高程位置:\n")) ;(setvar "osmode" 0) ;(setq gchax(car pt10)) (setq gcaca(- bgao2 (atof stql))) (setq pr20(list gchax (* (+ pty gcaca) bl))) (command "layer" "m" "高程" "") (setvar "cecolor" "1") (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pr20 0.6 0 (rtos bgao2 2 2)) (command "pline" pt11 pr20 "") (command "layer" "m" "輔助里程" "") (setvar "cecolor" "4") (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pr20 0.2 90 (rtos bgao2LC 2 2)) (setq pt11 pr20) ) (close fname) ) (DEFUN C:dbg() (while (setq pt0(getpoint"點(diǎn)想要的高程點(diǎn):")) (setq gcha(* (- (cadr pt0) pty) bl)) (setq gcheng(+ (atof stql) gcha)) (print gcheng) (setq sgcheng (rtos gcheng 2 2)) ;(prompt"\n請(qǐng)選擇要改變的對(duì)象") ;(setq ss (ssget)) ;(setq n 0) ; (repeat (sslength ss) ;(setq en1 (ssname ss n)) ;(setq endate(entget en1)) ;(sub) (command "style" "standard" "宋體" "" "" "" "" "" "") (command "text" pt0 0.6 0 sgcheng) (setq n (+ 1 n)) ) ) (defun sub() (setq li (assoc 1 endate)) (setq nli (cons 1 sgcheng)) (setq endate (subst nli li endate)) (entmod endate) ) (DEFUN C:ddf() ;(setq bl(getreal"請(qǐng)輸幾個(gè)單位等于1m<1>:")) ;(if (= bl nil) (setq bl 1) (setq pt3(getpoint"點(diǎn)已知點(diǎn)位置:")) (setq ptx3(car pt3)) (setq pty3(cadr pt3)) (prompt"\n請(qǐng)選擇知點(diǎn)高程數(shù)據(jù)\n") (setq ssm (ssget)) (setq en (ssname ssm 0)) (setq date(entget en)) (setq STql (atof(cdr (assoc '1 date)))) ;(setq STql(getreal"請(qǐng)輸高程:")) (while (setq pt(getpoint"點(diǎn)已知點(diǎn)位置:")) (setq ptx(car pt)) (setq pty(cadr pt)) (prompt"\n請(qǐng)選擇知點(diǎn)2高程數(shù)據(jù)\n") (setq ssm2 (ssget)) (setq en2 (ssname ssm2 0)) (setq date2(entget en2)) (setq STql2 (atof(cdr (assoc '1 date2)))) (setq gggccc(- STql2 STql)) (print STql2) (print "dfdf") (print STql) (setq ptcc(list ptx (+ pty3 (* bl gggccc)))) (command "point" ptcc) ) )
本類欄目導(dǎo)航
熱門推薦
點(diǎn)擊排行
猜你還喜歡
-
皖2016G306 2016系列工程建設(shè)通用標(biāo)準(zhǔn)設(shè)計(jì)結(jié)構(gòu)專業(yè)(
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):1
- 皖2016G306 2016系列工程建設(shè)通用標(biāo)準(zhǔn)設(shè)計(jì)結(jié)構(gòu)專業(yè)(皖2016G306 2016系列工程建設(shè)通用標(biāo)準(zhǔn)設(shè)計(jì)結(jié)構(gòu)專業(yè)(二)
-
遼2010J130 193聚氨酯系列建筑材料保溫防水構(gòu)造
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):4
- 遼2010J130 193聚氨酯系列建筑材料保溫防水構(gòu)造遼2010J130 193聚氨酯系列建筑材料保溫防水構(gòu)造
-
遼2015J801 15系列建筑標(biāo)準(zhǔn)設(shè)計(jì)圖集建筑專業(yè)(增補(bǔ))
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):6
- 遼2015J801 15系列建筑標(biāo)準(zhǔn)設(shè)計(jì)圖集建筑專業(yè)(增補(bǔ))遼2015J801 15系列建筑標(biāo)準(zhǔn)設(shè)計(jì)圖集建筑專業(yè)(增補(bǔ))增補(bǔ)內(nèi)容《室外工程》
-
湘T2012J206 建筑工程防水材料與構(gòu)造(一)東方雨虹
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):4
- 湘T2012J206 建筑工程防水材料與構(gòu)造(一)東方雨虹湘T2012J206 建筑工程防水材料與構(gòu)造(一)東方雨虹系列防水材料
-
陜2017TJ035 EL及JH系列防水系統(tǒng)構(gòu)造圖集 清晰版
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):6
- 陜2017TJ035 EL及JH系列防水系統(tǒng)構(gòu)造圖集 清晰版陜2017TJ035 EL及JH系列防水系統(tǒng)構(gòu)造圖集 清晰版
-
陜2015TJ027 SYT系列復(fù)合自粘卷材防水構(gòu)造 清晰版
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):4
- 陜2015TJ027 SYT系列復(fù)合自粘卷材防水構(gòu)造 清晰版陜2015TJ027 SYT系列復(fù)合自粘卷材防水構(gòu)造 清晰版
-
津11SJ118 圍護(hù)結(jié)構(gòu)保溫構(gòu)造和建筑隔墻構(gòu)造(非承重JH
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):6
- 津11SJ118 圍護(hù)結(jié)構(gòu)保溫構(gòu)造和建筑隔墻構(gòu)造(非承重JH津11SJ118 圍護(hù)結(jié)構(gòu)保溫構(gòu)造和建筑隔墻構(gòu)造(非承重JH粉煤灰空心砌塊系列) 清晰版
-
津09SJ805 建筑防水構(gòu)造(PRRM種植屋面及防水系列) 清
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):7
- 津09SJ805 建筑防水構(gòu)造(PRRM種植屋面及防水系列) 清津09SJ805 建筑防水構(gòu)造(PRRM種植屋面及防水系列) 清晰版
-
津18SZ4 城市道路質(zhì)量通病防范系列圖集 清晰版
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):1
- 津18SZ4 城市道路質(zhì)量通病防范系列圖集 清晰版津18SZ4 城市道路質(zhì)量通病防范系列圖集 清晰版
-
津15JBT04 圍護(hù)結(jié)構(gòu)保溫構(gòu)造(非承重ZT輕集料混凝土
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):3
- 津15JBT04 圍護(hù)結(jié)構(gòu)保溫構(gòu)造(非承重ZT輕集料混凝土津15JBT04 圍護(hù)結(jié)構(gòu)保溫構(gòu)造(非承重ZT輕集料混凝土復(fù)合保溫砌塊系列) 清晰版
-
津17JBT09 建筑防水構(gòu)造(NRF防水系列) 清晰版
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):5
- 津17JBT09 建筑防水構(gòu)造(NRF防水系列) 清晰版津17JBT09 建筑防水構(gòu)造(NRF防水系列) 清晰版
-
津11SJ117 圍護(hù)結(jié)構(gòu)保溫構(gòu)造(非承重YL組合保溫砌塊系
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):8
- 津11SJ117 圍護(hù)結(jié)構(gòu)保溫構(gòu)造(非承重YL組合保溫砌塊系津11SJ117 圍護(hù)結(jié)構(gòu)保溫構(gòu)造(非承重YL組合保溫砌塊系列) 清晰版
-
津11SJ807 建筑防水構(gòu)造(DFYH防水系列) 清晰版
- 所屬分類:建筑圖集
- 更新時(shí)間:2024-06-13
- 瀏覽次數(shù):3
- 津11SJ807 建筑防水構(gòu)造(DFYH防水系列) 清晰版津11SJ807 建筑防水構(gòu)造(DFYH防水系列) 清晰版
園林景觀:
園林施工方案
園林論文
園林考試
園林表格
景觀專業(yè)資料
園林圖紙
景觀設(shè)計(jì)
水利工程:
水利施工方案
水利考試
水利專業(yè)資料
水利軟件
水利論文
結(jié)構(gòu)工程:
結(jié)構(gòu)施組方案
結(jié)構(gòu)圖紙
結(jié)構(gòu)軟件
結(jié)構(gòu)課件
工藝工法
結(jié)構(gòu)考試
結(jié)構(gòu)專業(yè)資料
結(jié)構(gòu)論文
其他資料
工程造價(jià):
造價(jià)法規(guī)
造價(jià)視頻
造價(jià)指標(biāo)
建筑造價(jià)
造價(jià)考試
水利造價(jià)
電力造價(jià)
裝修造價(jià)
其他
安裝造價(jià)
路橋造價(jià)
市政造價(jià)
園林造價(jià)
造價(jià)軟件
造價(jià)表格
清單實(shí)例