[求助]文字变反了,怎么办?
在使用AUTOCAD绘制建筑图平面图时,画好一个单元之后,便可采用MIRROR命令将其它的单元画好,但是有一个问题:原来用TEXT或MTEXT命令绘制出来的文字镜像之后全都变反了,怎么办?设置MirrText系统变量为0
[此贴子已经被陈伯雄于2002-5-8 20:18:21编辑过]多谢了,我已经解决问题了。
不过使用MIRRTEXT命令好象只能控制该命令之后的操作吧,假设没有使用MIRRTEXT命令而直接使用了MIRROR命令,要怎么把已经变反了的文字调整过来呢? <p>2楼的问题:再接着使用mirror一下就行</p><p>3楼的问题:在mirror之前,先输入mirrtext命令,将变量值由1改为0,就可以了。</p> 如果是以前就反了,那你在反一遍不就可以了吗? <p>正好以前编过这个代码,试试。</p><p>;;修改镜像倒置的文字<br/>(defun c:xgjxwz (/ ent e1 e2)<br/> (setq ent (ssget "x"<br/> '(<br/> (0 . "text")<br/> (-4 . "<or")<br/> (71 . 2)<br/> (71 . 4)<br/> (-4 . "or>")<br/> )<br/> )<br/> )<br/> (if (= ent nil)<br/> (progn (alert "图形中没有发现镜向后倒置的文字, 程序退出!")<br/> (exit)<br/> )<br/> )<br/> (setq n (+ (sslength ent) 1))<br/> (while (ssname ent 0)<br/> (setq e1 (ssname ent 0))<br/> (setq e2 (entget e1))<br/> (setq e2 (subst '(71 . 0) (assoc 71 e2) e2))<br/> (entmod e2)<br/> (entupd e1)<br/> (setq ent (ssdel e1 ent))<br/> )<br/> (alert (strcat "共处理" (itoa n) "处文字"))<br/> (princ)<br/>)</p>
页:
[1]