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

[討論]分享LISP-快速移動(2版)

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

[討論]分享LISP-快速移動(2版)

發表 由 devinchou 于 2016-06-06, 16:14

可依所選物件的圖層,
移動物件,
一樣分為單一圖層及多圖層選取,
指令名為QM,
希望各位先進!
能夠提供寶貴的意見,
感恩呀!
以下為程式碼:
代碼:
 ; [AutoCAD EXTEND] QUICK MOVE(BY LAYER MOVE OBJECT).
 ; [AutoCAD "指令"功能延伸] 快速移動(依圖層移動物件)。
 ; 支援軟體版本("AutoCAD")
 ; 設計者:Devin,Chou
 ; 版權所有,歡迎使用
 ; Rev.2(2016/06/06)
(defun C:qm (/ L_X ss
               lc_s L_s
               lc_m m_lt m_in m_o L_mt L_m )
(setvar "cmdecho" 0 )
(initget "S M" )
(setq L_X
    (getkword
    (strcat "\n移動模式[單一圖層(S)/多圖層(M)]<S>:" )))
(if (= L_X nil )
    (setq L_X "S" )) ; if.end
(if (= L_X "S" )
    (setq lc_s 0 )) ; if.end
(if (= L_X "M" )
    (setq lc_m 0 )) ; if.end
(while (= lc_s 0 )
(setq L_s
    (assoc 8
    (entget
    (car
    (entsel "\n請選取要移動物件的圖層:" )))))
(princ "\n圖層:" )(princ (cdr L_s ))
(setq lc_s 1 )) ; while-lc_s.end
(while (= lc_m 0 )
(setq m_lt '() m_in 0 )
(princ "\n請選取要移動物件的圖層(多圖層):" )
(setq m_o (ssget ))
(repeat (sslength m_o )
(setq L_mt
    (assoc 8
    (entget
    (ssname m_o m_in ))))
(princ "\n圖層:" )(princ (cdr L_mt ))
(setq m_lt (cons L_mt m_lt ))
(setq m_in
    (1+ m_in ))) ; repeat.end
(setq L_m
    (cons '(-4 . "<OR")
    (reverse
    (cons '(-4 . "OR>") m_lt ))))
(setq lc_m 1 )) ; while-lc_m.end
(princ "\n請選取要移動的物件:" )
(if (= L_X "S" )
(setq ss (ssget (list L_s )))) ; if.end
(if (= L_X "M" )
(setq ss (ssget L_m ))) ; if.end
(command "MOVE" ss "" )
(prin1)
) ; end
(princ "\nC:qm(2版)")
(prin1)

Tiger&蘋果爸 寫到:讚啦!! 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
附件
快速移動.zip 您無權下載這里的附件。(1 Kb) 下載 65 次
avatar
devinchou
初級會員
初級會員

文章總數 : 49
年齡 : 40
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 2
經驗值 : 1450
威望值 : 150
注冊日期 : 2015-02-15
男 天蝎座 蛇

回頂端 向下

回復: [討論]分享LISP-快速移動(2版)

發表 由 poiuyy 于 2016-06-11, 06:44

感謝大大的分享
先收下試試
avatar
poiuyy
初級會員
初級會員

文章總數 : 171
年齡 : 43
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 1
經驗值 : 1998
威望值 : 78
注冊日期 : 2014-06-24
藍鵲656號
男 天秤座 虎

回頂端 向下

回復: [討論]分享LISP-快速移動(2版)

發表 由 devinchou 于 2016-11-19, 13:44


使用說明影片檔來了...
avatar
devinchou
初級會員
初級會員

文章總數 : 49
年齡 : 40
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 2
經驗值 : 1450
威望值 : 150
注冊日期 : 2015-02-15
男 天蝎座 蛇

回頂端 向下

回復: [討論]分享LISP-快速移動(2版)

發表 由 Tiger&蘋果爸 于 2016-11-21, 02:37

devinchou 寫到:
使用說明影片檔來了...
真的好方便喔~
謝謝您的無私分享!
感謝啦

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17311
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65250
威望值 : 12865
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [討論]分享LISP-快速移動(2版)

發表 由 devinchou 于 2016-11-21, 13:07

只是一個小程式啦!!!
還是比不過蘋果爸呢!!!
蘋果爸可以寫整套的套裝軟體!!!
那才厲害!!!
(PS.除了移動,我還寫了刪除和複製,過陣子再擺上來)
avatar
devinchou
初級會員
初級會員

文章總數 : 49
年齡 : 40
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 2
經驗值 : 1450
威望值 : 150
注冊日期 : 2015-02-15
男 天蝎座 蛇

回頂端 向下

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


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