[討論]想大家幫忙一個LISP程式

由 **Alanlam** 2012-07-23, 15:21

主題回顧 :

我想寫一個LISP是可以打一個指令,可更改圖塊名稱,
之後如果再貼上同一個圖塊,名稱後數字累加
例如: BLOCK(1)
BLOCK(2)
.
.
.
求各位大大幫手!!!

由 **pizg** 2012-07-26, 11:06

shenhung 寫到:insert命令行輸入的檔名的欄位..直接輸入 9a12(1)=9a12 或9a12(2)=9a12 以此類推.也行.不必修改檔名.!!

這是老式用法,
2010以後版本好像不可行.

由 **as920029as** 2012-07-26, 12:12

Alanlam 寫到:
as920029as 寫到:@@第3步驟就點選你圖快要放的位子即可點了之後圖塊
應該會顯示於你點的地方
你圖塊名稱是ADD?
我明天在幫你改進一下程式好了
可否把圖塊名稱ADD哪一部分變成是點選CAD圖上的其中一個圖塊
就是把一開始預設的哪一部份變成點選CAD圖上的任何一個圖塊

這部份可用以下指令讀取圖塊名稱

(setq BL (entsel "點選圖塊"))
(setq BLO (entget (car BL)))
(setq BLOtxt (cdr (assoc 2 BLO)))
試著自己寫看看@@

由 **shenhung** 2012-07-26, 13:35

pizg 寫到:
shenhung 寫到:insert命令行輸入的檔名的欄位..直接輸入 9a12(1)=9a12 或9a12(2)=9a12 以此類推.也行.不必修改檔名.!!
這是老式用法,
2010以後版本好像不可行.

這是r10時代的一種方法.是很久遠了.不過.
這樣的檔名輸入法.2010 還是可以用的.

由 **Alanlam** 2012-07-26, 16:29

as920029as 寫到:
Alanlam 寫到:
as920029as 寫到:@@第3步驟就點選你圖快要放的位子即可點了之後圖塊
應該會顯示於你點的地方
你圖塊名稱是ADD?
我明天在幫你改進一下程式好了
可否把圖塊名稱ADD哪一部分變成是點選CAD圖上的其中一個圖塊
就是把一開始預設的哪一部份變成點選CAD圖上的任何一個圖塊

這部份可用以下指令讀取圖塊名稱

(setq BL (entsel "點選圖塊"))
(setq BLO (entget (car BL)))
(setq BLOtxt (cdr (assoc 2 BLO)))
試著自己寫看看@@

(defun c:add6()
(setvar "cmdecho" 0)
(setq intxt (getstring "圖塊代碼<1>"))
(if (= intxt "")
(setq intxt "1")
)
(setq BL (entsel "點選圖塊"))
(setq BLO (entget (car BL)))
(setq BLOtxt (cdr (assoc 2 BLO)))
(setq x1 (getpoint intxt))
(while x1
(setq newtx (strcat BLOtxt "(" intxt ")"))
(setq qq (command "rename" "b" BLOtxt newtx ))
(setq en_data (command "insert" newtx "s" "1" "r" "0" x1 ))
(setq att (atoi intxt))
(setq intxt (+ att 1))
(setq intxt (itoa intxt))
(setq BLOtxt newtx)
(setq x1 (getpoint intxt))
)
)
(prin1)

改成這樣子嗎?

由 **as920029as** 2012-07-27, 10:03

Alanlam 寫到:
as920029as 寫到:
Alanlam 寫到:
as920029as 寫到:@@第3步驟就點選你圖快要放的位子即可點了之後圖塊
應該會顯示於你點的地方
你圖塊名稱是ADD?
我明天在幫你改進一下程式好了
可否把圖塊名稱ADD哪一部分變成是點選CAD圖上的其中一個圖塊
就是把一開始預設的哪一部份變成點選CAD圖上的任何一個圖塊

這部份可用以下指令讀取圖塊名稱

(setq BL (entsel "點選圖塊"))
(setq BLO (entget (car BL)))
(setq BLOtxt (cdr (assoc 2 BLO)))
試著自己寫看看@@

(defun c:add6()
(setvar "cmdecho" 0)
(setq intxt (getstring "圖塊代碼<1>"))
(if (= intxt "")
(setq intxt "1")
)
(setq BL (entsel "點選圖塊"))
(setq BLO (entget (car BL)))
(setq BLOtxt (cdr (assoc 2 BLO)))
(setq x1 (getpoint intxt))
(while x1
(setq newtx (strcat BLOtxt "(" intxt ")"))
(setq qq (command "rename" "b" BLOtxt newtx ))
(setq en_data (command "insert" newtx "s" "1" "r" "0" x1 ))
(setq att (atoi intxt))
(setq intxt (+ att 1))
(setq intxt (itoa intxt))
(setq BLOtxt newtx)
(setq x1 (getpoint intxt))
)
)
(prin1)

改成這樣子嗎?

