字转为任意块

357785513 · 发表于 2009-10-9 23:34:00

各位大虾,请问下面的T/B能批量转为块嘛,块名任意吧,块的角度就随字的角度,帮看看有些什么办法,

明经网友 *发表于 2009-10-10 12:49:00* · 发表于 2009-10-10 12:49:00

就是把字转成块就成了.看看这个思路行不行,先把文字加上方框,再把方框转成块,看行不行

357785513 · 发表于 2009-10-11 01:11:00

错了.应该是各位大侠,请问下面的T/B能批量转为块嘛,块名任意吧,块的角度就随字的角度,帮看看有些什么办法,

liu_kunlun · 发表于 2009-10-11 08:45:00

357785513：给你编一个。

明经网友 *发表于 2009-10-11 14:55:00* · 发表于 2009-10-11 14:55:00

但弄出来的是无名块,

我在网上搜了一个不能用

;;(txt_to_blk "LUCAS")
(defun TXT_TO_BLK (STR / DATA N SS)
   (setq STR (strcase STR))
   (if (setq SS (ssget '((0 . "text"))))
     (progn
       (setq N 0)
       (repeat (sslength SS)
(if
    (= STR
       (strcase (cdr (assoc 1 (setq DATA (entget (ssname SS N))))))
    )
     (entmake (list '(0 . "INSERT")
      '(100 . "AcDbBlockReference")
      (assoc 8 DATA)
      (cons 2 STR)
      (assoc 10 DATA)
       )
     )
)
(setq N (1+ N))
       )
       (command "_.erase" SS "")
     )
   )
   (princ)
)

357785513 · 发表于 2009-10-11 14:58:00

谢谢,感谢给予帮助,弄出来的是无名块是吧,不管它无名块就无名块吧,我在网上搜了一个但不能用

;;(txt_to_blk "LUCAS")
(defun TXT_TO_BLK (STR / DATA N SS)
   (setq STR (strcase STR))
   (if (setq SS (ssget '((0 . "text"))))
     (progn
       (setq N 0)
       (repeat (sslength SS)
(if
    (= STR
       (strcase (cdr (assoc 1 (setq DATA (entget (ssname SS N))))))
    )
     (entmake (list '(0 . "INSERT")
      '(100 . "AcDbBlockReference")
      (assoc 8 DATA)
      (cons 2 STR)
      (assoc 10 DATA)
       )
     )
)
(setq N (1+ N))
       )
       (command "_.erase" SS "")
     )
   )
   (princ)
)

357785513 · 发表于 2009-10-11 14:59:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=47628

357785513 · 发表于 2009-10-11 19:57:00

感谢三楼楼主,

ghgh0130 · 发表于 2009-12-2 10:13:00

出来的是无名块

liu_kunlun · 发表于 2009-12-2 10:18:00

你需要怎样取块名？

(defun c:tt1 ( / ec r n ss e bname)
     (if (and (setq ec (car (entsel "\n点选样板文字：")))
              (= "TEXT" (cdr (assoc 0 (setq ec (entget ec)))))
       (print "\n选择要转换成块的文字:")
              (setq ss (ssget (list '(0 . "TEXT") (assoc 1 ec))))
              (setq bname (getstring "输入块名:"))
         )
         (progn
     (entmake (list '(0 . "BLOCK") (cons 2 bname) '(70 . 0) '(10 0 0 0)))
        (setq ec (subst '(10 0. 0. 0.) (assoc 10 ec) ec))
        (entmake (subst '(50 . 0.) (assoc 50 ec) ec))
     (setq bname (entmake '((0 . "ENDBLK"))))

            (setq n -1)
            (repeat (sslength ss)
        (setq e (entget (ssname ss (setq n (+ n 1)))))
        (entmake (list '(0 . "INSERT") (cons 2 bname) (assoc 10 e) (assoc 50 e)
     (cons 41 1) (cons 42 1) (cons 43 1))
    )   )
    (command "erase" ss "")
        )
     )
     (princ)
)

账号		自动登录	找回密码
密码			注册

[基础] 字转为任意块

本帖子中包含更多资源

本帖子中包含更多资源