峰峰兒 发表于 2013-1-31 07:46:18

ZZXXQQ 发表于 2013-1-31 08:23:37

一看标题觉得是玩笑。
(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)
(princ)
)

峰峰兒 发表于 2013-1-31 20:37:59

香田里浪人 发表于 2013-1-31 21:13:15

lisp程（序）是如何修改--------请问老兄：lisp”程序”岂能修改？应该说“用lisp编的xx程序如何修改”，是不是这个意思？

峰峰兒 发表于 2013-2-1 16:19:15

页: [1]
查看完整版本: LISP程是如何修改，請高手指導一下