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

如題

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

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

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

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

而不是單純的詢問插入點

請各位幫忙,感激!

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

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

是代表沒安裝嘛?

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

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

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

請問這樣就無解了嗎??

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

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

請問有無其他解決方法呢?

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

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

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

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

板上的下載下來是安裝檔的我無法用...

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

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

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

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

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

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