答：復(fù)制下面的腳本到命令行回車即可加載，輸入pldd，程序會提示選擇pline，選擇pline后會打印所有的三維坐標(biāo) (defun c:pldd (/ wb cc ss1 aa pts bhbz ent) (setq ent (car (entsel "\n請選擇PLINE"))) (setq wb (entget ent) cc nil bhbz (cdr (as...

答：(defun c:tqzb (/) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq wjm (getfiled "請指定要保存的坐標(biāo)文件" "e:\\" "txt" 1)) (if (setq ssa (ssget '((0 . "LWPOLYLINE")))) (progn (setq fff (open wjm "w") n (sslength ssa)...

答：讀取的是當(dāng)前坐標(biāo)系(可能是用戶坐標(biāo)、世界坐標(biāo))的坐標(biāo) 坐標(biāo)轉(zhuǎn)換一下，使用ucs命令即可！

答：方案一：直接讀取dwg格式文件有點(diǎn)難度，估計(jì)高手會做 方案二：若是文件有很多要做的話，可以用C#，C++，VB通過COM去開發(fā)，用COM方式依次打開dwg圖檔，然后遍歷圖元來進(jìn)行你的要求來運(yùn)算 方案三：若是文件有很多要做的話，也可以用AutoLisp來做，...

答：(defun c:show_current_directory ()(setq cur_dir (getvar "dwgprefix"))(startapp "explorer" cur_dir));end

答：試試textbox

答：(DEFUN C:TT ( / ss ff ss1 en pt x y) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "dimzin" 0) (vl-load-com);;加載vlax擴(kuò)展函數(shù) (setq ss (ssget '((0 . "point"))) n 0);;請選擇點(diǎn) (if (/= ss nil) (progn (setq ff (open "d://文...

答：;你說的三維多義線是指"POLYLINE"實(shí)體吧，3p命令繪制的線 (defun c:test ( / a aa bb cc e eg en et n p p0 ps s x y z) (setq a (ssget '((0 . "polyline")))) (setq aa (dxfcod -1 a)) (foreach p aa (setq e (cdr p)) (setq en (entnext e)) ...

答：(vl-load-com) (setq ptb (vlax-get (vlax-ename->vla-object (car (entsel "\n選取三維多段線:"))) "coordinates"))

答：我來回答你一下吧，－－－－雖然我也不是很懂 AutoCAD的坐標(biāo)是直角坐標(biāo)系，而經(jīng)緯度是大地坐標(biāo)系，并不是直角坐標(biāo)系 如果要轉(zhuǎn)換，只要找到轉(zhuǎn)換參數(shù)是可以轉(zhuǎn)換的，不過，各個(gè)地方轉(zhuǎn)換參數(shù)是不同的 所謂的轉(zhuǎn)換參數(shù)，也就是常說的七參數(shù)(7參數(shù)轉(zhuǎn)換...

總結(jié)

以上是生活随笔為你收集整理的lisp获取图名_cadlisp获取当前视图坐标的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。