AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

2頁(共2頁) 上一頁  1, 2

上一篇主題 下一篇主題 向下

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

發表 由 flok 于 2012-03-07, 07:47

主題回顧 :

有什麼方法可以把圖塊裡的文字,無論轉換或倒轉圖塊方向,文字可以保持正面不跟隨轉向的呢?
avatar
flok
初級會員
初級會員

文章總數 : 111
年齡 : 40
來自 : Hong Kong
職業 : 繪圖員
愛好 : 運動,打機,看漫畫及模型玩具,聽歌電影
個性 : 比較小說話,常常要做到最完美的人
使用年資 : 十年
使用版本 : 2011
積分 : 1
經驗值 : 3714
威望值 : 30
注冊日期 : 2008-11-03
男 天秤座 蛇

回頂端 向下


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

發表 由 greetingsfromtw 于 2012-05-16, 08:59

shenhung 寫到:
修正新載點:
http://db.tt/fDJxVNoL

感謝S大,願意真心將LISP程式分享出來而且願意提供更新版本...!

雖然前面有大大提到用動態圖塊加旋轉屬性也是一個方法,但這個LISP更犀利阿.


小弟從平台獲得太多卻無從回饋,深感慚愧.

avatar
greetingsfromtw
初級會員
初級會員

文章總數 : 222
年齡 : 33
來自 : 高雄
職業 : CAD菜鳥繪圖員
愛好 : 吃好吃的東西
個性 : 文靜
使用年資 : 不到兩年
使用版本 : 公司為2008,家中為2011
積分 : 3
經驗值 : 3277
威望值 : 189
注冊日期 : 2012-05-02
經典問與答讀者 藍鵲441號
男 天蝎座 鼠

回頂端 向下

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

發表 由 小妞妞 于 2012-06-20, 10:29

TO:shenhung
抱歉,我看不太懂,是要輸入什麼指令才能執行這個動作呢?
avatar
小妞妞
一般會員
一般會員

文章總數 : 17
年齡 : 38
來自 : 高雄
職業 : 室內設計
愛好 : 游泳
個性 : 可愛
使用年資 : 8年
使用版本 : 2012
經驗值 : 2413
威望值 : 0
注冊日期 : 2011-07-05
女 天蝎座 羊

回頂端 向下

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

發表 由 shenhung 于 2012-06-20, 14:04

1.在上面載點.你可以下載到amd_rtxt.lsp 請存檔.
2.用autocad 命令appload 先載入lisp 應用程式
然後執行lisp 命令 amd_rtxt ,當然你先要有一個圖塊..然後裡面有屬性文字. 須要轉正..這個程式才有作用.程式會提示你選取圖塊..!!圖塊內的文字.就會自動轉正..

avatar
shenhung
高級會員
高級會員

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5058
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

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

發表 由 小妞妞 于 2012-06-24, 16:11

TO:shenhung
真的很抱歉,我還是不太懂
1.在上面載點.你可以下載到amd_rtxt.lsp 請存檔.
我點了載點以後,就出現一些文字符號...等...我存檔 就是只能存成文字檔
2.用autocad 命令appload 先載入lisp 應用程式
我有用appload這個指令 出現對話框以後,我要怎麼載入lisp 應用程式
avatar
小妞妞
一般會員
一般會員

文章總數 : 17
年齡 : 38
來自 : 高雄
職業 : 室內設計
愛好 : 游泳
個性 : 可愛
使用年資 : 8年
使用版本 : 2012
經驗值 : 2413
威望值 : 0
注冊日期 : 2011-07-05
女 天蝎座 羊

回頂端 向下

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

發表 由 leoneriol 于 2012-06-25, 02:12

shenhung 寫到:
Spoiler(用來隱藏帖子內容):


這是我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)
)
這功能超讚的!!!!
看到之後感覺不打些廢話然後推一下實在對不起自己XD
avatar
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 816
年齡 : 33
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 6633
威望值 : 938
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

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

發表 由 shenhung 于 2012-06-25, 10:31

小妞 ~
令存新檔之後!!你要記住存檔的路徑..
再用appload載入..

avatar
shenhung
高級會員
高級會員

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5058
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

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

發表 由 shenhung 于 2012-06-25, 15:24



不知道是不是我之前貼的圖片範圍太大..!!我重貼看看
avatar
shenhung
高級會員
高級會員

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5058
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

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

發表 由 小妞妞 于 2012-06-25, 15:49

TO:shenhung
我用成功了,,謝謝,,但是
***圖塊內屬性文字轉正***
選取一個圖塊:; 錯誤: 損壞的引數類型: lentityp nil
是我的圖塊有問題嗎?
在請問一下,,甚麼是 屬性文字?
avatar
小妞妞
一般會員
一般會員

文章總數 : 17
年齡 : 38
來自 : 高雄
職業 : 室內設計
愛好 : 游泳
個性 : 可愛
使用年資 : 8年
使用版本 : 2012
經驗值 : 2413
威望值 : 0
注冊日期 : 2011-07-05
女 天蝎座 羊

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2012-08-06, 07:55

小妞妞 寫到:TO:shenhung
我用成功了,,謝謝,,但是
***圖塊內屬性文字轉正***
選取一個圖塊:; 錯誤: 損壞的引數類型: lentityp nil
是我的圖塊有問題嗎?
在請問一下,,甚麼是 屬性文字?
必須使用ATTDEF指令定義完屬性文字,再製做成的圖塊才可適用以上LISP程式~
PS:屬性圖塊內的文字也可以使用TORIENT指令轉正。
認同

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17311
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65250
威望值 : 12865
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 eggk5125k 于 2012-11-28, 03:43

找不到這個指令ㄟ"TORIENT"?
火冒三丈
avatar
eggk5125k
一般會員
一般會員

文章總數 : 42
年齡 : 39
來自 : louise
職業 : 營造
愛好 : 旅遊
個性 : 還好
使用年資 : 10年
使用版本 : 2009
經驗值 : 3239
威望值 : 6
注冊日期 : 2009-03-16
女 獅子座 馬

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2012-11-28, 03:46

eggk5125k 寫到:找不到這個指令ㄟ"TORIENT"?
你是否有安裝Express?
因為這是Express工具的指令喔!
竊喜

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17311
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65250
威望值 : 12865
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

2頁(共2頁) 上一頁  1, 2

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章