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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.

[問題]問一個原LISP中載入外部LISP後如何自動輸入動作值

向下

[問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Empty [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值

發表 由 pc200098 2022-05-28, 21:01

論壇裡有個前輩分享一個程式TOA.VLX,
這程式能在文字前、中、後添加字元,非常好用,
因為工作經常需要用到這個程式,但因為沒有原始碼,
所以我只能採用載入方法運用程式。
我運用的方法為呼叫程式選取固定圖層的文字後,
複製出新的圖元,並針對新的圖元做圖層變更,
再運用TOA程式添加固定字元到固定位置,
我編寫程式如下:

(LOAD "d:/LISP/TOA.VLX")
(defun C:CpT ()
 (setvar "cmdecho" 0)
 (setq en (entlast))
 (princ "\n請選取指定圖層的文字")
 (setq ss (ssget '((0 . "*TEXT") (8 . "#[#]"))))
 (command "_.copy" ss "" (getpoint "\n請指定基準點: ")
  (getpoint "\nESC結束或指定目的點: "))
 (setq ss1 (ssadd))
 (while (setq en (entnext en))
    (setq ss1 (ssadd en ss1)))
 (command "change" ss1 "" "p" "c" "bylayer" "la" "0" "")
 (C:TOC) ←這邊之後要怎麼輸入?
 )
       
這邊載入TOC後會指令行會問你要添加甚麼字元(我會填*),
輸入字元後會問你要添加到文字的第幾位(我會填4),
請問要如何讓程式載入TOC後在ss1選集中自動輸入"*"字元在第4位"
pc200098
pc200098
初級會員
初級會員

文章總數 : 47
年齡 : 36
來自 : 台南市
職業 : 機械製圖
愛好 : 電玩
個性 : 執著
使用年資 : 12
使用版本 : 2013&2016
積分 : 1
經驗值 : 4407
威望值 : 53
注冊日期 : 2011-03-10
男 天秤座 牛

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Ioaoe110 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 2020-310 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Oiu15010 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 2020-211 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Ia15010 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Aizyao10
[問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Uos15010 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 BPl3tjj [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Ziao1510 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Oo-2-110 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Oooo-110 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Aizyao11
[問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 Uos15011 [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 RQvAhqF [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 YdKelqY [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 K410yWG [問題]問一個原LISP中載入外部LISP後如何自動輸入動作值 OhRPPej