各位好,求两个简单的lsp(带命令的)"其实是杀鸡的事"

liminnet · 发表于 2008-5-29 10:16:00

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

liminnet · 发表于 2008-5-29 16:18:00

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

sailorcwx · 发表于 2008-5-29 16:31:00

(defun c:test(/ slt)
(if (null (setq slt (cadr (ssgetfirst))))(setq slt (ssget)))
(if slt
(command "change" slt "" "p" "c" "bylayer" "lt" "bylayer" "")
)
(princ)
)

liminnet · 发表于 2008-5-29 16:43:00

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

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-5-29 10:16:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-5-29 16:18:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-5-29 16:43:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

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