[已解決][問題] 請問等高線圖，如何依比例縮放，而不改變其高程值呢？

我有一組含有高程值的等高線，如圖左，我想要將其放大2倍變成圖右的話，
它每條等高線中所含的高程值都會跑掉，
像圖中選取中的那條線的高程值原本只有700多，一經放大就變成圖中的1000多

我現在是一條線一條線重新指定高程，但要是圖的圍更大的話會累死...而且容易出錯..
請問有更快的方法能將其指定回原本的高程值嗎？

或是能設定將高程值鎖定，不隨調整比例而變嗎？

2個辦法
1.)全選轉圖塊改圖塊XY比例炸開 (剛剛測試。這個好像不行)
2.)縮放比例。寫LISP將所有高程換算比例更改 (剛剛測試。這個好像也不一定對，有些高程不一定跟著比例倍數增加，還須測試看看)
供您參考

masao_8 寫到:2個辦法
1.)全選轉圖塊改圖塊XY比例炸開 (剛剛測試。這個好像不行)
2.)縮放比例。寫LISP將所有高程換算比例更改 (剛剛測試。這個好像也不一定對，有些高程不一定跟著比例倍數增加，還須測試看看)
供您參考

感謝回覆~雖然都不行..XD

第2個行得通，上次測試點錯高程，若是由高程0做縮放是可以的

但若不是高程0，就須看基準點高程為多少，例如基準點高程為20 縮放2倍後 原本在0會變-20 求原高程 新高程除以縮放尺寸+基準高程除以縮放尺寸=原高程 -20除以2+(20除以2)=0

原高程為40 以高程20為基準會變為高程60 60/2+(20/2)=40

以上

(defun c:test()

(setvar "cmdecho" 0)

(setq osm (getvar "osmode"));記錄物件鎖點

(princ "\n->請選擇需縮放物件或 <退出>:")

(setq ss1 (ssget '((0 . "lwpolyline,SPLINE"))))

(if ss1

(progn

(vl-cmdf "_.undo" "_begin")

(if (= (setq ucs_key (getvar 'worlducs)) 0) (vl-cmdf "_.ucs" "_world"))

(setvar "osmode" 0)

(setq gpoint (getpoint "\n->請點選基準點："))

(setq sc (getreal "\n->請輸入縮放比例："))

(vl-cmdf "_.scale" ss1 "" gpoint sc)

(setq i 0)

(repeat (sslength ss1)

(setq ssn (ssname ss1 i))
(setq ssdata (entget ssn))
(setq old_high (cdr (assoc 38 ssdata)))

(setq new_ent (entget ssn))

(setq new_ent (subst (cons 38 (/ old_high sc)) (assoc 38 (entget ssn)) new_ent))

(entmod new_ent)

(setq i (1+ i))

);repeat

(setvar "osmode" osm) ;將系統變數恢復

(vl-cmdf "_.undo" "_end")

);progn

);if

)

供參考，可自行修改您要的功能，我只更改聚合線，若有雲形線就要改Z值

darktonny 寫到:

我有一組含有高程值的等高線，如圖左，我想要將其放大2倍變成圖右的話，
它每條等高線中所含的高程值都會跑掉，
像圖中選取中的那條線的高程值原本只有700多，一經放大就變成圖中的1000多

我現在是一條線一條線重新指定高程，但要是圖的圍更大的話會累死...而且容易出錯..
請問有更快的方法能將其指定回原本的高程值嗎？

或是能設定將高程值鎖定，不隨調整比例而變嗎？

1.等高線做成圖塊
2.調整建好的圖塊x、y比例，z比例為1.0，假設放大10倍，則x、y比例=10，z比例=1
3.炸掉圖塊，等高線成為直線=>利用pedit，多重，接合即可
這樣應該也可以

masao_8 寫到:第2個行得通，上次測試點錯高程，若是由高程0做縮放是可以的

但若不是高程0，就須看基準點高程為多少，例如基準點高程為20 縮放2倍後 原本在0會變-20 求原高程 新高程除以縮放尺寸+基準高程除以縮放尺寸=原高程 -20除以2+(20除以2)=0

原高程為40 以高程20為基準會變為高程60 60/2+(20/2)=40

以上

感謝教學，上次第1個方法，轉成圖塊 我剛剛試有成功了，上次可能鎖點誤鎖跑掉，
剛剛重試有成功~
至於第2個方法，您說的若是雲形線要改Z值，是改下面這行嗎？
(setq ss1 (ssget '((0 . "lwpolyline,SPLINE"))))

我只會加入lisp不懂語法..

Atsai 寫到:
1.等高線做成圖塊
2.調整建好的圖塊x、y比例，z比例為1.0，假設放大10倍，則x、y比例=10，z比例=1
3.炸掉圖塊，等高線成為直線=>利用pedit，多重，接合即可
這樣應該也可以

這方法剛測試有成功，非常感謝~