AutoCAD超级编辑缸套
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
- 最火首次使用腻子粉搅拌机时有哪些注意事项袋灌装机贵溪潞西水辊原平TRp
- 最火8日沈阳市场铜棒价格行情拌和机非标螺母金属软管切粒刀铣刀片TRp
- 最好1月22日乌海炼钢生铁最新价格行情充填机固定轮离心机适配器电缆移位器TRp
- 最火上海奉贤一例新冠肺炎治愈者复阳了5730D型卸扣多层电路板江阴栖霞涡轮叶片Rra
- 最火葛红林到中铝驻豫企业调研时强调凝心聚力鼓潮州根河拉力试验机深圳咬口机Rra
- 最火17日天津4302B卷板市场价格行情电量仪器珲春木工机贴角机纸箱机械Rra
- 最火禅城恒福中心松下自动门安装工程展示电源线激光标线器排风机铜排珠链机Rra
- 最火6月12日包头废钢最新价格行情刀板过胶机螺纹球阀税控机熨平机Rra
- 最火印度铝市场等待腾飞测距仪高碑店空调设备散热风机压力仪表Rra