[問題]請教是否能夠用lsp直接修改方形或圓形的比例

請教是否能夠用lsp直接修改方形或圓形的比例呢？
我大概描述一下情況……
整張圖說中，因為前一位繪圖人員畫了大約有400左右"口"
然後現在我要出圖的時候發現當時繪圖人員所畫的"口"太小了(線型也太細了)
需要依比例放大約1.5倍～2倍，但是"口"中心位置不能改變…
總不能說一個一個做比例放大的操作吧！
所以有沒有好一點的方式或lsp函數可以將"口"或"○"依「中心點」當作基準備放大我需要的比例呢？

程式可以輕鬆達成～不過，建議你之後應改把「"口"或"○"」製作成圖塊，方便日後直接編輯圖塊修改，也可以快速計算數量


▼LSP程式免費下載，下載會員等級一般會員▼

蘋果爸，謝謝您！
遇到的最大一個問題就是…這是「前人」畫的…

ianlcc 寫到:蘋果爸，謝謝您！
遇到的最大一個問題就是…這是「前人」畫的…

「前人」畫的…這樣的確傷腦筋
如果不用程式，只能使用「快速選取」QSELECT指令，根據過濾規則來選取～
如果條件允許也可以過「圖層隔離」來選取需要的物件

老師您好
請問當我已經建立了一個矩形圖塊 (圖塊內只有一個矩形)
另外有一群不規則陣列的圓型(那一群圓型本身不是圖塊)
我圈選了圓型陣列 , 再按TEST
想去點選矩形圖塊提示列表示找到零個物件

如果甚麼都不做, 也不會跳出任何提示

需要求救

謝謝老師!!!

麻煩有問題請上傳一個簡單的 sample, 我是專門寫 VBA 程式不會畫圖, 或許可以幫個小忙.

柿子不好剝 寫到:老師您好
請問當我已經建立了一個矩形圖塊 (圖塊內只有一個矩形)
另外有一群不規則陣列的圓型(那一群圓型本身不是圖塊)
我圈選了圓型陣列 , 再按TEST
想去點選矩形圖塊提示列表示找到零個物件
如果甚麼都不做, 也不會跳出任何提示
需要求救
謝謝老師!!!

1.用記事本打開LSP程式把col改掉，然後更改成你的圖塊名稱。

代碼:

(command "insert" "col" pt "" "" "");;"col"為圖塊名稱，自行更改

2.載入程式先輸入指令再選擇圓。

Tiger&蘋果爸 寫到:

柿子不好剝 寫到:老師您好
請問當我已經建立了一個矩形圖塊 (圖塊內只有一個矩形)
另外有一群不規則陣列的圓型(那一群圓型本身不是圖塊)
我圈選了圓型陣列 , 再按TEST
想去點選矩形圖塊提示列表示找到零個物件
如果甚麼都不做, 也不會跳出任何提示
需要求救
謝謝老師!!!

1.用記事本打開LSP程式把col改掉，然後更改成你的圖塊名稱。

代碼:

(command "insert" "col" pt "" "" "");;"col"為圖塊名稱，自行更改

2.載入程式先輸入指令再選擇圓。

已更改後另存 , 一點變化都沒有 跳出一串文字
說無效 錯誤函數被取消

這邊有機會丟螢幕錄影嗎?

謝謝

柿子不好剝 寫到:

Tiger&蘋果爸 寫到:

柿子不好剝 寫到:老師您好
請問當我已經建立了一個矩形圖塊 (圖塊內只有一個矩形)
另外有一群不規則陣列的圓型(那一群圓型本身不是圖塊)
我圈選了圓型陣列 , 再按TEST
想去點選矩形圖塊提示列表示找到零個物件
如果甚麼都不做, 也不會跳出任何提示
需要求救
謝謝老師!!!

1.用記事本打開LSP程式把col改掉，然後更改成你的圖塊名稱。

代碼:

(command "insert" "col" pt "" "" "");;"col"為圖塊名稱，自行更改

2.載入程式先輸入指令再選擇圓。

已更改後另存 , 一點變化都沒有  跳出一串文字
說無效  錯誤函數被取消

這邊有機會丟螢幕錄影嗎?

謝謝

老師您好 已解決
我是用 2018 版本 , 圖塊名稱依然不能用中文 ((抱歉
改英文後已解決

柿子不好剝 寫到:
已更改後另存 , 一點變化都沒有  跳出一串文字
說無效  錯誤函數被取消

老師您好  已解決
我是用 2018 版本 , 圖塊名稱依然不能用中文 ((抱歉
改英文後已解決

如果有中文圖塊名稱，那就要用AutoCAD內建編輯器來編輯LSP檔，這樣就可以用中文圖塊名稱
AutoLISP 與 Visual LISP 概述
https://www.autocad-tw.com/t4511-topic

註：因為Windows記事本編輯後中文圖塊名稱，會造成你說的問題(文字亂碼)，這是微軟文字編輯編碼出問題...