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

[討論]LISP有辦法作到複製貼上的效果嗎?

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

[討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 Conquerable 于 2013-04-10, 08:47

如題

請問各位先進,有無方法可以寫出類似效果?

複製(剪下)貼上時,所複製(剪下)的物品會跟者滑鼠指標移動

我希望當LISP執行GETPOINT時可以有此效果

即是在詢問插入點時可以有文字或圖形在滑鼠指標旁確定大小位置

而不是單純的詢問插入點

請各位幫忙,感激!
avatar
Conquerable
初級會員
初級會員

文章總數 : 45
年齡 : 27
來自 : 新北市板橋區
職業 : 繪圖員
愛好 : 繪圖
個性 : 好動
使用年資 : 12
使用版本 : 2000
積分 : 1
經驗值 : 2248
威望值 : 30
注冊日期 : 2012-07-09
男 雙魚座 馬

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 shenhung 于 2013-04-10, 12:44

EXPRESS TOOLS 工具你有安裝的話. 它的主程式. ACETUTIL.ARX 內就有函數可用.!!
以下是2個例子.取得PT 或角度.
(setq pt (acet-ss-drag-move (ssget) (getpoint "\n基準點:") "\n第二點:" 1))
(setq ang (acet-ss-drag-rotate (ssget) (getpoint "\n基準點:") "\n角度:" 1))

下面是 Acetutil.arx Help 的載點. 抱歉沒中文版.!!
關於你提的問題.可在help內. selection set funtion 內找到函數完整用法.!!
http://db.tt/21wgK0w6
avatar
shenhung
高級會員
高級會員

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

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 Conquerable 于 2013-04-11, 00:46

錯誤: no function definition: ACET-SS-DRAG-MOVE

是代表沒安裝嘛?

可是公司內有EXPRESS,像TXTEXP不就是EXPRESS內的指令??

還是我版本太舊,上次有載一個LISP,我CAD2000就不能用

同事另外一台2012的就可以用 暈倒

請問這樣就無解了嗎??

公司似乎鎖住安裝功能,之前下載過EXPRESS也無法安裝,有辦法覆蓋單檔嘛??
avatar
Conquerable
初級會員
初級會員

文章總數 : 45
年齡 : 27
來自 : 新北市板橋區
職業 : 繪圖員
愛好 : 繪圖
個性 : 好動
使用年資 : 12
使用版本 : 2000
積分 : 1
經驗值 : 2248
威望值 : 30
注冊日期 : 2012-07-09
男 雙魚座 馬

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 Conquerable 于 2013-04-11, 01:15

無法載入我同事2012版本的ACETUTIL.ARX ...

請問有無其他解決方法呢?
avatar
Conquerable
初級會員
初級會員

文章總數 : 45
年齡 : 27
來自 : 新北市板橋區
職業 : 繪圖員
愛好 : 繪圖
個性 : 好動
使用年資 : 12
使用版本 : 2000
積分 : 1
經驗值 : 2248
威望值 : 30
注冊日期 : 2012-07-09
男 雙魚座 馬

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 shenhung 于 2013-04-11, 02:09

1 .arx 有版本限制. 你要找到2000版的express tools. 才有用.
2. 可以覆蓋單檔. 但前提也是你要有存取權限.
3. 沒辦法安裝.可能你沒安裝權限.!! 有些公司.有專門網管人員 !!那你就要請你們公司管理電腦的人員開權限.或幫你安裝.!!
avatar
shenhung
高級會員
高級會員

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

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 Conquerable 于 2013-04-11, 02:40

我的EXPRESS裡面有ACETUTIL.ARX,但是這個指令是無法用的(已載入)

CAD2000的EXPRESS會有好幾種版本嘛??

剛測試我是有存取權限,但2000版本可用該指令的ACETUTIL.ARX該去哪找呢?

板上的下載下來是安裝檔的我無法用...
avatar
Conquerable
初級會員
初級會員

文章總數 : 45
年齡 : 27
來自 : 新北市板橋區
職業 : 繪圖員
愛好 : 繪圖
個性 : 好動
使用年資 : 12
使用版本 : 2000
積分 : 1
經驗值 : 2248
威望值 : 30
注冊日期 : 2012-07-09
男 雙魚座 馬

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 shenhung 于 2013-04-11, 05:05

我也搜尋了很久.!! 2000版本年代實在久遠.網路上資料真的不太多..
目前2004以上版本.比較常見.!!
我實在不願意這樣說.因為你們老板偷偷會罵我.!!
建議你還是升級AUTOCAD2004以上版本.!! 但是如果你是64位元的作業系統還是要注意一下.!!因為有的比較舊的程式.並不見得同時支援.32.和.64位元電腦.!!
祝你好運.抱歉沒幫上什麼忙.!!
avatar
shenhung
高級會員
高級會員

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

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 Conquerable 于 2013-04-11, 06:25

shenhung大 你還是幫了我很多忙 感謝

2000版本的確是太舊了,但我只是剛進來不到兩年的人,雖然整套LISP都是我寫的,但上頭的人應該是不了解這部分,想要升級應該不可能吧!!

再看看有沒有也使用2000的朋友吧!!說不定有機會XD

順帶問一下,你的意思是2004的EXPRESS就可執行ACET-SS-DRAG-MOVE的意思嘛?
avatar
Conquerable
初級會員
初級會員

文章總數 : 45
年齡 : 27
來自 : 新北市板橋區
職業 : 繪圖員
愛好 : 繪圖
個性 : 好動
使用年資 : 12
使用版本 : 2000
積分 : 1
經驗值 : 2248
威望值 : 30
注冊日期 : 2012-07-09
男 雙魚座 馬

回頂端 向下

回復: [討論]LISP有辦法作到複製貼上的效果嗎?

發表 由 shenhung 于 2013-04-11, 09:54

ACET-SS-DRAG-MOVE 是ACETUTIL.ARX 內所屬的函數.只要你有正確安裝
EXPRESS TOOLS 就都可以使用.!! 不管那個版本都可以.!!!
2000版本也有.只是要找而已.!! 建議你換2004只是因為2004版本的EXPRESS 網路上比較容易取得.

avatar
shenhung
高級會員
高級會員

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

回頂端 向下

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


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