yang686526

cad字体转word
www.dimcax.com
cad字体转word
请问如何将cad里不同次数输入的文字全部复制到word，但不是图片的形式，可以直接编辑这些文字。有什么这样的小软件之类的呀???

我有自编的autolisp 小软件,主要用于cad的文字转换到excel 电子表格,
有需要的话,我可帮你免费转换,qq :778004014 ,

谢谢你了，为何不把小软件一同和大家分享呢，呵呵

就是啊

主要每个人使用cad的习惯不一样, 比如很好的的一个词,有人总是分开写成两个字.....
还有的文字原位复制... 操作上对绘图比率各人习惯不同....
所以都要相关小软件处理.....,不是我不愿意提供, 真是有苦难言...
我曾经手把手的教会过许多同事.....结果是我一来就ok 我一走就卡了...

我可以看看是怎么弄的

正需要呢？

我也希望在excel里面编辑，弄好后转换成dwg格式，麻烦把这个小软件发上来大家共享一下啥。

就是啊，大家共享吗

以下是我编的视图放大镜,免费送给大家
intercad 里有,但需要破译
我的自认为比它好
愿意交流
;;;;;;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)
)