留言板
- 峰峰兒
- raimo你好，小弟看過 "求助大家,请问有没有能打散块中块的LSP程序" 小弟現在有發生這種情形，
小弟現在提問是有一個原圖，把它COPY到0,0點之後炸開[分解]，我現在只想炸開[分解] <13>,<26>,<29>,<385>,<12>,.........其餘不用炸開[分解]，
LISP如何更改程式如下
(defun c:W223()
(SetVar 'osMode 0)
(setq pt1 (getpoint "\n請框選第一點: ..."))
(setq pt2 (getcorner pt1"\n請框選第二點. .."))
(command "zoom" "w" pt1 pt2)
(setq s (entlast) s1 (ssadd))
(SetVar 'osMode 33)
(setq pt3 (getpoint "\n請點選圖形0 ,0基準點<int,end> ..."))
(SetVar 'osMode 0)
(setq ss (ssget "w" pt1 pt2 ))
(command "copy" ss "" pt3 '(0 0))
(setvar 'qaflags 1)
(while (setq s (entnext s)) (setq s1 (ssadd s s1)))
(command "select" s1 "")
(princ"\n炸開")
(while (setq ss (ssget "P" '( (0 . "INSERT" ))))
(command ".explode" ss ""))
(setvar 'qaflags 0)
(command "zoom" "e")
(princ)
)
小弟有發表文章 " [提问] 炸開[分解] "附圖檔"希望 raimo 幫忙解決小弟問題
- chengx2000
- 请帮忙看一下我的帖子：http://bbs.mjtd.com/thread-87904-1-1.html，谢谢！
- caoyin
- 客气了
raimo: 非常感谢你最近给我的帮助..谢谢
