如何分解出块中的文字,其它都不会

鱼与熊掌

实体出块位置不变的难点是    实体位置不变.
可以用矩阵变换来实现.~.~

鱼与熊掌

块内物体移出,嵌套块和块内图元都行.~

品茗新秀

哪位高手能不能出手一下,我一直在搞,可就是搞不起来,太难了

xyp1964

品茗新秀 发表于 2014-12-30 00:17
不是把文字炸没了,如果炸没了,直接用CAD炸开即可,而是要块中文字图元分离出来,与块不关联

;; 属性实体出块

品茗新秀

xyp1964 发表于 2014-12-30 23:34
;; 属性实体出块

对,就是这个意思,我编了几天,都没编出来,发出来让大家学习,看了论坛上,这样的例子,我找遍了,基本没有.


发出来大家学习一下,这样大家一起来,要不要再改进了,

品茗新秀

顶出高手,学习一下

ivde

ncopy.         

pannelchen

好像是版主一个关于动态基准中的一部分码，你看下，里面有关于块中文字的修改的:下面是关于文字的代码，全部的请搜下.

(entmake (list '(0 . "BLOCK")(cons 2 "*U")'(70 . 1)'(10 0.0 0.0 0.0)))  ;*u块名将选择集作为属性块 ,名，对齐点，插入点
         (entmake (list '(0 . "TEXT")'(10 0.0 0.0 0.0)'(11 0.0 0.0 0.0)'(8 . "DIM")'(40 . 3.5)'(62 . 3)'(72 . 4)'(1 . "")))   
         (entmake (list '(0 . "CIRCLE")'(8 . "DIM")'(10 0.0 0.0 0.0)'(40 . 3.5)))   
         (setq blk (entmake '((0 . "ENDBLK"))))  ;块命令结束  ,将圆与文字设成一个块.
         (entmake (list '(0 . "INSERT")'(10 0.0 0.0 0.0)(cons 41 scl)(cons 42 scl)(cons 2 blk)))  ;10插入点,41x比例系涒,42Y,2图块名称
         (setq ename0 (entlast))   
         (setq edata0 (entget ename0))     
         (setq ename (entnext (tblobjname "BLOCK" blk)))    ;;tblobjname取得符号表中的符，并赋予一个对象名称.;;entnext请求用户选取一个对象，返回一个对像名称与选取的点坐标列表.  
         (setq edata (entget ename))       ;取得字符值


(defun do_datum (/ ref string)  
   (setq ref (cadr code))
   (if (or (<= 65 ref 90) (<= 97 ref 122))   
    (progn      
      (setq string (strcase (chr ref)))   
      (setq edata (subst (cons 1 string)(assoc 1 edata) edata))
      (entmod edata)      
      (entupd ename)  
     )  ;progn
  ) ;if

品茗新秀

pannelchen 发表于 2015-1-1 12:27
好像是版主一个关于动态基准中的一部分码，你看下，里面有关于块中文字的修改的:下面是关于文字的代码，全部 ...

选不到块,不过也是谢谢楼主的帮助

品茗新秀

pannelchen 发表于 2015-1-1 12:27
好像是版主一个关于动态基准中的一部分码，你看下，里面有关于块中文字的修改的:下面是关于文字的代码，全部 ...

是分离块中的文字部分