yang686526

[求助]局部放大的快捷方法？
www.dimcax.com

关于字体大小的问题是可以在自已在模板上更改的。
我已给出了原代码，关于大于1还是小于1等等问题都可根据自已画图习惯进行更改。如有不懂及还有其它要求都还可回mail，
本人均可提供原代码以供参考，共同学习。
d
(defun myerr_part_z (msg)
(command)
(command "_.undo" "_e")
(princ ".....undoing ")
(command "u")
(setvar "clayer" clay)
(setvar "orthomode" mode)
(setvar "osmode" osmo)
(setvar "dimtofl" dimt)
(setq *error* olderr)
(princ "\n >>>tyco/amp 叶旭坤　制作，　欢迎使用....")
(princ)
)
;;; defun *error*
;;; ===========================================
(defun c:fd (/ cp last1 data strd strd1 strd2 hd pd lastp data_a data_b
data_c data_d sc sca_tt
)
(setvar "cmdecho" 0)
(setvar "menuecho" 0)
(prompt "\n>>>请记住此命令名为：fd")
(setq olderr *error*
*error* myerr_part_z
)
(command "_.undo" "_group")
(setq clay (getvar "clayer"))
(setq osmo (getvar "osmode"))
(setq mode (getvar "orthomode"))
(setq dimt (getvar "dimtofl"))
(setvar "osmode" 0)
(setvar "orthomode" 0)
(if (null (tblsearch "layer" "dim"))
(command "layer" "m" "dim" "c" "82" "" "lw" "0.13" "" "")
)
(setvar "clayer" "dim")
(initget 1)
(setq cp (getpoint "\n圆心标示点: "))
(prompt "\n半径: ")
(command "_.circle" cp pause)
(setq last1 (entlast))
(setq lastt (cons last1 (list (getvar "lastpoint"))))
(setq cir_r (cdr (assoc 40 (entget last1))))
(setq data_g (mapcar
'angtof
'("0" "15"
"30" "45"
"60" "75"
"90" "105"
"120" "135"
"150" "165"
"180" "195"
"210" "225"
"240" "255"
"270" "285"
"300" "315"
"330" "345"
"0"
)
) ; mapcar
) ; setq
(setq data_a (mapcar
'(lambda (x)
(polar cp x cir_r)
)
data_g
)
)
(setq data (ssget "cp" data_a '((-4 . "<not") (0 . "text")
(-4 . "not>")
(-4 . "<not")
(0 . "mtext")
(-4 . "not>")
(-4 . "<not")
(0 . "dimension")
(-4 . "not>")
(-4 . "<not")
(0 . "hatch")
(-4 . "not>")
)
) ; ssget
)
(setq data (ssdel last1 data)) ; *********
(command "_.dimtoh" "on")
(command "_.dimtofl" "off")
(princ "\n================")
(prompt "\n位移第二点: ") ; (command "_.copy" last1 "" cp
; (getdist cp))
(command "_.copy" last1 "" cp pause)
(setq lastp (getvar "lastpoint")
last1 (entlast)
)
(command "_.copy" data "" cp lastp)
(setq cir_r (/ cir_r (cos (angtof "7.5"))))
(setq cp lastp)
(setq data_b (mapcar
'(lambda (x)
(polar cp x (+ cir_r 1))
)
data_g
)
)
(setq data_c data_b)
(setq data_d data_b) ; (command "_.zoom" "w" (polar cp
; (* 1.25 pi) cir_r)
; (polar cp
; (* 0.25 pi) cir_r)
; )
(command "_.trim" last1 "" "f")
(while (car data_b)
(setq in_p (car data_b))
(command in_p)
(setq data_b (cdr data_b))
) ; while
(command "" "")
(command "_.trim" last1 "" "f")
(while (car data_c)
(setq in_p (car data_c))
(command in_p)
(setq data_c (cdr data_c))
) ; while
(command "" "") ; (command
; "_.zoom" "p")
(setvar "attmode" 1)
(initget 7)
(while (= sc nil)
(setq sc (getreal "\n放大倍率: "))
(if (<= sc 0)
(progn
(prompt "\n请输入大于1的数")
(setq sc nil)
)
)
)
(if (>= sc 10)
(if (= "0" (substr (rtos sc 2 2) 4 1))
(setq sca_tt 0)
(setq sca_tt 1)
)
(if (= "0" (substr (rtos sc 2 2) 3 1))
(setq sca_tt 0)
(setq sca_tt 1)
)
)
(command "_.scale" "cp")
(while (car data_d)
(setq in_p (car data_d))
(command in_p)
(setq data_d (cdr data_d))
) ; while
(command "" "" lastp sc)
(command "attdia" 0)
(command "_.insert" "part_z" cp (* cir_r sc) "" "" sc)
(command "_.erase" last1 "")
(setq strd (strcat strd2 " " (rtos sc 2 sca_tt) ":1"))
(initget 33)
(setvar "orthomode" 1)
(command "attdia" 1)
(command "_.undo" "_e")
(setvar "clayer" clay)
(setvar "orthomode" mode)
(setvar "osmode" osmo)
(setvar "dimtofl" dimt)
(setq *error* olderr)
(princ "\n tyco/amp 叶旭坤制作.局部放大内请把尺寸标完后用修改标注命令<exdim>修改尺寸比例!")
(princ)
)
;;; defun
mico_ye大哥，我改了一下，为什么最后一步输入放大倍率后，图不见，啦，那个dwg我也是放在suport下的呀，帮我看看吧mico_ye大哥哥
d
将(setq strd (strcat strd2 " " (rtos sc 2 sca_tt) ":1"))
改成
(setq strd (strcat (rtos sc 2 sca_tt) ":1"))
d
thank you very much
d
大哥，可以把有块的也炸开来剪掉它吗？以为画图的经验来看，尺寸没必要啦，就是块和填充都要炸开来剪掉它们，可以加点在里面，大哥哥
d
还有，我只有这保有看不懂啦 (setq cir_r (/ cir_r (cos (angtof "7.5"))))是什么意思呀，还有你上面有些是注释的是没用的了吧，还有 (setq data_c data_b)
(setq data_d data_b)这三个变量其实都是一样的，为什么要多设两个呀，有什么目的呀，，程序看完也看完了，最后问一个事，在得到以15角为一个角度来取的圆上的坐标后，与之相交的对象如果遇到块或填充对象，我是不是炸开就可以啦，再最后剪掉，是这样的吗，大哥哥