教學課程
加入贊助
聯絡我們![[討論]圖塊內的文字顯示問題 - 頁 2 Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[討論]圖塊內的文字顯示問題
+16
ginse0727
kevin_6212
水藍色奇檬子
ling1027
tan866
XYteng
QL
littlewen2
iris001225
ching1791
Tiger&蘋果爸
shenhung
EVONNE
adslwang
judyyai
flok
20 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共2頁)
flok- 初級會員
- 文章總數 : 111
年齡 : 47
來自 : Hong Kong
職業 : 繪圖員
愛好 : 運動,打機,看漫畫及模型玩具,聽歌電影
個性 : 比較小說話,常常要做到最完美的人
使用年資 : 十年
使用版本 : 2011
積分 : 1
經驗值 : 6251
威望值 : 30
注冊日期 : 2008-11-03
![[討論]圖塊內的文字顯示問題 - 頁 2 Empty](https://2img.net/i/empty.gif)
回復： [討論]圖塊內的文字顯示問題
由 greetingsfromtw 2012-05-16, 15:59
shenhung 寫到:
修正新載點:
http://db.tt/fDJxVNoL
感謝S大,願意真心將LISP程式分享出來而且願意提供更新版本...!
雖然前面有大大提到用動態圖塊加旋轉屬性也是一個方法,但這個LISP更犀利阿.
小弟從平台獲得太多卻無從回饋,深感慚愧.
greetingsfromtw- 初級會員
- 文章總數 : 222
年齡 : 40
來自 : 高雄
職業 : CAD菜鳥繪圖員
愛好 : 吃好吃的東西
個性 : 文靜
使用年資 : 不到兩年
使用版本 : 公司為2008,家中為2011
積分 : 3
經驗值 : 5814
威望值 : 189
注冊日期 : 2012-05-02
小妞妞- 一般會員
- 文章總數 : 17
年齡 : 45
來自 : 高雄
職業 : 室內設計
愛好 : 游泳
個性 : 可愛
使用年資 : 8年
使用版本 : 2012
經驗值 : 4950
威望值 : 0
注冊日期 : 2011-07-05
回復： [討論]圖塊內的文字顯示問題
由 shenhung 2012-06-20, 21:04
1.在上面載點.你可以下載到amd_rtxt.lsp 請存檔.
2.用autocad 命令appload 先載入lisp 應用程式
然後執行lisp 命令 amd_rtxt ,當然你先要有一個圖塊..然後裡面有屬性文字. 須要轉正..這個程式才有作用.程式會提示你選取圖塊..!!圖塊內的文字.就會自動轉正..
2.用autocad 命令appload 先載入lisp 應用程式
然後執行lisp 命令 amd_rtxt ,當然你先要有一個圖塊..然後裡面有屬性文字. 須要轉正..這個程式才有作用.程式會提示你選取圖塊..!!圖塊內的文字.就會自動轉正..
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8075
威望值 : 1188
注冊日期 : 2009-06-03
回復： [討論]圖塊內的文字顯示問題
由 小妞妞 2012-06-24, 23:11
TO:shenhung
真的很抱歉,我還是不太懂
1.在上面載點.你可以下載到amd_rtxt.lsp 請存檔.
我點了載點以後,就出現一些文字符號...等...我存檔 就是只能存成文字檔
2.用autocad 命令appload 先載入lisp 應用程式
我有用appload這個指令 出現對話框以後,我要怎麼載入lisp 應用程式
真的很抱歉,我還是不太懂
1.在上面載點.你可以下載到amd_rtxt.lsp 請存檔.
我點了載點以後,就出現一些文字符號...等...我存檔 就是只能存成文字檔
2.用autocad 命令appload 先載入lisp 應用程式
我有用appload這個指令 出現對話框以後,我要怎麼載入lisp 應用程式
小妞妞- 一般會員
- 文章總數 : 17
年齡 : 45
來自 : 高雄
職業 : 室內設計
愛好 : 游泳
個性 : 可愛
使用年資 : 8年
使用版本 : 2012
經驗值 : 4950
威望值 : 0
注冊日期 : 2011-07-05
回復： [討論]圖塊內的文字顯示問題
由 leoneriol 2012-06-25, 09: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
____________________________________________________________________________________
丑角之日
堅持~!才會有價值~!
![[討論]圖塊內的文字顯示問題 - 頁 2 BPl3tjj.png](https://i.imgur.com/BPl3tjj.png.png)
![[討論]圖塊內的文字顯示問題 - 頁 2 Oooa_110](https://i.servimg.com/u/f67/12/31/59/66/oooa_110.png)
leoneriol- 榮譽顧問
- 文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9200
威望值 : 960
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8075
威望值 : 1188
注冊日期 : 2009-06-03
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8075
威望值 : 1188
注冊日期 : 2009-06-03
回復： [討論]圖塊內的文字顯示問題
由 小妞妞 2012-06-25, 22:49
TO:shenhung
我用成功了,,謝謝,,但是
***圖塊內屬性文字轉正***
選取一個圖塊:; 錯誤: 損壞的引數類型: lentityp nil
是我的圖塊有問題嗎?
在請問一下,,甚麼是 屬性文字?
我用成功了,,謝謝,,但是
***圖塊內屬性文字轉正***
選取一個圖塊:; 錯誤: 損壞的引數類型: lentityp nil
是我的圖塊有問題嗎?
在請問一下,,甚麼是 屬性文字?
小妞妞- 一般會員
- 文章總數 : 17
年齡 : 45
來自 : 高雄
職業 : 室內設計
愛好 : 游泳
個性 : 可愛
使用年資 : 8年
使用版本 : 2012
經驗值 : 4950
威望值 : 0
注冊日期 : 2011-07-05
回復： [討論]圖塊內的文字顯示問題
由 Tiger&蘋果爸 2012-08-06, 14:55
必須使用ATTDEF指令定義完屬性文字，再製做成的圖塊才可適用以上LISP程式～小妞妞 寫到:TO:shenhung
我用成功了,,謝謝,,但是
***圖塊內屬性文字轉正***
選取一個圖塊:; 錯誤: 損壞的引數類型: lentityp nil
是我的圖塊有問題嗎?
在請問一下,,甚麼是 屬性文字?
PS:屬性圖塊內的文字也可以使用TORIENT指令轉正。
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90364
威望值 : 17200
注冊日期 : 2008-04-23
-
eggk5125k- 一般會員
- 文章總數 : 42
年齡 : 46
來自 : louise
職業 : 營造
愛好 : 旅遊
個性 : 還好
使用年資 : 10年
使用版本 : 2009
經驗值 : 5776
威望值 : 6
注冊日期 : 2009-03-16
回復： [討論]圖塊內的文字顯示問題
由 Tiger&蘋果爸 2012-11-28, 11:46
你是否有安裝Express？eggk5125k 寫到:找不到這個指令ㄟ"TORIENT"?
因為這是Express工具的指令喔！
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90364
威望值 : 17200
注冊日期 : 2008-04-23
-
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共2頁)
這個論壇的權限：
您 無法 在這個版面回復文章