CAD删除区域的文字

zxco · 发表于 2008-6-30 11:16:21

CAD删除区域的文字

FANZAI · 发表于 2008-6-30 11:30:25

(defun C: DTX (/ s1)
  (setq cmdsave (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq pt0 (getpoint "指定左下角任意点,以框选删除文字之区域"))
  (setq pt1 (getcorner pt0))
  (setq s1 (ssget "C" pt0 pt1 '((0 . "mtext"))))
  (command "erase" s1 "")
  (setq s1 (ssget "C" pt0 pt1 '((0 . "text"))))
  (command "erase" s1 "")
  (setvar "cmdecho" cmdsave)
  (prompt "DTX 指令删除文字  Created by Jiang in 2000")
  (princ)
)

xiaoxiao908 · 发表于 2008-6-30 11:38:47

这样的好东西绝对支持！谢谢楼主奉献！

⊙孤⌒行● · 发表于 2008-6-30 12:18:20

这帖应该发在CAD专栏吧！

qudaoyu · 发表于 2008-6-30 14:56:38

感谢无私奉献

chengxiao · 发表于 2008-6-30 15:34:04

什么意思呢，是指删除选定区域内的文字吗？

twjmoju · 发表于 2009-5-25 17:18:06

mmzah · 发表于 2010-4-5 09:27:51

谢谢楼主。下来试试。

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

申请者注册名：		*默认获取当前用户名
性别：	男女
年龄：		*请填写您的真实年龄
职业：		*请填写您当前的职业
申请版区名称：		*请选择您申请的版区
联系电话：		*请填写您的联系电话，此项必填！
我的QQ：		*请填写您的QQ，此项必填！
我的专业特长：		*请填写您的特长领域
申请理由：		*请填写您为什么要申请的理由
管理措施：		*您准备以何种措施管理申请的版块？

[分享] CAD删除区域的文字

本帖子中包含更多资源

DTX

浏览过的版块

招聘信息 /5

求职信息 /5

技术求助 /5

×