<A href="http://www.mjtd.com/bbs/query.asp" target="_blank" >http://www.mjtd.com/bbs/query.asp</A> 谢谢你们,真热心啊,呵呵 我认为还是在布局里出图好一点,只要设定视口比例就可以,在模型里还是1:1,便于以后修改 yesong555发表于2004-6-16 16:43:00static/image/common/back.gif我认为还是在布局里出图好一点,只要设定视口比例就可以,在模型里还是1:1,便于以后修改
<BR>怎样在布局里出图?可不可以讲的再详细一点,谢谢 先新建一个标注式样,将其中测量比例设置成0.5,然后放大图形,将原来的标注该为新式样
加载这个程序就OK
(defun c:ddd (/ ss i ent e e1 intpnt blkname blk obj txt)<BR> (vl-load-com)<BR> (setq ss (ssget '((0 . "DIMENSION")))<BR> i 0<BR> )<BR> (repeat (sslength ss)<BR> (setq ent (ssname ss i)<BR> e (entget ent)<BR> e1 (cdr (assoc 1 e))<BR> intpnt (cdr (assoc 11 e))<BR> blkname (cdr (assoc 2 e))<BR> blk (vla-item (vla-get-blocks<BR> (vla-get-Activedocument (vlax-get-acad-object))<BR> )<BR> blkname<BR> )<BR> )<BR> (vlax-for obj blk<BR> (if (= (vla-get-objectname obj) "AcDbMText")<BR> (progn<BR> (setq txt (vla-get-textstring obj)<BR> )<BR> (if (or (= "" e1) (wcmatch e1 "*<>*"))<BR> (progn<BR> (setq e (subst (cons 1 txt) (assoc 1 e) e))<BR> (entmod e)<BR> (entupd ent)<BR> )<BR> )<BR> )<BR> )<BR> )(setq i (1+ i))<BR> )<BR> (princ)<BR>)<BR> 修改尺寸比例会好一点。 ldb1420发表于2004-6-24 8:43:00static/image/common/back.gif回复:(ldb1420)加载这个程序就OK (defun c:ddd (/ ss i ent e e1 intpnt blkname blk obj txt) (vl-load-com) (setq ss (ssget '((0 . \"DIMENSION\"))) i 0 ) (repeat (...
<BR>谢谢你了,不过不用这么麻烦了,我用炸开的 再简单的办法是用不同的标注风格,主要是不同的全局比例值,如果两张图已经是用了同一个标注名称,要想拷贝过来,那么就必须在拷贝过来前改一下其中的一张图中的标注风格中的名称。