xxd0109 发表于 2005-12-14 09:29:00

如何改变打开文件对正方式？

<P>以前有不少文件是以默认的左对齐方式，有没有办法执行某个命令，让这个文件的所有对象对正方式改为正中对齐，（线段除外），谢谢</P>

xxd0109 发表于 2005-12-14 09:38:00

就是以前很多文件的对正方式都是以默认的对正方式，即左对齐方式，（以默认的左对正方式画的），<BR>我想可否做个命令，就是把文件用AutoCAD打开后可否执行某个命令（自己开发的），让该文件中的所有对象的对正方式以正中方式表现出来。当然，线段、圆圈除外。<BR><BR>谢谢各位！

蓝云 发表于 2005-12-14 11:02:00

(defun c:test(/ DATE EN N P1 SS)<BR>&nbsp; (setvar "cmdecho" 0)<BR>&nbsp; (if (setq ss (ssget "X" '((0 . "TEXT"))))<BR>&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength ss)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq en (ssname ss n) date (entget en) n (1+ n))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= (cdr (assoc 72 date)) 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p1 (cdr (assoc 10 date))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;date (subst (cons 72 4) (assoc 72 date) date)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;date (subst (cons 11 p1) (assoc 11 date) date)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(entmod date)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp; )<BR>&nbsp; (princ)<BR>&nbsp;)

xxd0109 发表于 2005-12-14 14:44:00

<P>呵呵，谢谢，感觉还不错</P>

xxd0109 发表于 2005-12-14 15:58:00

<P>对于以上test函数，执行结果对正方式为中间对齐</P>
<P>现在我想把执行结果修正为“正中对齐”，请问以上程序该如何修改？</P>

ak50 发表于 2005-12-14 16:04:00

&nbsp;date (subst (cons 72 4) (assoc 72 date) date)<BR>这句换成&nbsp;date (subst (cons 72 1) (assoc 72 date) date)<BR>应该就行了你试试吧

xxd0109 发表于 2005-12-14 16:32:00

<P>那么我想把对正方式修改为“中上”即TC的效果。</P>
<P>date (subst (cons 72 1) (assoc 72 date) date)</P>
<P>该如何修改，谢谢<BR></P>
页: [1]
查看完整版本: 如何改变打开文件对正方式？