把此贴删除了

500w008 · 发表于 2010-6-2 20:42:00

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

Andyhon · 发表于 2010-6-2 20:57:00

用猜的
(setq xz (ssget ss_1 ((0 . "LINE"))))
==>
(setq xz (ssget "P" '((0 . "LINE"))))

500w008 · 发表于 2010-6-2 21:14:00

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

lenlenq · 发表于 2010-6-6 09:50:00

请楼主试用(DEFUN C:pe (/ acc ss_1)
(setq acc (getvar "peditaccept"))
(PRINC "请选择需要闭合的线! ")
(setq ss_1 (ssget))
(if (= acc 1)
(COMMAND "pedit" "M" ss_1 "" "J" "1" "" "")
(COMMAND "pedit" "M" ss_1 "" "Y" "J" "1" "" "")
)
(setvar "peditaccept" acc)
(PRINC)
)

xyp1964 · 发表于 2010-6-6 09:55:00

(DEFUN C:pe (/ ss)
(PRINC "\n请选择需要闭合的线: ")
(if (setq ss (ssget '((0 . "LINE"))))
(COMMAND "pedit" "M" ss "" "Y" "J" "1" "" "")
)
(PRINC)
)

lsjj · 发表于 2010-6-6 10:05:00

500w008发表于2010-6-2 21:14:00改了还是不能连在一起

(setq xz (ssget \"p\" '((0 . \"LINE\"))))(COMMAND \"pedit\" \"M\" ss_1 \"\" \"Y\" \"J\" \"1\" \"\" \"\")

xz和ss_1有何關係?先解決根本再看其他

500w008 · 发表于 2010-6-6 14:30:00

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

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

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2010-6-2 20:42:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

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

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2010-6-2 21:14:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

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

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2010-6-6 14:30:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

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

[讨论] 把此贴删除了