请教，关于CAD局部放大

这个很简单啊，先用复制，拷贝出来，然后再使用比例缩放就可以了

主单位数值改为0.1<----哪个主单位啊？我改的是比例因子，放大比例后再标注达到要求目的了，但是原来没有放大的图再标注的话，标注的比例也改了，这样是不是就要用两种标注样式了？晕麻烦的很那！
很多功能都不如CAXA好。

按１０楼的步骤做吧，就是主单位的比例因子，原来的标好后，再用替代改比例因子就好了

这是我编得局部放大的代码，如下：
先画一个圆作为局部放大的边界，一步一步按着作，注意*curr-layer*和*curr-osmode*为全局变量，可以自行修改。
在边界圆环中最好不要设置有块和填充对象。

; local zoom
(defun c:loczoom()
        (command "_undo" "be")
        (setq circle-ent (car(entsel)))
        (setq circle-ent-list (entget circle-ent))
        (if (= (cdr (assoc 0 circle-ent-list)) "CIRCLE")
                (progn
                        (setq p0 (cdr(assoc 10 circle-ent-list)))
                        (setq circle-radius (cdr(assoc 40 circle-ent-list)))
                        (setq p1 (getpoint p0 "\nInput the position text of the local zoom : "))
                        (setq loc-zoom-text (getstring "\nInput the local zoom text , [ENTER] -> I (\u+2160) : "))
                        (if (= loc-zoom-text "")
                                (setq loc-zoom-text "\u+2160"))
                        (setq ang-p0-p1 (angle p0 p1))
                        (if (or (and (>= ang-p0-p1 0) (<= ang-p0-p1 (* 0.5 pi))) (and (>= ang-p0-p1 (* 1.5 pi)) (<= ang-p0-p1 (* 2.0 pi))))
                                (progn
                                        (setq p2 (polar p1 0 (* 8 (getvar "dimscale"))))
                                        (setq p3 (polar p1 (* 0.2 pi) (* 5 (getvar "dimscale"))))
                                        )
                                (progn
                                        (setq p2 (polar p1 pi (* 8 (getvar "dimscale"))))
                                        (setq p3 (polar p1 (* 0.8 pi) (* 5 (getvar "dimscale"))))
                                        )
                                )
                        (setvar "osmode" 0)
                        (command "_layer" "m" "THIN" "c" 50 "THIN" "l" "continuous" "THIN" "")
                        (setq circle-ent-list (subst (cons 8 "THIN") (assoc 8 circle-ent-list) circle-ent-list))
                        (entmod circle-ent-list)
                        (setq p4 (polar p0 ang-p0-p1 circle-radius))
                        (command "_pline" p4 "w" 0 0 p1 p2 "")
                        (command "_text" "j" "mc" p3 (* 3.5 (getvar "dimscale")) 0 loc-zoom-text "")
                        (setq p5 (polar p0 (* -0.25 pi) (* (sqrt 2.0) circle-radius)))
                        (setq p6 (polar p0 (* 0.75 pi) (* (sqrt 2.0) circle-radius)))
                        (setq p7 (getpoint p0 "\nInput the position of the local zoom : "))
                        (command "_copy" circle-ent "" p0 p7 "")
                        (setq trim-ent (entlast))
                        (setq p8 (polar p0 0 (* 0.999 circle-radius)))
                        (setq p9 (polar p0 (* 0.125 pi) (* 0.999 circle-radius)))
                        (setq p10 (polar p0 (* 0.25 pi) (* 0.999 circle-radius)))
                        (setq p11 (polar p0 (* 0.375 pi) (* 0.999 circle-radius)))
                        (setq p12 (polar p0 (* 0.5 pi) (* 0.999 circle-radius)))
                        (setq p13 (polar p0 (* 0.625 pi) (* 0.999 circle-radius)))
                        (setq p14 (polar p0 (* 0.75 pi) (* 0.999 circle-radius)))
                        (setq p15 (polar p0 (* 0.875 pi) (* 0.999 circle-radius)))
                        (setq p16 (polar p0 pi (* 0.999 circle-radius)))
                        (setq p17 (polar p0 (* 1.125 pi) (* 0.999 circle-radius)))
                        (setq p18 (polar p0 (* 1.25 pi) (* 0.999 circle-radius)))
                        (setq p19 (polar p0 (* 1.375 pi) (* 0.999 circle-radius)))
                        (setq p20 (polar p0 (* 1.5 pi) (* 0.999 circle-radius)))
                        (setq p21 (polar p0 (* 1.625 pi) (* 0.999 circle-radius)))
                        (setq p22 (polar p0 (* 1.75 pi) (* 0.999 circle-radius)))
                        (setq p23 (polar p0 (* 1.875 pi) (* 0.999 circle-radius)))
                        (command "_copy" "cp" p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 "" "" p0 p7 "")
                        (setq p24 (polar p7 0 (* 1.02 circle-radius)))
                        (setq p25 (polar p7 (* 0.125 pi) (* 1.02 circle-radius)))
                        (setq p26 (polar p7 (* 0.25 pi) (* 1.02 circle-radius)))
                        (setq p27 (polar p7 (* 0.375 pi) (* 1.02 circle-radius)))
                        (setq p28 (polar p7 (* 0.5 pi) (* 1.02 circle-radius)))
                        (setq p29 (polar p7 (* 0.625 pi) (* 1.02 circle-radius)))
                        (setq p30 (polar p7 (* 0.75 pi) (* 1.02 circle-radius)))
                        (setq p31 (polar p7 (* 0.875 pi) (* 1.02 circle-radius)))
                        (setq p32 (polar p7 pi (* 1.02 circle-radius)))
                        (setq p33 (polar p7 (* 1.125 pi) (* 1.02 circle-radius)))
                        (setq p34 (polar p7 (* 1.25 pi) (* 1.02 circle-radius)))
                        (setq p35 (polar p7 (* 1.375 pi) (* 1.02 circle-radius)))
                        (setq p36 (polar p7 (* 1.5 pi) (* 1.02 circle-radius)))
                        (setq p37 (polar p7 (* 1.625 pi) (* 1.02 circle-radius)))
                        (setq p38 (polar p7 (* 1.75 pi) (* 1.02 circle-radius)))
                        (setq p39 (polar p7 (* 1.875 pi) (* 1.02 circle-radius)))
                        (command "_trim" trim-ent "" "f" p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38  p39 p24 "" "")
                        (command "_trim" trim-ent "" "f" p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38  p39 p24 "" "")
                        (setq zoom-ratio (getreal "\nInput the zoom ratio , [ENTER] -> 2 : "))
                        (if (= zoom-ratio nil)
                                (setq zoom-ratio 2.0))
                        (setq p40 (polar p7 (* -0.25 pi) (* (sqrt 2.1) circle-radius)))
                        (setq p41 (polar p7 (* 0.75 pi) (* (sqrt 2.1) circle-radius)))
                        (command "_scale" "c" p40 p41 "" p7 zoom-ratio)
                        (setq p42 (polar p7 (* 0.5 pi) (* 1.2 circle-radius zoom-ratio)))
                        (setq p43 (polar p42 (* 0.5 pi) (* 3.5 (getvar "dimscale"))))
                        (setq p44 (polar p42 pi (* 5 (getvar "dimscale"))))
                        (setq p45 (polar p42 0 (* 5 (getvar "dimscale"))))
                        (setq p46 (polar p42 (* 1.5 pi) (* 3.5 (getvar "dimscale"))))
                        (command "_text" "j" "mc" p43 (* 3.5 (getvar "dimscale")) 0 loc-zoom-text "")
                        (command "_text" "j" "mc" p46 (* 3.5 (getvar "dimscale")) 0 (strcat "1:" (rtos (/ (getvar "dimscale") zoom-ratio) 2)) "")
                        (command "_line" p44 p45 "")
                        (setq zoom-dimlfac (getstring "\nZoom system variant : dimlfac (Yes/No) , [ENTER] -> Yes : "))
                        (if (= zoom-dimlfac "")
                                (setq zoom-dimlfac "y"))
                        (if (or (= zoom-dimlfac "y") (= zoom-dimlfac "Y"))
                                (progn
                                        (setvar "dimlfac" (/ 1.0 zoom-ratio))
                                        (alert (strcat "System variant ( dimlfac ) is setted to : " (rtos (getvar "dimlfac") 2) " !"))
                                        )
                                )
                        )
                (alert "You should select a circle object as trim edge .")
                )

        (setvar "osmode" *curr-osmode*)
        (setvar "clayer" *curr-layer*)
        (command "_undo" "e")
        (princ)
        )

