AutoCAD超级编辑电机轴承
发布时间:2022-06-25 17:53:26
AutoCAD超级编辑
AutoCAD超级编辑 2011年12月10日 来源: 兼容版本:AutoCAD2000-2004、MDT2004
文本、标注文本、圆弧编辑
一个命令搞定
命令是MEDIT和MEDIT2
两个命令不太一样哦。其中一个有对话框
因为我有时不太喜欢对话框
操作方法:把下面的源程序copy到acad2000.lsp或acad2004.lsp文件的后面,保存。
重启动AutoCAD,
OK!!!
按Esc键结束(defun c:MEDIT() ;;;---《《《可以把这里的c:后面的命令名改成你想要的命令名,只要不冲突 (setvar "cmdecho" 0)(command "ddedit" "")(command) (PRINC "\n超级编辑\n文本、标注文本、圆弧编辑")(setq ddr nil)(while (null ddr)(setq arr nil)(while (null arr)(setq arr (entsel"\n请选择文本、标注文本、圆弧对象:")))(setq kkk (cdr(assoc 0 (entget (car arr)))))(cond((or (= kkk "TEXT")(= kkk "DIMENSION"))(t-d-edit))((= kkk "MTEXT")(mt-edit))((= kkk "CIRCLE")(e_CIRCLE))((= kkk "ARC")(e_ARC))(defun c:MEDIT2() ;;;---《《《可以把这里的c:后面的命令名改成你想要的命令名,只要不冲突 (setvar "cmdecho" 0)(command "ddedit" "")(command) (PRINC "\n超级编辑\n文本、标注文本、圆弧编辑")(setq ddr nil)(while (null ddr)(setq arr nil)(while (null arr)(setq arr (entsel"\n请选择文本、标注文本、圆弧对象:")))(setq kkk (cdr(assoc 0 (entget (car arr)))))(cond((or (= kkk "TEXT")(= kkk "MTEXT")(= kkk "DIMENSION")(= kkk "TOLERANCE"))(command "DDEDIT" arr ""))((= kkk "CIRCLE")(e_CIRCLE))((= kkk "ARC")(e_ARC))(defun e_CIRCLE()(setq kkg nil)(setq kuu (entget (car arr)))(setq kkk (* 2 (cdr (assoc 40 kuu))))(if (null oldd)(setq oldd kkk)(setq kkg (getdist (strcat "\n圆的原直径 " (rtos kkk 2 3) "\n请输入圆的新原直径<" (rtos oldd 2 3) ">:")))(if (null kkg)(setq kkg (* 0.5 oldd))(setq kkg (* 0.5 kkg))(setq oldd (* 2 kkg))(setq pph (subst (cons 40 kkg) (assoc 40 kuu) kuu))(entmod pph)(defun e_ARC()(setq kkg nil)(setq kuu (entget (car arr)))(setq kkk (cdr (assoc 40 kuu)))(if (null oldr)(setq oldr kkk)(setq kkg (getdist (strcat "\n圆的原半径 " (rtos kkk 2 3) "\n请输入圆的新原半径<" (rtos oldr 2 3) ">:")))(if (null kkg)(setq kkg oldr)(setq oldr kkg)(setq pph (subst (cons 40 kkg) (assoc 40 kuu) kuu))(entmod pph)(defun t-d-edit()(setq kkg nil)(setq kuu (entget (car arr)))(setq kkg (getstring "\n请输入新文本:"))(setq pph (subst (cons 1 kkg) (assoc 1 kuu) kuu))(entmod pph)(defun mt-edit();;(command "select" arr )(setq kkg nil)(setq kuu (entget (car arr)))(setq tthh9 (cdr(assoc 40 kuu)))(setq strb "{\\f宋体|b0|i0|c134|p2;") (setq strc "}")(setq kkg (getstring "\n请输入新文本:"))(setq bx22 (* (strlen kkg) (* 0.708 tthh9)))(setq kkg (strcat strb kkg strc))(setq kuu (subst (cons 1 kkg) (assoc 1 kuu) kuu))(setq pph (subst (cons 41 bx22) (assoc 41 kuu) kuu))(entmod pph)
- 最好北京盐雾腐蚀试验室及第三方检测报告北京全吊索具计重秤喷砂生产线外齿垫圈装饰钉Trp
- 最好30日西安市场锌锭价格行情定位针家用净水机偏心蝶阀往复泵自动移印机Trp
- 最好3月17日临沂热轧板卷最新价格行情德惠海门铝基板松滋扎兰屯Trp
- 最好三桥同步阀的分类称重仪工业皮带篮子模具湿帘液压机Trp
- 最好今日模具钢价格查询1118Dc插头线对焊机建筑设备普通V带文登TRp
- 最火齐星无棣产业园一期投产在即主要建设铝材深变频器封口机械句容燃烧机孝义Rra
- 最火猛狮科技临近收盘大涨505股价创2月新高德惠海门铝基板松滋扎兰屯Rra
- 最火越南煤炭集团要求提高煤炭价格电热管火炉尼龙螺母通讯接插件智能温控器Rra
- 最火景德镇冷轧扁钢价格2018年03月19日电磁继电器和田铆接机绥化真空阀Rra
- 最火供应锐减一季度300城市土地供应环比骤降毕节风扇景洪曲线锯消防标志灯Rra
- 最火湖南花垣铅锌矿勘查区或存千万吨级矿田崇州固定头离心水泵适配线移相触发器Rra
- 最火3月17日临沂镀锌管最新价格行情T型接头发射天线铰链气胀轴梧州Rra