[討論]圖塊內的文字顯示問題

蘋果爸你好，在網上搜尋問題時，偶然發現你的網站，進來一看…整個挖到寶但有個問題我一直無法解決，冒味請問你~ 版本：CAD2008 製作圖塊(圖塊內含文字)，旋轉圖塊後，文字會跟著一同旋轉，想請問是否能讓圖塊內文字維持不動，不隨著圖塊旋轉而旋轉 之所以需要這樣做，用處是拿來組立透天厝的平面，製作好一戶的圖塊，要幾戶就複製幾戶，之後修改就很方便，但圖塊內文字跟著旋轉的問題，讓我們需要多做一倍的圖塊量，這個問題已經困惑我們好久了，麻煩蘋果爸解決疑惑，謝謝你

Tiger&蘋果爸 寫到:於2011/06/23 17:46回覆

如果是圖塊內的文字就一定會旋轉...所以無解!!

可以試試以下方式:
1.建議圖塊不要放置文字，可以把圖塊及文字群組(方便組立透天厝的平面)
2.組立完最後再執行文字角度旋轉成0度即可。

judyyai 寫到:這問題有趣~有空來試試看

這是蘋爸曾經在部落格的回覆

蘋果爸你好，在網上搜尋問題時，偶然發現你的網站，進來一看…整個挖到寶但有個問題我一直無法解決，冒味請問你~ 版本：CAD2008 製作圖塊(圖塊內含文字)，旋轉圖塊後，文字會跟著一同旋轉，想請問是否能讓圖塊內文字維持不動，不隨著圖塊旋轉而旋轉 之所以需要這樣做，用處是拿來組立透天厝的平面，製作好一戶的圖塊，要幾戶就複製幾戶，之後修改就很方便，但圖塊內文字跟著旋轉的問題，讓我們需要多做一倍的圖塊量，這個問題已經困惑我們好久了，麻煩蘋果爸解決疑惑，謝謝你

Tiger&蘋果爸 寫到:於2011/06/23 17:46回覆

如果是圖塊內的文字就一定會旋轉...所以無解!!

可以試試以下方式:
1.建議圖塊不要放置文字，可以把圖塊及文字群組(方便組立透天厝的平面)
2.組立完最後再執行文字角度旋轉成0度即可。

judyyai 寫到:請問~你的圖塊長甚麼樣子~
若用屬性文字 搭配動態圖塊 應該可行

flok 寫到:

judyyai 寫到:請問~你的圖塊長甚麼樣子~
若用屬性文字 搭配動態圖塊 應該可行

我試試看

EVONNE 寫到:可使用屬性定義方式建立文字,再把"鎖住位置"勾選即可

adslwang 寫到:

flok 寫到:

judyyai 寫到:請問~你的圖塊長甚麼樣子~
若用屬性文字 搭配動態圖塊 應該可行

我試試看

其實可以試試ET工具內的TORIENT,可以針對一般文字及多行文字及屬性文字都可以處理一次性批量的旋轉
很方便的.........

看看JERRY前輩所作的ET中文化工具說明書內有述明.............

adslwang 寫到:

其實可以試試ET工具內的TORIENT,可以針對一般文字及多行文字及屬性文字都可以處理一次性批量的旋轉
很方便的.........

看看JERRY前輩所作的ET中文化工具說明書內有述明

代碼:

[旋轉文字] 指令:TORIENT
功能：旋轉文字
說明：旋轉文字、多行文字和圖塊屬性物件到新的位置
註解：可以一次旋轉所選取的所有文字物件卻不改變其位置，且連圖塊屬性裡的文字也能旋轉，如果文字是傾斜與巔倒的，TORIENT 裡
有個Most Readable(最佳閱讀角度)能調整文字到最佳的旋轉角度，當然也可自己輸入角度值。

代碼:


;;圖塊內屬性文字轉正
;;屬性文字根據文字插入點.原地轉正.
;;故-->屬性文字定義對齊點.請用 [M中央]
(defun c:amd_rtxt (/ en enk i lis kw2)
  (prompt "\n***圖塊內屬性文字轉正***")
 
  (setq enk (entsel "\n選取一個圖塊:"))
  (while enk
     (setq en1 (car enk))
     (setq i 0 kw2 nil)
     (setq en (cdr (assoc -1 (entget en1))))
     (while (/= (cdr (assoc 0 (entget en))) "SEQEND")
       (setq lis (entget en))
       (if (= (cdr (assoc 0 lis)) "ATTRIB")
          (progn
          (emod 50 (getan (cdr (assoc 50 (entget en)))) lis) (entupd en1)
          )
       )
       (setq en (entnext (cdr (assoc -1 lis))))
     )
 
    (setq enk (entsel "\n選取一個圖塊:"))
    )
  (princ)
)
;--------------------------------------------------------------------
(defun getan(&an)
    (cond ((< (dtr 92) &an (dtr 180))  (setq an (- &an (dtr 180))))
   ((<= (dtr 180) &an (dtr 270)) (setq an (- &an (dtr 180))))
   ((<= (dtr 270) &an (dtr 360)) (setq an (- &an (dtr 360))))
   (T (IF &AN AN))
  )
  (if an  an)
)
;--------------------------------------------------------------------
(defun dtr (a / val)
  (setq val (* pi (/ a 180.0)))
)
;---------------------------------------------------------------------
(defun emod (fig x_new xlist)
  (setq x_list (subst (cons fig x_new) (assoc fig xlist) xlist))
  (entmod x_list)
)


