实体出块位置不变的难点是 实体位置不变.
可以用矩阵变换来实现.~.~
块内物体移出,嵌套块和块内图元都行.~
哪位高手能不能出手一下,我一直在搞,可就是搞不起来,太难了
品茗新秀 发表于 2014-12-30 00:17 static/image/common/back.gif
不是把文字炸没了,如果炸没了,直接用CAD炸开即可,而是要块中文字图元分离出来,与块不关联
;; 属性实体出块
本帖最后由 品茗新秀 于 2014-12-31 14:02 编辑
xyp1964 发表于 2014-12-30 23:34 static/image/common/back.gif
;; 属性实体出块
对,就是这个意思,我编了几天,都没编出来,发出来让大家学习,看了论坛上,这样的例子,我找遍了,基本没有.
发出来大家学习一下,这样大家一起来,要不要再改进了,
顶出高手,学习一下
ncopy.
本帖最后由 pannelchen 于 2015-1-1 12:29 编辑
好像是版主一个关于动态基准中的一部分码，你看下，里面有关于块中文字的修改的:下面是关于文字的代码，全部的请搜下.
(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 static/image/common/back.gif
好像是版主一个关于动态基准中的一部分码，你看下，里面有关于块中文字的修改的:下面是关于文字的代码，全部 ...
选不到块,不过也是谢谢楼主的帮助
pannelchen 发表于 2015-1-1 12:27 static/image/common/back.gif
好像是版主一个关于动态基准中的一部分码，你看下，里面有关于块中文字的修改的:下面是关于文字的代码，全部 ...
是分离块中的文字部分