LISP程是如何修改，請高手指導一下

峰峰兒 · 发表于 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

提示: 作者被禁止或删除内容自动屏蔽

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

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

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

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

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

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

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

LISP程是如何修改，請高手指導一下

浏览过的版块