CAD删除区域的标注和尺寸

zxco · 发表于 2008-6-30 11:13:13

CAD删除区域的标注和尺寸的小程序很方便的,希望大家用得上

FANZAI · 发表于 2008-6-30 11:32:47

(defun C: DMT (/ 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 "")
  (setq s1 (ssget "C" pt0 pt1 '((0 . "DIMENSION"))))
  (command "erase" s1 "")
  (setvar "cmdecho" cmdsave)
  (prompt "DMT 指令删除文字尺寸  Created by Jiang in 2000")
  (princ)
)

hlsy · 发表于 2009-8-24 14:48:03

为什么不能下载啊？

ada14ada14 · 发表于 2010-2-2 10:49:33

为什么不能下载啊？

moonpad · 发表于 2011-4-21 23:15:12

哪来的钱的中

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

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

[分享] CAD删除区域的标注和尺寸

本帖子中包含更多资源

DMT

浏览过的版块

招聘信息 /5

求职信息 /5

技术求助 /5

×