峰峰兒 发表于 2012-12-21 09:06:08

xiabin68 发表于 2012-12-21 10:31:07

楼刘台湾还是香港人哦，字不是宋体呢？？？

Andyhon 发表于 2012-12-21 13:36:14

本帖最后由 Andyhon 于 2012-12-21 19:21 编辑

(defun c:CM()
   (SetVar 'osMode 0)
   (setq pt1 (getpoint "\n請框選第一點: ..."))
   (setq pt2 (getcorner pt1"\n請框選第二點 ..."))
   (command "zoom" "w" pt1 pt2)
   (SetVar 'osMode 33)
   (setq pt3 (getpoint "\n請點選圖形0,0基準點 <int,end> ..."))   
   (SetVar 'osMode 0)
   (setq ss (ssget "w" pt1 pt2 '((0 . "INSERT"))))
   (command "copy" ss "" pt3 pt3)
   (command "Move" ss "" pt3 '(0 0))
   (command "zoom" "e" )
   (setvar 'qaflags 1)
   (princ"\n炸開")
   (command ".explode" ss "")
   (setvar 'qaflags 0)
   (princ)
)

峰峰兒 发表于 2012-12-21 19:12:15

峰峰兒 发表于 2012-12-22 09:52:02

Andyhon 发表于 2012-12-22 10:22:39

請提供測試用圖檔(*.Dwg)

峰峰兒 发表于 2012-12-22 15:38:25

Andyhon 发表于 2012-12-22 17:10:20

Tested and Ok

有炸開呀!

峰峰兒 发表于 2012-12-23 07:37:20

Andyhon 发表于 2012-12-23 08:50:42

運作是原位置 copy 所選圖形 (ss)
再將 ss 圖形 Move 至0,0點炸開...
一定要限制 舊圖元留原位
页: [1] 2 3
查看完整版本: LISP