yang686526

视图放大镜,我编的,
www.dimcax.com
视图放大镜,我编的,
;;;;;;xlplode all block and dimension
(defun xx_pld (obj_2a / sset_2a na nam_2a)
(command "explode" obj_2a "")
(setq sset_2a (ssget "p"))
(setq na (sslength sset_2a))
(setq n (+ n na))
(while (>= na 1)
(setq nam_2a (cdr (assoc -1 (entget (ssname sset_2a (- na 1))))))
(ssadd nam_2a ssl)
(setq na (- na 1))
)
)
;;;;;words is binded by chain program to one.
(defun c:big (/ var1 var2 var3 cn1 cp1 cr1 no1 no2
lst k cn2 cp2 cr2 ssl n nssl name)
(command "undo" "be")
(setq var1 (getvar "cmdecho" ))
(setq var2 (getvar "osmode" ))
(setq var3 (getvar "highlight" ))
(setvar "cmdecho" 0)(setvar "osmode" 0)(setvar "highlight" 1)
(command "circle" pause pause)
(setq cn1 (entlast))
(setq cp1 (cdr (assoc 10 (entget cn1))))
(setq cr1 (cdr (assoc 40 (entget cn1))))
(setq no1 (polar cp1 0 cr1))
(setq lst (list no1))
(setq k 1)
(while (< k 100)
(setq no1 (polar cp1 (* k pi 0.02) cr1))
(setq lst (append lst (list no1)))
(setq k (+ 1 k))
)
(setq ssl (ssget "cp" lst))
(command "copy" ssl "" cp1 cp1 "")
(command "move" ssl "" cp1 pause "")
(setq cp2 (cdr (assoc 10 (entget cn1))))
(command "scale" ssl "" cp2 pause "")
(setq cr2 (cdr (assoc 40 (entget cn1))))
(setq no1 (polar cp2 0 cr2))
(setq lst (list no1))
(setq k 1)
(while (< k 100)
(setq no1 (polar cp2 (* k pi 0.02) cr2))
(setq lst (append lst (list no1)))
(setq k (+ 1 k))
)
(setq cr2 (* cr2 1.02))
(setq nssl (ssadd))
(setq n (sslength ssl))
(while (>= n 1)
(setq name (cdr (assoc -1 (entget (ssname ssl (- n 1))))))
(if
(or (= "insert" (cdr (assoc 0 (entget name ))))
(= "dimension" (cdr (assoc 0 (entget name ))))
(= "hatch" (cdr (assoc 0 (entget name ))))
)
(progn
(ssdel name ssl)
(setq n (- n 1))
(xx_pld name)
)
(progn
(ssdel name ssl)
(setq n (- n 1))
(ssadd name nssl)
)
)
)
(setq ssl (ssadd))
(setq ssl (ssget "cp" lst))
(command "erase" nssl "r" ssl "")
(setq no1 (polar cp2 0 cr2))
(setq no2 nil)
(setq k 1)
(while (< k 101)
(setq no2 (polar cp2 (* k pi 0.02) cr2))
(command "trim" cn1 "" "f" no1 no2 "" "")
(setq no1 no2)
(setq k (+ 1 k))
)
(setvar "cmdecho" var1)
(setvar "osmode" var2)
(setvar "highlight" var3)
(command "undo" "e")
(princ)
)

怎么没人顶,真郁闷

请介绍一下大致的作用

顶下

用于cad 中画放大视图的，经常用到。可对小的，不便于标注的部分，放大后处理

这是什么语言啊，用什么软件遍的

不错！几好用 不过能改进最好
命令: big 未知命令“big”。按 f1 查看帮助。
未知命令“big”。按 f1 查看帮助。
是不是多了什么？？？

真的很不错, 并且很实用, 希望lz采用更加简便的方法安装
这样一来很多不熟悉autoliso 的人能用到,
相信lz实力....继续对lz 发贴关注...

qidai