求高手给编个程序

caomo922 · 发表于 2010-11-9 09:15

那位大侠能帮个忙给我编个小程序将下图中的双行文字中的下行文字删除（图中的文字都为单行文字
）要是三行的也能任意编辑其中一行最好感觉这个批量编辑的小程序做好了能解决很多问题

Camello · 发表于 2010-11-9 10:56

请上传样本文件(dwg) 以利调试

caomo922 · 发表于 2010-11-9 12:31

感谢啊

Camello · 发表于 2010-11-9 15:05

(defun GtUpT (x)
(setq pt (cdr (assoc 10 (entget x)))
      pt (mapcar '+ pt '(0 200))
)
(ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0)
)

;;; for Test only

(defun C:Test ()
  ;; 设定文字滤取条件
  (setq TxtEq
      '(
         (0 . "TEXT")
         (8 . "451")
         (62 . 13)
         (50 . 0.0)
         (41 . 0.8)
         (51 . 0.0)
         (7 . "Standard")
         (71 . 0)
         (72 . 0)
         (73 . 0)
      )
  )

  (command "Zoom" "e")

  (setq ss  (ssget "x" TxtEq)
      ssa (ssadd)
      ;; ssb (ssadd)
      idx 0
  )

  (while (setq ee (ssname ss idx))
(if (gtUpT ee)
   (ssadd ee ssa)
   ;; (ssadd ee ssb)
)
(setq idx (1+ idx))
  )
  (command "Erase" ssa "")
  (princ)
)

caomo922 · 发表于 2010-11-9 17:42

原帖由 Camello 于 2010-11-9 15:05 发表 . }- ~; s$ |: Q; L. P3 H
(defun GtUpT (x)( H+ m- Z$ P' B. t/ R# z
(setq pt (cdr (assoc 10 (entget x)))8 S4 b5 G* _4 U5 \4 s
pt (mapcar '+ pt '(0 200))
: ?+ V! f; Y& }- ^- w- G4 w )
0 Y( F2 ]3 }$ I" `/ |; W (ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0)5 Q4 P4 y$ {3 m) e
)
9 V" u5 t& A' _2 T* v: }
. u+ h8 J2 {$ @6 g; f3 `4 b! i;;; for Test only) \3 i0 t9 E2 u
...

时的发生的发生倒萨发放

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

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

本帖子中包含更多资源

往楼上的能解决此问题

本帖子中包含更多资源