论坛机械类样例程序太少了，CAD出三视图难整吗

lucas3

没人帮忙解决，只有换个主题了
想用lisp新建一个文字样式同标注样式，详情如下：
1.建立一个名为“GB孔”的文字样式，如果下图所示，SHX字体一定要为gdt.shx


2.建立一个名为“GB孔”的标注样式，如下图

基线间距高为7，超出尺寸线设为2.25 ，起点偏移量设为2

标注文字样试设为先建立的“GB孔”文字高度为2.5

接着建立一个直径标注的子样式，如下

文字对齐设为ISO标准

好了，标注样式设置完了

flyfox1048

1. (defun Text+Dim nil
   
2.   (if (not (tblsearch "STYLE" "ggg"))
   
3.     (entmakex '((0 . "STYLE")
   
4.                 (100 . "AcDbSymbolTableRecord")
   
5.                 (100 . "AcDbTextStyleTableRecord")
   
6.                 (2 . "ggg")
   
7.                 (40 . 0.)
   
8.                 (41 . 1.)
   
9.                 (42 . 1.0)
   
10.                 (50 . 0.)
    
11.                 (70 . 0)
    
12.                 (71 . 0)
    
13.                 (3 . "gdt.shx")
    
14.                 (4 . "gbcbig.shx")
    
15.                )
    
16.     )
    
17.   )
    
18.   ;;                            ;;
    
19.   (if (and (not (tblsearch "DIMSTYLE" "custom"))
    
20.            (tblsearch "STYLE" "ggg")
    
21.       )
    
22.     (entmakex (list '(0 . "DIMSTYLE")
    
23.                     '(100 . "AcDbSymbolTableRecord")
    
24.                     '(100 . "AcDbDimStyleTableRecord")
    
25.                     '(2 . "custom")
    
26.                     '(70 . 0)
    
27.                     '(41 . 2.5)
    
28.                     '(42 . 2.0)
    
29.                     '(43 . 7.0)
    
30.                     '(44 . 2.25)
    
31.                     '(73 . 0)
    
32.                     '(77 . 1)
    
33.                     '(78 . 8)
    
34.                     '(140 . 2.5)
    
35.                     '(141 . 2.5)
    
36.                     '(171 . 3)
    
37.                     '(172 . 1)
    
38.                     '(271 . 2)
    
39.                     '(272 . 2)
    
40.                     '(274 . 3)
    
41.                     '(278 . 44)
    
42.                     '(283 . 0)
    
43.                     '(284 . 8)
    
44.                     (cons 340 (tblobjname "STYLE" "ggg"))
    
45.               )
    
46.     )
    
47.   )
    
48.   (princ)
    
49. )

(defun Text+Dim nil<br />   (if (not (tblsearch "STYLE" "ggg"))<br />     (entmakex '((0 . "STYLE")<br />                 (100 . "AcDbSymbolTableRecord")<br />                 (100 . "AcDbTextStyleTableRecord")<br />                 (2 . "ggg")<br />                 (40 . 0.)<br />                 (41 . 1.)<br />                 (42 . 1.0)<br />                 (50 . 0.)<br />                 (70 . 0)<br />                 (71 . 0)<br />                 (3 . "gdt.shx")<br />                 (4 . "gbcbig.shx")<br />                )<br />     )<br />   )<br />   ;;                            ;;<br />   (if (and (not (tblsearch "DIMSTYLE" "custom"))<br />            (tblsearch "STYLE" "ggg")<br />       )<br />     (entmakex (list '(0 . "DIMSTYLE")<br />                     '(100 . "AcDbSymbolTableRecord")<br />                     '(100 . "AcDbDimStyleTableRecord")<br />                     '(2 . "custom")<br />                     '(70 . 0)<br />                     '(41 . 2.5)<br />                     '(42 . 2.0)<br />                     '(43 . 7.0)<br />                     '(44 . 2.25)<br />                     '(73 . 0)<br />                     '(77 . 1)<br />                     '(78 . 8)<br />                     '(140 . 2.5)<br />                     '(141 . 2.5)<br />                     '(171 . 3)<br />                     '(172 . 1)<br />                     '(271 . 2)<br />                     '(272 . 2)<br />                     '(274 . 3)<br />                     '(278 . 44)<br />                     '(283 . 0)<br />                     '(284 . 8)<br />                     (cons 340 (tblobjname "STYLE" "ggg"))<br />               )<br />     )<br />   )<br />   (princ)<br /> )

lucas3

没人关注啊，。。。

newer

机械的三维好像用AUTODESK mechanical 或者 inventor 更方便吧。

lucas3

newer 发表于 2014-1-7 14:52
机械的三维好像用AUTODESK mechanical 或者 inventor 更方便吧。

回版主，是这样的，像PRO/E UG,solidworks都是，但并不是所有电脑都有装这些软件，但普遍的都装有CAD，所以偶尔也可用CAD画三维

ysq101

这个功能真强大。。。。CAD什么版本的？

lucas3

没人解答，只好改内容了