块编辑-块内图层操作,块编辑文字,块移动文字等

twsyzx

处女帖,请大家多多指教..

(defun tuceng()
(setq dxf(entget(car(nentsel "\n选择块内对象"))))
  (setq lay(cdr (assoc 8 dxf))))
(defun C:bf()(tuceng)
(command "-layer" "off" lay "")
(princ "\n已关闭该图层")(princ)
  )
(defun C:bwd()(tuceng)
(command "-layer" "F" lay "")
(princ "\n已冻结该图层")(princ)
  )
(defun C:bsd()(tuceng)
(command "-layer" "LO" lay "")
(princ "\n已锁定该图层")(princ)
  )
(defun C:bds()(tuceng)
(command "-layer" "u" lay "")
(princ "\n已解锁该图层")(princ)
  )

(defun C:bed()
  (setq fir(nentsel "\n选择块内对象"))
   (setq en(car fir))
  (setq enb(CAR(reverse(car(reverse fir)))))
   (setq dxf(entget en))
  (setq txt(cdr (assoc 1 dxf)))
   (setq newt(getstring "\n输入修改内容"))
   (tihuan en 1 newt  nil)
  (COMMAND "MOVE" ENB "" '(0 0) '(0 0))
(princ)
  )
(defun C:bM();移动块内文字;可扩展为移动块内直线,多段线,矩形等等-tws..
  (setq fir(nentsel "\n选择块内对象"))
  ;(setq pdt(getvar 'lastpoint))
  
   (setq en(car fir))
  (setq kn(car(reverse fir)))
  (setq nk(reverse(car(reverse fir))))
  (setq dxf0(entget (nth 0 nk)))
   (setq P0(cdr (assoc 10 dxf0)))
  (setq xx(car p0) yy(cadr p0))
  (setq n 1)
  (repeat (1-(length nk))
(setq dxf1(entget (nth  n nk)))
(setq P1(cdr (assoc 10 dxf1)))
    (setq xx(+ xx(car p1)) yy(+ yy(cadr p1)))
    (setq n(1+ n)))
  
  (setq enb(CAR(reverse kn)))
  (setq enc(caar(reverse fir)))
   (setq dxf(entget enc))
  (setq pt (list xx yy))
   ;(setq PT(cdr (assoc 10 dxf)))
   ;(setq PT1(getPOINT  "\n输入基点"))
  (setq PT2(getPOINT  "\n输入目标点"))
  (setq newpt(list(-(car pt2)(car pt))(-(cadr pt2)(cadr pt))))
   (tihuan en 10 newpt  nil)
  (COMMAND "MOVE" ENB "" '(0 0) '(0 0))
(princ)
  )


(defun TIHUAN (en code new mode / e)
    (if        (and (= (type en) 'ENAME)
             (= (type code) 'INT)
             new
        )
      (progn
        (setq e (entget en))
        (if (assoc code e)
          (entmod (subst (cons code new) (assoc code e) e))
          (if mode
            (entmod (reverse (cons (cons code new) (reverse e))))
            nil
          )
        )
      )
    )
  )
       

my258

很强大，块内移动好像有点小问题

查无此人咋办

不错，学习一下

aihuyujian

不用重新生成是吧，那得支持一个

lyqiezi

，看看怎么编辑块里面的东西，省得进入块编辑模式去弄

davide888

块内修改，支持   可以修改标注比例不？

twsyzx

davide888 发表于 2014-6-18 10:06
块内修改，支持   可以修改标注比例不？

这个建议不错,以前经常出现块放大后标注比例不符的情况

enn09

看看怎么编辑块里面的东西，省得进入块编辑模式去弄

aihuyujian

twsyzx 发表于 2014-6-18 20:07
这个建议不错,以前经常出现块放大后标注比例不符的情况

能不能加强一下  全部处理 比如说全部子元改图层  比较期待

davide888

神级出手相助

邹土木

这个和在位编辑有何异同

davide888

继续顶起