有時候,cad中畫圖有的線不能捕捉,還有將cad導入su中發現有些線段不在同一個高度,怎么辦?
我們需要在cad中將所有線的Z坐標都調整到0就能解決這個問題。
下面我來發個之前在網上收集的解決方法。
【方法一】命令法(中文為注釋):在命令行鍵入change
Command:CHANGE
選擇對象
Select objects: all
鍵入p選擇修改特性
Properties/<Change point>: p
鍵入e修改標高
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness) e
輸入新的Z坐標
New elevation <varies>: 0
選擇修改特性,回車結束。
Change what property (Color/Elev/LAyer/LType/ltScale/Thickness)
Commnd:
【方法二】移動法:很簡單,鍵入移動命令“move”,將所有實體移至點1,0,1E99,然后再重復“move”命令,將所有實體移至點0,0,-1E99即可。
該方法利用AutoLISP語言編程如下:
;;標高(Z坐標)歸零實用程序
(defun C:Z=0 ()
(setvar "cmdecho" 0)
(princ "\n正在處理圖形數據,請稍候...")
(command "_.UCS" "")
(command "_.move" "_all" "" ’(0 0 1e99) "" "_.move" "_p" "" ’(0 0 -1e99) "")
(princ "\nOK,已將所有圖元的標高值即Z坐標歸零.")
(setvar "cmdecho" 1)
(princ)
)end (defun C:Z=0 ()
|