LISP

峰峰兒 · 发表于 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點炸開...
一定要限制舊圖元留原位

账号		自动登录	找回密码
密码			注册

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2012-12-21 09:06:08 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2012-12-21 19:12:15 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2012-12-22 09:52:02 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2012-12-22 15:38:25 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2012-12-23 07:37:20 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