shenhung 寫到:這是我BLOCK.內文字轉正的方式.!!
也是用把文字做成屬性解決!!

代碼:


;;圖塊內屬性文字轉正
;;屬性文字根據文字插入點.原地轉正.
;;故-->屬性文字定義對齊點.請用 [M中央]
(defun c:amd_rtxt (/ en enk i lis kw2)
  (prompt "\n***圖塊內屬性文字轉正***")
 
  (setq enk (entsel "\n選取一個圖塊:"))
  (while enk
     (setq en1 (car enk))
     (setq i 0 kw2 nil)
     (setq en (cdr (assoc -1 (entget en1))))
     (while (/= (cdr (assoc 0 (entget en))) "SEQEND")
       (setq lis (entget en))
       (if (= (cdr (assoc 0 lis)) "ATTRIB")
          (progn
          (emod 50 (getan (cdr (assoc 50 (entget en)))) lis) (entupd en1)
          )
       )
       (setq en (entnext (cdr (assoc -1 lis))))
     )
 
    (setq enk (entsel "\n選取一個圖塊:"))
    )
  (princ)
)
;--------------------------------------------------------------------
(defun getan(&an)
    (cond ((< (dtr 92) &an (dtr 180))  (setq an (- &an (dtr 180))))
   ((<= (dtr 180) &an (dtr 270)) (setq an (- &an (dtr 180))))
   ((<= (dtr 270) &an (dtr 360)) (setq an (- &an (dtr 360))))
   (T (IF &AN AN))
  )
  (if an  an)
)
;--------------------------------------------------------------------
(defun dtr (a / val)
  (setq val (* pi (/ a 180.0)))
)
;---------------------------------------------------------------------
(defun emod (fig x_new xlist)
  (setq x_list (subst (cons fig x_new) (assoc fig xlist) xlist))
  (entmod x_list)
)


shenhung 寫到:

這是我BLOCK.內文字轉正的方式.!!
也是用把文字做成屬性解決!!

代碼:


;;圖塊內屬性文字轉正
;;屬性文字根據文字插入點.原地轉正.
;;故-->屬性文字定義對齊點.請用 [M中央]
(defun c:amd_rtxt (/ en enk i lis kw2)
  (prompt "\n***圖塊內屬性文字轉正***")
 
  (setq enk (entsel "\n選取一個圖塊:"))
  (while enk
     (setq en1 (car enk))
     (setq i 0 kw2 nil)
     (setq en (cdr (assoc -1 (entget en1))))
     (while (/= (cdr (assoc 0 (entget en))) "SEQEND")
       (setq lis (entget en))
       (if (= (cdr (assoc 0 lis)) "ATTRIB")
          (progn
          (emod 50 (getan (cdr (assoc 50 (entget en)))) lis) (entupd en1)
          )
       )
       (setq en (entnext (cdr (assoc -1 lis))))
     )
 
    (setq enk (entsel "\n選取一個圖塊:"))
    )
  (princ)
)
;--------------------------------------------------------------------
(defun getan(&an)
    (cond ((< (dtr 92) &an (dtr 180))  (setq an (- &an (dtr 180))))
   ((<= (dtr 180) &an (dtr 270)) (setq an (- &an (dtr 180))))
   ((<= (dtr 270) &an (dtr 360)) (setq an (- &an (dtr 360))))
   (T (IF &AN AN))
  )
  (if an  an)
)
;--------------------------------------------------------------------
(defun dtr (a / val)
  (setq val (* pi (/ a 180.0)))
)
;---------------------------------------------------------------------
(defun emod (fig x_new xlist)
  (setq x_list (subst (cons fig x_new) (assoc fig xlist) xlist))
  (entmod x_list)
)


ling1027 寫到:我試用了TORIENT成功了，

但是shenhung提供的方式載入LSP使用後會出現
***圖塊內屬性文字轉正***
選取一個圖塊:; 錯誤: 損壞的 DXF 群組: (50)
發生了什麼問題呢???