ozb2011 发表于 2012-5-29 20:36

回复 15# yiminga
应该类似lisp的一个小程序

ozb2011 发表于 2012-5-29 20:52


;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.

;;

(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)

   (vl-load-com)

   (setqss (ssget '((0 . "DIMENSION")))

i   0

   )

   (repeat (sslength ss)

       (setq ent   (ssname ss i)

   e   (entget ent)

   e1   (cdr (assoc 1 e))

   intpnt   (cdr (assoc 11 e))

   blkname (cdr (assoc 2 e))

   blk   (vla-item (vla-get-blocks

               (vla-get-Activedocument (vlax-get-acad-object))

             )

             blkname

       )

       )

       (vlax-for obj blk

         (if (= (vla-get-objectname obj) "AcDbMText")

(progn

   (setqtxt (vla-get-textstring obj)

   )

   (if (or (= "" e1) (wcmatch e1 "*<>*"))

         (progn

             (setq e (subst (cons 1 txt) (assoc 1 e) e))

             (entmod e)

             (entupd ent)

         )

   )

)

         )

       )       (setq i (1+ i))

   )

   (princ)

)在网上找了个lisp代码，用上面代码做一个lisp文件，加载后能实现锁定标注文字的功能

yiminga 发表于 2012-5-29 22:35

回复 17# ozb2011


    大哥，西。。我是新手，不会做这程序耶！！做难不难的啊？难就不用教了，不难的话。。。。西。。。。

346244456 发表于 2012-5-30 09:22

告诉你个最笨的方法，尽管不规范，但可以解决你当前问题。
把你要打印的图做成块（B），再进行缩放标注就不会变了，你就可以按你想要的比例缩放打图了......:(

ozb2011 发表于 2012-5-30 12:11

复制代码到记事本中，把记事本的后缀名.txt改成.lsp，在cad中输入AP命令，找到你建的lsp文件并加载，加载后输入dmvl命令，然后选择你要锁定的标注

yiminga 发表于 2012-5-30 21:50

回复 20# ozb2011


    好东西啊！！！！真的可以啊！！谢谢了。。西。。。最后问个问题，西。。“加载后输入dmvl命令”不用这快捷键的话，去哪选这命令啊？这不太常用。。我怕忘了。。在CAD里点的话印象深刻。。西。。

ozb2011 发表于 2012-5-31 07:58

回复 21# yiminga

代码中“(defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)”，可以自己设置任何命令

ozb2011 发表于 2012-5-31 08:00

回复 21# yiminga

没有什么快捷键，忘了的话可以打开文件看一下，或文件名中就可以带上命令，加载时就能看到了

zhoug 发表于 2012-5-31 10:46

回复 7# yiminga


    标注样式的比例也要缩放的。

xgr54 发表于 2012-6-7 12:55

只要选窗口打印就行了

GAUDI 发表于 2012-6-8 16:25

打印比例：按图纸空间缩放
页: 1 [2]
查看完整版本: 缩放问题，帮下！！有点急啊！！