把此贴删除

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

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

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

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

caoyin · 发表于 2010-6-14 10:08:00

;;楼主写的这么简单，I服了YOU

(defun c:89 (/ en str)
(setq en (entsel "\nPick a text or a attrib: "))
(setq en (entget (car en)))
(setq str (cdr (assoc 1 en)))
(entmod
   (subst (cons 1 (substr str 1 (- (strlen str) 7)))
          (assoc 1 en)
          en
   )
)
(princ)
)

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

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

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

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

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

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

crazylsp · 发表于 2010-6-14 21:36:00

本帖最后由 crazylsp 于 2011-4-21 11:36 编辑

;改了一下,一次处理一个，再回车几次可以处理完

)
)

500w008 · 发表于 2010-6-15 02:51:00

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

原地踏步 · 发表于 2010-6-15 10:08:00

不明白楼主为何要将(setq enl (sslength en))改为(setq enl (car en))。

caoyin · 发表于 2010-6-16 10:09:00

500w008没搞清楚选择集和图元名是有区别的

SSGET--->选择集

ENTSEL---->图元名

怎么没效果？

——人家帮你写出来，你总是把它往错了改

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

[讨论] 把此贴删除

浏览过的版块

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

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

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

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

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

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

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

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

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

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