”"你只要改一个就行了！其它用刷子就行了 "“
我说的意思是在属性对话框里线性比例改一下就好了（放大多少倍就缩多少），之后用刷子就行了

原帖由 qomolangma 于 2006-6-14 17:10 发表
这是我编得局部放大的代码，如下：
先画一个圆作为局部放大的边界，一步一步按着作，注意*curr-layer*和*curr-osmode*为全局变量，可以自行修改。
在边界圆环中最好不要设置有块和填充对象。

; local zoom
...

别的朋友说的都比较复杂，感觉这个朋友有点象是CAXA的局部放大差不多了，CAXA的局部放大很好用的，可是这位朋友的招数书在深奥，

一步一步按着做是按照什么做？

还有那一堆代码是输入到那个里面，是命令还是什么文本文件？

不知道这位高手有没有时间指教的详细点，谢谢

标注做一下比例就可以了

狂晕,很简单啊标尺寸时输入M改过来啊!

原帖由 chaoren8250 于 2006-6-15 23:17 发表
狂晕,很简单啊标尺寸时输入M改过来啊!

狂狂晕，你看明白我问的问题的时候你就知道什么叫简单了。

很多朋友回答的都是单个改尺寸，（用刷子刷是单个改，输入M更是）

我想知道的简单点说是一个模型里面出现两种比例《--------看仔细这个

似乎惟有编程序的朋友，有点入正题，但是太深奥，看不懂。

期待中

原帖由 77678 于 2006-6-16 07:40 发表


狂狂晕，你看明白我问的问题的时候你就知道什么叫简单了。

很多朋友回答的都是单个改尺寸，（用刷子刷是单个改，输入M更是）

我想知道的简单点说是一个模型里面出现两种比例《--------看仔细这个

似 ...

他们说的是尺寸样式啊。。。。新建尺寸样式就好了