你這樣程式會有一點點改變
會變成
圖塊名稱ADD(1)..ADD(1)(2)...ADD(1)(2)(3)
會一直把(數字) 加在後面
以下是我改的給您參考看看^^"
不知是否有幫上忙
(defun c:TEOK()
(setvar "cmdecho" 0)
(setq intxt (getstring "圖塊代碼<1>"))
(if (= intxt "")
(setq intxt "1")
)
(setq BL (entsel "點選圖塊"))
(setq BLO (entget (car BL)))
(setq BLOtxt (cdr (assoc 2 BLO)))
(setq x1 (getpoint intxt))
(setq XX BLOtxt)
(while x1
(setq newtx (strcat BLOtxt "(" intxt ")"))
(setq qq (command "rename" "b" XX newtx))
(setq en_data (command "insert" newtx "s" "1" "r" "0" x1 ))
(setq att (atoi intxt))
(setq intxt (+ att 1))
(setq intxt (itoa intxt))
(setq XX newtx)
(setq x1 (getpoint intxt))
)
)
(prin1)

由 **lingo_st** 2012-07-27, 21:05

剛試了一下,block一個圖塊叫 1 結果複製出來的第1個圖塊名稱叫1(1),第2個叫 1(1)(2),...以此類推,
可怕的是回頭點前面的圖塊名稱都被改成跟最後一個一樣
比如說我複製到第3個名稱會變成 1(1)(2)(3),然後前面3個名稱也都變成1(1)(2)(3)

對lisp來說我完全是個門外漢,是到論壇挖寶之後才知道我的autocad竟然也可以運用這些小程式然後突然增加一甲子功力,可是綜觀列位先進很熱心的解答與切搓後突發感想,雖說大家因此可以長見識(至少個人就獲益良多),
不過個人是覺得樓主這個需求真的有點難以想像,因為圖塊都會指定插入點,所以複製後貼上時點在哪圖塊就應該貼在哪,而且圖塊一般的認知就是貼圖方便,所以都是直接貼到想貼的位置,如果當下貼上後發現找不到貼到哪去,其實馬上qselect,指定選取"圖塊""名稱",所有同名圖塊都會亮顯,這時那個不在應有位置的圖塊立馬乖乖現形,我想這樣應該可以比較直接而有效的解決樓主的問題,因為只是當下在一大張圖裡面要找個小圖塊確實是有點辛苦,沒找到的話圖上在不知名的位置又會多出一個莫名其妙的東西,只要用找到它的方法就解決了不是嗎?況且如果依樓主的說法每貼一次名稱都更改圖塊名稱加上排序,那以後在圖塊管理上不是自找麻煩嗎?

由阿希 2012-07-28, 17:26

好久沒來這逛逛了~ 人在大陸出差中
看了板主這問題 ~ 只能說，lisp這東西是"客製化"的需求程式，
針對個人或企業的需求去做程式設計，有些想法可能很天馬行空，
有的可以完成，有的看起來是不可能的任務，

這程式目前的問題應該像前一位說的，所有貼上的圖塊最後都會變成最後一個圖塊名稱，
程式內容應該是要"另外創造一個相同圖塊並給予新的圖塊名稱"，而並非只是改圖塊名而已

有空再來挑戰看看吧

由 **Alanlam** 2012-07-29, 14:53

pizg 寫到:
Alanlam 寫到:
pizg 寫到:
Alanlam 寫到:
pizg 寫到:;;2012-07-25 by PizG
(defun c:Insblk(/ fn blkName)
(setq fn (getfiled "選取圖塊" "" "dwg" 2))
(setq blkName (vl-filename-base fn))
(if (null blkN) (setq blkN 1) (setq blkN (1+ blkN)))
(setvar "cmdecho" 1)
(command "_.insert" blkName pause 1 1 pause)
(command "_.rename" "b" blkName (strcat blkname "(" (itoa blkN) ")"))
(princ)
)

我遇到一個很奇怪的地方,就是在選取圖塊的時候,檔案名字是英文開頭的可以開,但是數字開頭的就不行....
是什麼問題呢?
有可能是你圖塊自身的問題,
如果你能貼出該圖塊網址讓我測一下,
如此答案會更清楚些.
這是哪個圖塊 https://www.dropbox.com/s/e1p49d1f1207oat/9A12.rar
是你圖塊自身的問題>>>圖塊 9A12 自身參考
與檔名為數字無關,
請重新建立該圖塊即可.

另外程式稍作修改如下:
;;2012-07-26 by PizG
(defun c:Insblk(/ fn blkName)
(setq fn (getfiled "選取圖塊" "" "dwg" 2))
(setq blkName (vl-filename-base fn))
(if (null blkN) (setq blkN 1) (setq blkN (1+ blkN)))
(setvar "cmdecho" 1)
(command "_.insert" fn pause 1 1 pause)
(command "_.rename" "b" blkName (strcat blkname "(" (itoa blkN) ")"))
(princ)
)

我想問如果做完之後，想把哪個累積的數字歸零，要怎麼做？