CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1390|回复: 4

[求助] 求高手给编个程序

[复制链接]
发表于 2010-11-9 09:15 | 显示全部楼层 |阅读模式
那位大侠能帮个忙  给我编个小程序  将下图中的双行文字中的下行文字删除 (  图中的文字都为单行文字
( L' y& q! a; k  \! n" N* T+ })要是三行的也能任意编辑其中一行最好     感觉这个批量编辑的小程序做好了  能解决很多问题

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2010-11-9 10:56 | 显示全部楼层
请上传样本文件(dwg) 以利调试
 楼主| 发表于 2010-11-9 12:31 | 显示全部楼层

往楼上的能解决此问题

感谢啊      

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2010-11-9 15:05 | 显示全部楼层
(defun GtUpT (x)
- ]% A) _4 }/ T9 s" e   (setq pt (cdr (assoc 10 (entget x)))
% j; s- P' U4 Z+ H: n8 ^0 X% ?0 h* l$ Q         pt (mapcar '+ pt '(0 200))
, B$ W* k' J3 h5 O% @7 |   )$ ~( m2 X) j/ t
   (ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq)   ; '(600 0)
4 b/ g- c7 N8 B6 I)9 K. j( y( {: g9 n  [9 C2 U; o! Z$ g
6 q2 Q* R" C- X2 G9 M
;;; for Test only
* \5 s- I# n" T; v( l* J* a% |
: o: r2 b- r1 x& N2 |9 U6 M(defun C:Test ()3 ~: ?5 n! _$ P9 C
  ;; 设定文字滤取条件% X. i. H! x- n1 m) e! l* ^, m
  (setq TxtEq: U( u) G+ A' A7 h) `6 r
         '(2 u* K1 c2 ^" Q
           (0 . "TEXT"), s" I. O* F8 o& X- h* b5 b7 |  ]
           (8 . "451")! u' I: F/ @- P* }5 M
           (62 . 13)
  G4 |8 s* k/ o           (50 . 0.0)0 d) b) I, S+ X* C1 q6 ]+ @
           (41 . 0.8)3 Y7 U8 m" `: I+ Y% g1 |
           (51 . 0.0)) l4 X6 b* `2 M* X. i! N; b8 s
           (7 . "Standard")- B" F& o8 m$ \9 o  }0 d# o& N
           (71 . 0)
+ U8 I) E+ c4 R7 c- Q) A& d           (72 . 0)4 [' X2 F; D9 W, d* i
           (73 . 0)
8 t8 D6 ?$ h- c% ~( {          )
5 p% \4 i+ e" j. z  )
9 U/ M% i7 h* d) l( d& J  
; u5 D5 ?) X9 W7 J  (command "Zoom" "e")
: A1 ^4 |3 C1 i+ Z' x* w  
9 i7 v3 D9 U9 [& z) l  (setq ss  (ssget "x" TxtEq)
' S& ]) g& D/ A6 ~- L5 f* |        ssa (ssadd)/ J  e( L! ?( K9 ?. `. b
        ;; ssb (ssadd)1 R& C4 O3 r& m3 |8 ?  R9 k
        idx 0
" F4 q5 P: I( f; K4 S  )# q8 [1 U! u& t8 b7 p

2 k+ Z/ x- Y( H; s, _, i  k3 G  (while (setq ee (ssname ss idx))6 T/ k1 M( q5 n, ]0 A. z
    (if (gtUpT ee)# i) U0 q  U& X) n/ ?6 L
      (ssadd ee ssa)/ N/ ?+ A2 D% Z+ Q& x+ J0 W
      ;; (ssadd ee ssb)9 q, v4 Y: m' U+ L6 P
    )# {- u1 ]# D! A7 i. o
    (setq idx (1+ idx))- _0 t: z+ b* u- L7 b
  )4 C$ i  x7 I4 V
  (command "Erase" ssa "")/ F$ }# C" w2 U
  (princ)
! a) q; `" P5 L: p! Z)
 楼主| 发表于 2010-11-9 17:42 | 显示全部楼层
原帖由 Camello 于 2010-11-9 15:05 发表 ! a, B6 z+ U. N! V; n- S8 Q
(defun GtUpT (x)
9 l& \0 F1 v# h$ P7 O% T  p   (setq pt (cdr (assoc 10 (entget x)))% B) E6 m+ h4 M# x0 \3 A
         pt (mapcar '+ pt '(0 200))& A7 T7 H/ |7 C) U. Q
   )3 {7 D4 [: Q) @  {7 k
   (ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq)   ; '(600 0)% A1 h7 b4 g1 w; h$ s& W
)* t8 C! \+ f" H* z; r
( w* V( [, u; J* m  e
;;; for Test only2 w" G. F6 J" O
...

  I% f3 @$ [6 E: q5 F+ t时的发生的发生倒萨发放
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 05:55

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表