CAD坐標(biāo)批量提取(最新整理)

1、cad 坐標(biāo)數(shù)據(jù)批量導(dǎo)出小工具這個(gè)是利用 cad 二次開發(fā)編寫的一個(gè) lisp，以下是程序，如果想修改坐標(biāo)提取的的 excel，可將下面紅色背景的路徑改一下(defun c:md() (setvar cmdecho 0) (command .undo be)(command -units 2 3 2 3 )(setq fp (open d:/樁號(hào)坐標(biāo)值.xls a) s (getvar cmdecho) n (getint n 請(qǐng)輸入總樁數(shù)！ )(princ 樁號(hào) fp)(princ t fp) (princ x 坐標(biāo)值 fp)(princ t fp) (princ y 坐標(biāo)值 fp)(pri

2、nc n fp) (repeat n(setq k (getstring n 輸入樁號(hào)（如：k1）！)p (getpoint n 選取節(jié)點(diǎn)！)x (strcat (rtos (nth 0 p)y (strcat (rtos (nth 1 p) (princ k fp)(princ t fp)(princ x fp)(princ t fp) (princ y fp)(princ n fp) (close fp)(setvar cmdecho s)(princ n 提示：輸入 md 命令來運(yùn)行本程序！) (princ)有了上面的程序，下面是提取坐標(biāo)的過程1、 打開記事本，粘貼以上代碼，然后保存成

3、md.lsp2、 打開 cad 并加載這個(gè)小程序（在命令行輸入 appload，選擇加載 md.lsp 程序），將md.lsp 復(fù)制在 support 文件夾下后可自動(dòng)加載。3、 輸入 md 運(yùn)行命令，輸入樁數(shù)，再輸入樁號(hào)，再選擇點(diǎn)，完成后，保存 cad 文件，關(guān)閉cad，打開 d 盤你就會(huì)看到生成一個(gè)文件“樁號(hào)坐標(biāo)值.xls”的 excel 文件，打開，如下格式樁號(hào)x 坐標(biāo)值y 坐標(biāo)值k1x=1073.205y=1028.341k2x=2193.676y=922.327k3樁號(hào)x=1752.278x 坐標(biāo)值y=595.802y 坐標(biāo)值1x=877.972y=1257.3332x=2360.8

4、83y=1257.3333x=1578.266y=281.999“”“”at the end, xiao bian gives you a passage. minand once said, people who learn to learn are very happy people. in every wonderful life, learning is an eternal theme. as a professional clerical and teaching position, i understand the importance of continuous learnin

5、g, life is diligent, nothing can be gained, only continuous learning can achieve better self. only by constantly learning and mastering the latest relevant knowledge, can employees from all walks of life keep up with the pace of enterprise development and innovate to meet the needs of the market. this document is also edited by my studio professionals, the