求lisp程式,關於提取CAD影象座標

時間 2021-06-11 15:19:58

1樓:設計人生

方案一:直接讀取dwg格式檔案有點難度,估計高手會做方案二:若是檔案有很多要做的話,可以用c#,c++,vb通過com去開發,用com方式依次開啟dwg圖檔,然後遍歷圖元來進行你的要求來運算

方案三:若是檔案有很多要做的話,也可以用autolisp來做,自動開啟你的檔案列表,然後遍歷圖元來進行你的要求來運算

方案四:若是檔案不是很多的話,也可以手動開啟dwg檔案,然後編寫lisp函式遍歷圖元來進行你的要求來運算

或者你發一些cad參考圖檔給我,我來幫你看看到底怎麼做合適若是覺得滿意的話還請採納

求修改lisp程式,如何提取cad圖中多段線的座標(要當前ucs座標系)

2樓:匿名使用者

(defun c:tqzb (/)

(setq cm (getvar "cmdecho"))

(setvar "cmdecho" 0)

(if (setq wjm (getfiled "請指定要儲存的座標檔案" "e:\\" "txt" 1))

(if (setq ssa (ssget '((0 . "lwpolyline"))))

(progn

(setq fff (open wjm "w")

n (sslength ssa)

i 0

no 0

)(repeat n

(setq dxf (entget (ssname ssa i))

i (1+ i)

ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) dxf))

ptb (mapcar '(lambda(x)(trans x 0 1)) ptb)

)(foreach pt ptb

(setq no (1+ no))

(write-line (strcat (itoa no) ","

(rtos (car pt) 2 2) ","

(rtos (cadr pt) 2 2) ","

)fff))

)(close fff)

(princ (strcat "\n座標已存入\"" wjm "\"中"))))

)(setvar "cmdecho" cm)

(princ))

cadlisp獲取當前檢視座標 30

3樓:雪v歌

複製下面的指令碼到命令列回車即可載入,輸入pldd,程式會提示選擇pline,選擇pline後會列印所有的三維座標

(defun c:pldd (/ wb cc ss1 aa pts bhbz ent)

(setq ent (car (entsel "\n請選擇pline")))

(setq wb (entget ent) cc nil bhbz (cdr (assoc 70 wb)) )

(cond

((= (cdr (assoc 0 wb)) "polyline")

(setq ss1 (entnext ent))

(while (/= ss1 nil)

(setq aa (entget ss1))

(if (= (cdr (assoc 0 aa)) "vertex") (progn

(setq aa (cdr (assoc 10 aa)))

(if (/= aa nil) (progn

(if (= (length aa) 2)

(setq aa (list (car aa) (cadr aa) 0.0) )

)(if (= cc nil)

(setq pts aa)

)(setq cc (cons aa cc))

))(setq ss1 (entnext ss1))

)(setq ss1 nil)))

(if (= bhbz 1)

(setq cc (cons pts cc))))

((= (cdr (assoc 0 wb)) "lwpolyline")

(setq wb (member (assoc 10 wb) wb))

(while (assoc 10 wb)

(setq aa (cdr (assoc 10 wb)))

(if (= (length aa) 2)

(setq aa (list (car aa) (cadr aa) 0.0) )

)(if (= cc nil)

(setq pts aa)

)(if (= (length aa) 2)

(setq aa (list (car aa) (cadr aa) 0.0) )

)(setq cc (cons aa cc) wb (cdr wb))

(if (assoc 10 wb)

(setq wb (member (assoc 10 wb) wb))))

(if (= bhbz 1)

(setq cc (cons pts cc))))

((= (cdr (assoc 0 wb)) "spline")

(setq wb (member (assoc 11 wb) wb))

(while (assoc 11 wb)

(setq aa (cdr (assoc 11 wb)))

(if (= (length aa) 2)

(setq aa (list (car aa) (cadr aa) 0.0) )

)(if (= cc nil)

(setq pts aa)

)(setq cc (cons aa cc) wb (cdr wb))

(if (assoc 11 wb)

(setq wb (member (assoc 11 wb) wb))))

4樓:

貼上這個**就可以實現獲取圓心座標

(vlax-get (vlax-ename->vla-object (car (entsel))) 'center )

autolisp程式設計求助,如何得到螢幕的中點的座標

5樓:朱正偉

取的autocad當前視口中點,**如下:

6樓:

windows api

請採納。。。。

7樓:檀晶進騫堯

很簡單的一個系統變數就能獲得,參見下面**:

(setq

pt(getvar

"viewctr"))

如果你還想獲得螢幕的四個角點的座標,可以利用系統變數viewsizescreensize配合上面得到的螢幕中心座標獲得。

下面在給你個**,可以獲得當前拾取框的高度,在你選取實體的時候這個**很有用:

;|求拾取框的高度

|;(defun

$xdlsp_drawing_getpickboxheight()(*

(/(getvar

"pickbox")

(cadr

(getvar

"screensize")))

(getvar

"viewsize"))

)上面**摘自曉東工具箱裡面的系統**庫裡面的**。

求修改lisp程式,如何提取cad中多個點的座標,(本人想提取ucs座標系)另外只需要提取x,y值,不要z 5

8樓:匿名使用者

我有提取cad裡的座標到excel**的軟體,可以永久使用的,你要嗎?

我有一組數有十幾萬個座標點,如何利用lisp程式快速匯入cad中,並可以快速處理! 10

9樓:志遠

lisp肯定快不了,那個東西慢,我可以c++幫您定製一個,根據工作量略微收費,有意向的話,**我 1375045156

10樓:匿名使用者

用lisp直接寫圖形資料庫也不慢,十幾萬個座標點就十幾秒。

cad圖紙,autolisp提取圓心座標,發現提取的座標與cad裡面的屬性不一樣,什麼原因;

11樓:匿名使用者

這個圖是由其他的軟體轉過來的,下圖中的洋紅虛線圓的z軸是 -1,你用list命令可以檢視到。我以前見到從ug轉過來的圖中有很多是這樣的,只有重畫一次這個圓

為什麼我載入的cad之lisp應用程式無法使用

載入成功後,應該輸入源 中defun c 和 之間的單詞後字母組合。還有如果顯示列表有缺陷,一個是源 有錯誤,另外也可能沒有貼上全。 發這lisp的原檔案上來看看,可能是檔名和已有的lisp程式名有衝突。也有可能是源 有錯誤,要看原檔案才行 為什麼我載入的cad之lisp應用程式無法使用? 寧秀梅寸...

關於LISP迴圈讀取格式化資料的問題

你好!首先,為方便程式設計起見,你的文字檔案中的資料格式要改變一下,把 改為 空格 我們的程式從文字檔案中讀一行資料,並將資料以表的形式返回。對應你的文字檔案,它返回包含x和y座標值的表。你可以把返回的這個表作為圓心使用。編寫下列程式 defun auto circle name r fr s se...

關於自考的程式,關於自考程式

1 每個專業的准考證只有一個,辦理畢業時收回。2 各地不同,有1個月的,也有2個月的。3 每年6月和12月有兩次申請機會,具體時間各地不同,做 的時間一般為半年。4 要填申請表,畢業也是每年6月和12月有兩次申請機會,帶身份證 准考證 所有科目合格證 有的省要帶 有的是現場攝像 到本地自考辦辦理。學...