[分享]：用程序自动生成带属性的图框(标题栏)一例

lsjjm

用程序自动生成带属性的图框(标题栏)一例

2. [font=courier]
   
3. (defun c:test ()
   
4.   (load "lsplib")
   
5.   (vl-cmdf "ucs" "w" "")
   
6.   (setq index (load_dialog (findfile "dial.dcl")))     
   
7.   (if (not (new_dialog "dtbl" index))(exit))
   
8.   (imagep)
   
9.   (action_tile "accept" "(setq pa (get_tile "pa"))
   
10.                          (setq to (get_tile "to"))
    
11.                          (setq e (get_tile "e"))
    
12.                          (setq p (get_tile "p"))
    
13.                          (setq l (get_tile "l"))
    
14.                          (done_dialog)")
    
15.   (action_tile "cancel" "(exit)")
    
16.   (start_dialog)
    
17.   (unload_dialog index)
    
18.   (setvar "osmode" 0)
    
19.   (if (= (getvar "tilemode") 1)(setvar "tilemode" 0))
    
20.   (mlayer "title_block" "cyan" "continous")
    
21.   (setq rp1 '(0.0 0.1))
    
22.   (if (= p "1")(setq rp2 '(7.08 10.9))(setq rp2 '(10.95 7.3)))
    
23.   (setq        rtop (list (/ (car rp2) 2)(+ (cadr rp2) 0.03125)))
    
24.   (vl-cmdf "rectangle" rp1 rp2)          
    
25.   (vl-cmdf "rectangle" (polar rtop pi 0.6) "@1.2,0.1")
    
26.   (vl-cmdf "text" "s" "romand" "j" "mc" (polar rtop (/ pi 2) 0.05) 0.07 0 "IF IN DOUBT -ASK!" "")
    
27.   (vl-cmdf "chprop" (entlast) "" "c" 6 "")
    
28.   (vl-cmdf "rectangle" rp2 "@-2.83,-0.315")  ;;top num box
    
29.   (vl-cmdf "line" "@2.611,0" "@0,0.315" "")
    
30.   (vl-cmdf "text" "romand" "j" "tl" "@0.02,-0.02" 0.06 0 "REV")
    
31.   (vl-cmdf "-style" "romand" "" "" 1.2 "" "" "" "")
    
32.   (vl-cmdf "text" "j" "tl" "@-2.611,0" 0.06 0  "NUMBER")
    
33.   (vl-cmdf "ucs" "n" rp1 "")
    
34.   (vl-cmdf "line" '(0 0.315) "@2.55,0" "" "line" "@1.7,0" "@2.83,0" "line" "@-0.219,0" "@0,-0.315" "")
    
35.   (vl-cmdf "line" '(2.55 0) "@0,0.748" "line" "@-2.55,0" "@4.25,0" "")
    
36.   (vl-cmdf "line" '(4.25 0) "@0,1.693" "@2.83,0" "")
    
37.   (vl-cmdf "line" '(0 0.748) "@4.25,0" "")
    
38.   (vl-cmdf "line" '(0.85 0.748) "@0,0.63" "")
    
39.   (vl-cmdf "array" (entlast) "" "r" 1 4 0.85 "")
    
40.   (vl-cmdf "line" '(0 0.9055) "@3.4,0" "")
    
41.   (vl-cmdf "rectangle" '(0 1.063) '(7.08 1.378))
    
42.   (vl-cmdf "line" '(6.062 1.063) "@0,0.63" "" "line" "@-1.182,0" "@0,-0.63" "" "line" "@0.482,0" "@0,0.315" "")
    
43.   (vl-cmdf "line" '(4.25 1.5355) "@2.83,0" "" "line" "@-0.308,0.1575" "@0,-0.315" "")
    
44.   (vl-cmdf "line" '(4.565 1.378) "@0,0.315" "")
    
45.   (vl-cmdf "-style" "romand" "" "" 1 "" "" "" "")
    
46.   (vl-cmdf "text" "j" "mc" '(1.275 0.26) 0.052 0 "This drawing is the Property of PARKER HANNIFIN Crop.")
    
47.   (vl-cmdf "text" "j" "mc" '(1.275 0.17) 0.052 0 "Any use or reproduction except by expressed")
    
48.   (vl-cmdf "text" "j" "mc" '(1.275 0.08) 0.052 0 "permission of PARKER HANNIFIN Crop. is Hereby Prohibited.")
    
49.   (parkerlogo '(0 0.428))
    
50.   (vl-cmdf "text" "s" "romand" "j" "mc" '(0.425 0.37) 0.06 0 "Fluid Connectors" "")
    
51.   (vl-cmdf "change" (entlast) "" "p" "c" 6 "")
    
52.   (vl-cmdf "-style" "romand" "" "" 1.1 "" "" "" "")
    
53.   (vl-cmdf "text" "s" "romand" "j" "mc" '(1.73 0.67) 0.055 0 "Parker Hannifin (N.Z) Ltd.")
    
54.   (vl-cmdf "text" "j" "mc" '(1.73 0.58) 0.055 0 "PO Box 14-906 Panmure")
    
55.   (vl-cmdf "text" "j" "mc" '(1.73 0.49) 0.055 0 "3 Bowden Road Mt. Wellington")
    
56.   (vl-cmdf "text" "j" "mc" '(1.73 0.4) 0.055 0 "Auckland, New Zealand")
    
57.   (vl-cmdf "text" "j" "tl" '(6.881 0.295) 0.06 0 "REV")
    
58.   (vl-cmdf "-style" "romand" "" "" 1 "" "" "" "")
    
59.   (vl-cmdf "text" "j" "tl" '(2.58 0.55) 0.06 0  "MUST CONFORM")
    
60.   (vl-cmdf "text" "j" "tl" '(2.58 0.45) 0.06 0  "TO HS-99,ES-99")
    
61.   (vl-cmdf "text" "j" "tl" '(2.58 0.35) 0.06 0  "ANGLE %%P1/2%%D")
    
62.   (vl-cmdf "text" "j" "tl" '(2.58 0.17) 0.06 0  "DIMENSIONS IN")
    
63.   (vl-cmdf "text" "j" "mc" '(5.121 1.2205) 0.18 0  "A4")
    
64.   (vl-cmdf "change" (entlast) "" "p" "c" 6 "")
    
65.   (setvar "cecolor" "bylayer")
    
66.   (vl-cmdf "-style" "romand" "" "" 1.2 "" "" "" "")
    
67.   (vl-cmdf "text" "j" "tl" '(2.57 0.728) 0.06 0 "TOLERANCE" "")
    
68.   (vl-cmdf "text" "j" "mc" '(0.4252 0.8267) 0.06 0 "MATERIAL" "")
    
69.   (vl-cmdf "text" "j" "mc" "@0.85,0" 0.06 0 "STOCK SIZE" "")
    
70.   (vl-cmdf "text" "j" "mc" "@0.85,0" 0.06 0 "HEAT TREAT" "")
    
71.   (vl-cmdf "text" "j" "mc" "@0.85,0" 0.06 0 "FINISH" "")
    
72.   (vl-cmdf "text" "j" "tl" '(3.41 1.043) 0.06 0 "SCALE" "")
    
73.   (vl-cmdf "text" "j" "tl" '(0.02 1.358) 0.06 0 "DRAWN" "")
    
74.   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "DATE" "")
    
75.   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "CHECKED" "")
    
76.   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "DATE" "")
    
77.   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "APPROVED" "")
    
78.   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "DATE" "")
    
79.   (project '(5.712 1.2205))
    
80.   (vl-cmdf "text" "j" "mc" '(4.4095 1.4568) 0.06 0 "ECN" "")
    
81.   (vl-cmdf "text" "j" "mc" "@0.315,0" 0.06 0 "REV""")
    
82.   (vl-cmdf "text" "j" "mc" "@0.748,0" 0.06 0 "DESCRIPTION" "")
    
83.   (vl-cmdf "text" "j" "mc" "@0.9448,0" 0.06 0 "DATE" "")
    
84.   (vl-cmdf "text" "j" "mc" "@0.5085,0" 0.06 0 "BY" "")
    
85.   (cond
    
86.     ((= pa "1")
    
87.       (vl-cmdf "text" "j" "tl" '(4.27 0.295) 0.06 0 "NUMBER")
    
88.       (vl-cmdf "text" "j" "tl" "@0,0.748" 0.06 0 "TITLE" ""))
    
89.     ((= to "1")
    
90.       (vl-cmdf "line" '(4.565 0) "@0,0.315" "")
    
91.       (vl-cmdf "text" "j" "tl" '(4.27 0.295) 0.06 0 "HAND")
    
92.       (vl-cmdf "text" "j" "tl" "@0.315,0" 0.06 0 "NUMBER")
    
93.       (vl-cmdf "text" "j" "tl" '(4.27 0.728) 0.06 0 "TITLE" "")
    
94.       (vl-cmdf "line" '(4.25 0.748) "@2.83,0" "" "line" "@0,0.1575" "@-2.83,0" "")
    
95.       (vl-cmdf "line" '(4.88 0.748) "@0,0.315" "" "line" "@1.57,0" "@0,-0.315" ""
    
96.                   "line" "@0.315,0" "@0,0.315" "")
    
97.       (vl-cmdf "text" "j" "mc" '(4.565 0.8268) 0.06 0 "PART NO.")
    
98.       (vl-cmdf "text" "j" "mc" "@0,0.1575" 0.06 0 "ENDSTYLE")
    
99.       (vl-cmdf "text" "j" "mc" '(6.6075 0.8268) 0.06 0 "REV")
    
100.       (vl-cmdf "text" "j" "mc" "@0,0.1575" 0.06 0 "REV"))
     
101.   );c
     
102.   (vl-cmdf "-style" "romand" "" "" 1 "" "" "" "")
     
103.   (vl-cmdf "ucs" "w" "")
     
104.   (setvar "cecolor" "6")
     
105.   (entmake '((0 . "block")(410 . "Layout1")(2 . "*U")(70 . 1)(10 0 0 0)))
     
106.   (setq blkn (entmake '((0 . "ENDBLK"))))
     
107.   (entmake (append '((0 . "INSERT")(10 0 0 0)(66 . 1)) (list (cons 2 blkn))))
     
108.   (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")
     
109.              (10 0 0 0)(11 5.65 0.14 0)(40 . 0.15)(70 . 0)(72 . 1)))
     
110.   (entmake '((0 . "ATTRIB")(1 . "-")(2 . "Rev")(7 . "Romand")
     
111.              (10 0 0 0)(11 6.972 0.16 0)(40 . 0.08)(70 . 0)(72 . 1)))
     
112.   (cond
     
113.     ((= to "1")
     
114.       (entmake '((0 . "ATTRIB")(1 . "INTERNAL RECESS")(2 . "Title1")(7 . "Romand")
     
115.                  (10 0 0 0)(11 5.68 0.68 0)(40 . 0.13)(70 . 0)(72 . 1)))
     
116.       (entmake '((0 . "ATTRIB")(1 . "FRONT BARBS")(2 . "Titledown")(7 . "Romand")
     
117.                  (10 0 0 0)(11 5.59 0.45 0)(40 . 0.13)(70 . 0)(72 . 1))))
     
118.    ((= to "0")
     
119.      (entmake '((0 . "ATTRIB")(1 . "")(2 . "Titletop")(7 . "Romand")
     
120.                  (10 0 0 0)(11 5.81 0.95 0)(40 . 0.14)(70 . 0)(72 . 1)))
     
121.      (entmake '((0 . "ATTRIB")(1 . "")(2 . "Title1")(7 . "Romand")
     
122.                 (10 0 0 0)(11 5.68 0.75 0)(40 . 0.14)(70 . 0)(72 . 1)))
     
123.      (entmake '((0 . "ATTRIB")(1 . "")(2 . "Titledown")(7 . "Romand")
     
124.                 (10 0 0 0)(11 5.59 0.5 0)(40 . 0.14)(70 . 0)(72 . 1))))
     
125.   );c
     
126.   (entmake '((0 . "ATTRIB")(1 . "")(2 . "Ecn") (7 . "Romand")
     
127.              (10 0 0 0)(11 4.408 1.675 0)(40 . 0.06)(70 . 0)(72 . 1)))
     
128.   (entmake '((0 . "ATTRIB")(1 . "-")(2 . "Erev")(7 . "Romand")
     
129.              (10 0 0 0)(11 4.72 1.675 0)(40 . 0.06)(70 . 0)(72 . 1)))      
     
130.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "")(7 . "Romand")
     
131.              (10 0 0 0)(72 . 1)(11 5.468 1.675 0)(2 . "Description")(70 . 0)))
     
132.   (entmake '((0 . "ATTRIB")(1 . "10/06/03")(2 . "Date")(7 . "Romand")
     
133.              (10 0 0 0)(40 . 0.06)(72 . 1)(11 6.41 1.675 0)(70 . 0)))
     
134.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "")(7 . "Romand")
     
135.              (10 0 0 0)(72 . 1)(11 6.92 1.675 0)(2 . "By")(70 . 0)))
     
136.   (entmake '((0 . "ATTRIB")(1 . "JOHN.S")(40 . 0.08)(7 . "Romand")
     
137.              (10 0 0 0)(72 . 1)(11 0.425 1.24 0)(2 . "Drawn")(70 . 0)))
     
138.   (entmake '((0 . "ATTRIB")(1 . "09/06/03")(40 . 0.08)(7 . "Romand")
     
139.              (10 0 0 0)(72 . 1)(11 1.275 1.24 0)(2 . "Date")(70 . 0)))  
     
140.   (entmake '((0 . "ATTRIB")(1 . "")        (40 . 0.08)(7 . "Romand")
     
141.              (10 0 0 0)(72 . 1)(11 2.125 1.24 0)(2 . "Checked")(70 . 0)))
     
142.   (entmake '((0 . "ATTRIB")(1 . "")(40 . 0.08)(7 . "Romand")
     
143.              (10 0 0 0)(72 . 1)(11 2.975 1.24 0)(2 . "Date")(70 . 0)))
     
144.   (entmake '((0 . "ATTRIB")(1 . "")(40 . 0.08)(7 . "Romand")
     
145.              (10 0 0 0)(72 . 1)(11 3.825 1.24 0)(2 . "Approved")(70 . 0)))
     
146.   (entmake '((0 . "ATTRIB")(40 . 0.08)(1 . "05/06/03")(7 . "Romand")
     
147.              (10 0 0 0)(11 4.565 1.24 0.0)(2 . "Date")(70 . 0)(72 . 1)))
     
148.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "316L")(7 . "Romand")
     
149.              (10 0 0 0)(72 . 1)(11 0.425 1.045 0)(2 . "Material")(70 . 0)))
     
150.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "36mm AF HEX")(7 . "Romand")
     
151.              (10 0 0 0)(72 . 1)(11 1.275 1.045 0)(2 . "Size")(70 . 0)))
     
152.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "-")(7 . "Romand")
     
153.              (10 0 0 0)(72 . 1)(11 2.125 1.045 0)(2 . "Heat")(70 . 0)))
     
154.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "-")(7 . "Romand")
     
155.              (72 . 1)(10 0 0 0)(11 2.975 1.045 0)(2 . "Finish")(70 . 0)))
     
156.   (entmake '((0 . "ATTRIB")(40 . 0.12)(1 . "NTS")(7 . "Romand")
     
157.              (10 0 0 0)(72 . 1)(11 4.0 0.9 0)(2 . "Scale")(70 . 0)))
     
158.   (entmake '((0 . "ATTRIB")(40 . 0.21)(1 . "INCH")(7 . "Romand")
     
159.              (10 0 0 0)(72 . 1)(11 6.57 1.23 0)(2 . "Unit")(70 . 0)))
     
160.   (entmake '((0 . "ATTRIB")(1 . "X.X%%P0.04")(2 . "x.x")(7 . "Romand")
     
161.              (10 0 0 0)(11 3.85 0.59 0)(40 . 0.06)(70 . 0)(72 . 1)))
     
162.   (entmake '((0 . "ATTRIB")(1 . "X.XX%%P0.008")(2 . "x.xx")(7 . "Romand")
     
163.              (10 0 0 0)(11 3.85 0.49 0)(40 . 0.06)(70 . 0)(72 . 1)))
     
164.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "X.XXX%%P0.004")(7 . "Romand")
     
165.              (10 0 0 0)(11 3.85 0.39 0)(2 . "x.xxx")(70 . 0)(72 . 1)))
     
166.   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "INCH")(7 . "Romand")
     
167.              (10 0 0 0)(72 . 1)(11 3.4 0.21 0)(2 . "UNIT")(70 . 0)))
     
168.   (if (<= (car rp2) 7.08)
     
169.     (progn
     
170.       (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")
     
171.                  (10 0 0 0)(11 5.65 10.63 0)(40 . 0.15)(70 . 0)(72 . 1)))
     
172.       (entmake '((0 . "ATTRIB")(1 . "-")(2 . "Rev")(7 . "Romand")
     
173.                  (10 0 0 0)(11 6.972 10.65 0)(40 . 0.08)(70 . 0)(72 . 1)))
     
174.       (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")
     
175.                  (10 7.15 2.0 0)(11 7.15 0.8 0)(40 . 0.15)(70 . 0)(72 . 5))))
     
176.     (progn
     
177.       (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")
     
178.                  (10 0 0 0)(11 5.65 7.03 0)(40 . 0.15)(70 . 0)(72 . 1)))
     
179.       (entmake '((0 . "ATTRIB")(40 . 0.08)(1 . "-")(7 . "Romand")
     
180.                  (10 0 0 0)(11 6.962 7.05 0)(2 . "Rev")(70 . 0)(72 . 1))))
     
181.   );i
     
182.   (if (= to "1")
     
183.     (progn
     
184.       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.1)(1 . "T")(7 . "Romand")
     
185.                  (72 . 1)(11 4.4075 0.18 0)(2 . "Hand")(70 . 0)))
     
186.       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "K9170-6-6-AU")(7 . "Romand")
     
187.                  (72 . 1)(11 5.665 1.054 0)(2 . "Part No")(70 . 0)))
     
188.       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "-")(7 . "Romand")
     
189.                  (72 . 1)(11 6.9225 1.054 0)(2 . "Rev")(70 . 0)))
     
190.       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "D83,31-6")(7 . "Romand")
     
191.                  (72 . 1)(11 5.665 0.897 0)(2 . "Endstyle")(70 . 0)))
     
192.       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "a")(7 . "Romand")
     
193.                  (72 . 1)(11 6.9225 0.897 0)(2 . "Rev")(70 . 0))))
     
194.   );I
     
195.   (entmake '((0 . "SEQEND")))
     
196.   (if (> (car rp2) 7.08)(vl-cmdf "move" (entlast) "" '(0 0) '(3.87 0) ""))
     
197.   (vl-cmdf "-style" "romand" "" "" 1.0 "" "" "" "")
     
198.   (setvar "cecolor" "bylayer")
     
199.   (setvar "osmode" 37)
     
200.   (princ)
     
201. );defun
     
202. [/font]
     

[font=courier]<br /> (defun c:test ()<br />   (load "lsplib")<br />   (vl-cmdf "ucs" "w" "")<br />   (setq index (load_dialog (findfile "dial.dcl")))     <br />   (if (not (new_dialog "dtbl" index))(exit))<br />   (imagep)<br />   (action_tile "accept" "(setq pa (get_tile "pa"))<br />                          (setq to (get_tile "to"))<br />                          (setq e (get_tile "e"))<br />                          (setq p (get_tile "p"))<br />                          (setq l (get_tile "l"))<br />                          (done_dialog)")<br />   (action_tile "cancel" "(exit)")<br />   (start_dialog)<br />   (unload_dialog index)<br />   (setvar "osmode" 0)<br />   (if (= (getvar "tilemode") 1)(setvar "tilemode" 0))<br />   (mlayer "title_block" "cyan" "continous")<br />   (setq rp1 '(0.0 0.1))<br />   (if (= p "1")(setq rp2 '(7.08 10.9))(setq rp2 '(10.95 7.3)))<br />   (setq        rtop (list (/ (car rp2) 2)(+ (cadr rp2) 0.03125)))<br />   (vl-cmdf "rectangle" rp1 rp2)          <br />   (vl-cmdf "rectangle" (polar rtop pi 0.6) "@1.2,0.1")<br />   (vl-cmdf "text" "s" "romand" "j" "mc" (polar rtop (/ pi 2) 0.05) 0.07 0 "IF IN DOUBT -ASK!" "")<br />   (vl-cmdf "chprop" (entlast) "" "c" 6 "")<br />   (vl-cmdf "rectangle" rp2 "@-2.83,-0.315")  ;;top num box<br />   (vl-cmdf "line" "@2.611,0" "@0,0.315" "")<br />   (vl-cmdf "text" "romand" "j" "tl" "@0.02,-0.02" 0.06 0 "REV")<br />   (vl-cmdf "-style" "romand" "" "" 1.2 "" "" "" "")<br />   (vl-cmdf "text" "j" "tl" "@-2.611,0" 0.06 0  "NUMBER") <br />   (vl-cmdf "ucs" "n" rp1 "")<br />   (vl-cmdf "line" '(0 0.315) "@2.55,0" "" "line" "@1.7,0" "@2.83,0" "line" "@-0.219,0" "@0,-0.315" "")<br />   (vl-cmdf "line" '(2.55 0) "@0,0.748" "line" "@-2.55,0" "@4.25,0" "")<br />   (vl-cmdf "line" '(4.25 0) "@0,1.693" "@2.83,0" "")<br />   (vl-cmdf "line" '(0 0.748) "@4.25,0" "")<br />   (vl-cmdf "line" '(0.85 0.748) "@0,0.63" "")<br />   (vl-cmdf "array" (entlast) "" "r" 1 4 0.85 "")<br />   (vl-cmdf "line" '(0 0.9055) "@3.4,0" "")<br />   (vl-cmdf "rectangle" '(0 1.063) '(7.08 1.378))<br />   (vl-cmdf "line" '(6.062 1.063) "@0,0.63" "" "line" "@-1.182,0" "@0,-0.63" "" "line" "@0.482,0" "@0,0.315" "")<br />   (vl-cmdf "line" '(4.25 1.5355) "@2.83,0" "" "line" "@-0.308,0.1575" "@0,-0.315" "")<br />   (vl-cmdf "line" '(4.565 1.378) "@0,0.315" "")<br />   (vl-cmdf "-style" "romand" "" "" 1 "" "" "" "")<br />   (vl-cmdf "text" "j" "mc" '(1.275 0.26) 0.052 0 "This drawing is the Property of PARKER HANNIFIN Crop.")<br />   (vl-cmdf "text" "j" "mc" '(1.275 0.17) 0.052 0 "Any use or reproduction except by expressed")<br />   (vl-cmdf "text" "j" "mc" '(1.275 0.08) 0.052 0 "permission of PARKER HANNIFIN Crop. is Hereby Prohibited.")<br />   (parkerlogo '(0 0.428))<br />   (vl-cmdf "text" "s" "romand" "j" "mc" '(0.425 0.37) 0.06 0 "Fluid Connectors" "")<br />   (vl-cmdf "change" (entlast) "" "p" "c" 6 "")<br />   (vl-cmdf "-style" "romand" "" "" 1.1 "" "" "" "")<br />   (vl-cmdf "text" "s" "romand" "j" "mc" '(1.73 0.67) 0.055 0 "Parker Hannifin (N.Z) Ltd.")<br />   (vl-cmdf "text" "j" "mc" '(1.73 0.58) 0.055 0 "PO Box 14-906 Panmure")<br />   (vl-cmdf "text" "j" "mc" '(1.73 0.49) 0.055 0 "3 Bowden Road Mt. Wellington")<br />   (vl-cmdf "text" "j" "mc" '(1.73 0.4) 0.055 0 "Auckland, New Zealand")<br />   (vl-cmdf "text" "j" "tl" '(6.881 0.295) 0.06 0 "REV")<br />   (vl-cmdf "-style" "romand" "" "" 1 "" "" "" "")<br />   (vl-cmdf "text" "j" "tl" '(2.58 0.55) 0.06 0  "MUST CONFORM")<br />   (vl-cmdf "text" "j" "tl" '(2.58 0.45) 0.06 0  "TO HS-99,ES-99") <br />   (vl-cmdf "text" "j" "tl" '(2.58 0.35) 0.06 0  "ANGLE %%P1/2%%D") <br />   (vl-cmdf "text" "j" "tl" '(2.58 0.17) 0.06 0  "DIMENSIONS IN")<br />   (vl-cmdf "text" "j" "mc" '(5.121 1.2205) 0.18 0  "A4")<br />   (vl-cmdf "change" (entlast) "" "p" "c" 6 "")<br />   (setvar "cecolor" "bylayer")<br />   (vl-cmdf "-style" "romand" "" "" 1.2 "" "" "" "")<br />   (vl-cmdf "text" "j" "tl" '(2.57 0.728) 0.06 0 "TOLERANCE" "")<br />   (vl-cmdf "text" "j" "mc" '(0.4252 0.8267) 0.06 0 "MATERIAL" "")<br />   (vl-cmdf "text" "j" "mc" "@0.85,0" 0.06 0 "STOCK SIZE" "")<br />   (vl-cmdf "text" "j" "mc" "@0.85,0" 0.06 0 "HEAT TREAT" "")<br />   (vl-cmdf "text" "j" "mc" "@0.85,0" 0.06 0 "FINISH" "")<br />   (vl-cmdf "text" "j" "tl" '(3.41 1.043) 0.06 0 "SCALE" "")<br />   (vl-cmdf "text" "j" "tl" '(0.02 1.358) 0.06 0 "DRAWN" "")<br />   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "DATE" "")<br />   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "CHECKED" "")<br />   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "DATE" "")<br />   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "APPROVED" "")<br />   (vl-cmdf "text" "j" "tl" "@0.85,0" 0.06 0 "DATE" "")<br />   (project '(5.712 1.2205))<br />   (vl-cmdf "text" "j" "mc" '(4.4095 1.4568) 0.06 0 "ECN" "")<br />   (vl-cmdf "text" "j" "mc" "@0.315,0" 0.06 0 "REV""")<br />   (vl-cmdf "text" "j" "mc" "@0.748,0" 0.06 0 "DESCRIPTION" "")<br />   (vl-cmdf "text" "j" "mc" "@0.9448,0" 0.06 0 "DATE" "")<br />   (vl-cmdf "text" "j" "mc" "@0.5085,0" 0.06 0 "BY" "")<br />   (cond <br />     ((= pa "1")<br />       (vl-cmdf "text" "j" "tl" '(4.27 0.295) 0.06 0 "NUMBER")<br />       (vl-cmdf "text" "j" "tl" "@0,0.748" 0.06 0 "TITLE" ""))<br />     ((= to "1")<br />       (vl-cmdf "line" '(4.565 0) "@0,0.315" "")<br />       (vl-cmdf "text" "j" "tl" '(4.27 0.295) 0.06 0 "HAND")<br />       (vl-cmdf "text" "j" "tl" "@0.315,0" 0.06 0 "NUMBER")<br />       (vl-cmdf "text" "j" "tl" '(4.27 0.728) 0.06 0 "TITLE" "")<br />       (vl-cmdf "line" '(4.25 0.748) "@2.83,0" "" "line" "@0,0.1575" "@-2.83,0" "")<br />       (vl-cmdf "line" '(4.88 0.748) "@0,0.315" "" "line" "@1.57,0" "@0,-0.315" ""<br />                   "line" "@0.315,0" "@0,0.315" "")<br />       (vl-cmdf "text" "j" "mc" '(4.565 0.8268) 0.06 0 "PART NO.")<br />       (vl-cmdf "text" "j" "mc" "@0,0.1575" 0.06 0 "ENDSTYLE")<br />       (vl-cmdf "text" "j" "mc" '(6.6075 0.8268) 0.06 0 "REV")<br />       (vl-cmdf "text" "j" "mc" "@0,0.1575" 0.06 0 "REV"))<br />   );c<br />   (vl-cmdf "-style" "romand" "" "" 1 "" "" "" "")<br />   (vl-cmdf "ucs" "w" "")<br />   (setvar "cecolor" "6")<br />   (entmake '((0 . "block")(410 . "Layout1")(2 . "*U")(70 . 1)(10 0 0 0)))<br />   (setq blkn (entmake '((0 . "ENDBLK"))))<br />   (entmake (append '((0 . "INSERT")(10 0 0 0)(66 . 1)) (list (cons 2 blkn))))<br />   (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")<br />              (10 0 0 0)(11 5.65 0.14 0)(40 . 0.15)(70 . 0)(72 . 1)))<br />   (entmake '((0 . "ATTRIB")(1 . "-")(2 . "Rev")(7 . "Romand")<br />              (10 0 0 0)(11 6.972 0.16 0)(40 . 0.08)(70 . 0)(72 . 1)))<br />   (cond<br />     ((= to "1")<br />       (entmake '((0 . "ATTRIB")(1 . "INTERNAL RECESS")(2 . "Title1")(7 . "Romand")<br />                  (10 0 0 0)(11 5.68 0.68 0)(40 . 0.13)(70 . 0)(72 . 1)))<br />       (entmake '((0 . "ATTRIB")(1 . "FRONT BARBS")(2 . "Titledown")(7 . "Romand")<br />                  (10 0 0 0)(11 5.59 0.45 0)(40 . 0.13)(70 . 0)(72 . 1))))<br />    ((= to "0")<br />      (entmake '((0 . "ATTRIB")(1 . "")(2 . "Titletop")(7 . "Romand")<br />                  (10 0 0 0)(11 5.81 0.95 0)(40 . 0.14)(70 . 0)(72 . 1)))<br />      (entmake '((0 . "ATTRIB")(1 . "")(2 . "Title1")(7 . "Romand")<br />                 (10 0 0 0)(11 5.68 0.75 0)(40 . 0.14)(70 . 0)(72 . 1)))<br />      (entmake '((0 . "ATTRIB")(1 . "")(2 . "Titledown")(7 . "Romand")<br />                 (10 0 0 0)(11 5.59 0.5 0)(40 . 0.14)(70 . 0)(72 . 1))))<br />   );c<br />   (entmake '((0 . "ATTRIB")(1 . "")(2 . "Ecn") (7 . "Romand")<br />              (10 0 0 0)(11 4.408 1.675 0)(40 . 0.06)(70 . 0)(72 . 1)))<br />   (entmake '((0 . "ATTRIB")(1 . "-")(2 . "Erev")(7 . "Romand")<br />              (10 0 0 0)(11 4.72 1.675 0)(40 . 0.06)(70 . 0)(72 . 1)))       <br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 5.468 1.675 0)(2 . "Description")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(1 . "10/06/03")(2 . "Date")(7 . "Romand")<br />              (10 0 0 0)(40 . 0.06)(72 . 1)(11 6.41 1.675 0)(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 6.92 1.675 0)(2 . "By")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(1 . "JOHN.S")(40 . 0.08)(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 0.425 1.24 0)(2 . "Drawn")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(1 . "09/06/03")(40 . 0.08)(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 1.275 1.24 0)(2 . "Date")(70 . 0)))  <br />   (entmake '((0 . "ATTRIB")(1 . "")        (40 . 0.08)(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 2.125 1.24 0)(2 . "Checked")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(1 . "")(40 . 0.08)(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 2.975 1.24 0)(2 . "Date")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(1 . "")(40 . 0.08)(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 3.825 1.24 0)(2 . "Approved")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.08)(1 . "05/06/03")(7 . "Romand")<br />              (10 0 0 0)(11 4.565 1.24 0.0)(2 . "Date")(70 . 0)(72 . 1)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "316L")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 0.425 1.045 0)(2 . "Material")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "36mm AF HEX")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 1.275 1.045 0)(2 . "Size")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "-")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 2.125 1.045 0)(2 . "Heat")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "-")(7 . "Romand")<br />              (72 . 1)(10 0 0 0)(11 2.975 1.045 0)(2 . "Finish")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.12)(1 . "NTS")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 4.0 0.9 0)(2 . "Scale")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.21)(1 . "INCH")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 6.57 1.23 0)(2 . "Unit")(70 . 0)))<br />   (entmake '((0 . "ATTRIB")(1 . "X.X%%P0.04")(2 . "x.x")(7 . "Romand")<br />              (10 0 0 0)(11 3.85 0.59 0)(40 . 0.06)(70 . 0)(72 . 1)))<br />   (entmake '((0 . "ATTRIB")(1 . "X.XX%%P0.008")(2 . "x.xx")(7 . "Romand")<br />              (10 0 0 0)(11 3.85 0.49 0)(40 . 0.06)(70 . 0)(72 . 1)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "X.XXX%%P0.004")(7 . "Romand")<br />              (10 0 0 0)(11 3.85 0.39 0)(2 . "x.xxx")(70 . 0)(72 . 1)))<br />   (entmake '((0 . "ATTRIB")(40 . 0.06)(1 . "INCH")(7 . "Romand")<br />              (10 0 0 0)(72 . 1)(11 3.4 0.21 0)(2 . "UNIT")(70 . 0)))<br />   (if (<= (car rp2) 7.08)<br />     (progn<br />       (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")<br />                  (10 0 0 0)(11 5.65 10.63 0)(40 . 0.15)(70 . 0)(72 . 1)))<br />       (entmake '((0 . "ATTRIB")(1 . "-")(2 . "Rev")(7 . "Romand")<br />                  (10 0 0 0)(11 6.972 10.65 0)(40 . 0.08)(70 . 0)(72 . 1)))<br />       (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")<br />                  (10 7.15 2.0 0)(11 7.15 0.8 0)(40 . 0.15)(70 . 0)(72 . 5))))<br />     (progn<br />       (entmake '((0 . "ATTRIB")(1 . "K3D78-30-16C-AU")(2 . "Part Num")(7 . "Romand")<br />                  (10 0 0 0)(11 5.65 7.03 0)(40 . 0.15)(70 . 0)(72 . 1)))<br />       (entmake '((0 . "ATTRIB")(40 . 0.08)(1 . "-")(7 . "Romand")<br />                  (10 0 0 0)(11 6.962 7.05 0)(2 . "Rev")(70 . 0)(72 . 1))))<br />   );i<br />   (if (= to "1")<br />     (progn<br />       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.1)(1 . "T")(7 . "Romand")<br />                  (72 . 1)(11 4.4075 0.18 0)(2 . "Hand")(70 . 0)))<br />       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "K9170-6-6-AU")(7 . "Romand")<br />                  (72 . 1)(11 5.665 1.054 0)(2 . "Part No")(70 . 0)))<br />       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "-")(7 . "Romand")<br />                  (72 . 1)(11 6.9225 1.054 0)(2 . "Rev")(70 . 0))) <br />       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "D83,31-6")(7 . "Romand")<br />                  (72 . 1)(11 5.665 0.897 0)(2 . "Endstyle")(70 . 0)))<br />       (entmake '((0 . "ATTRIB")(10 0 0 0)(40 . 0.07)(1 . "a")(7 . "Romand")<br />                  (72 . 1)(11 6.9225 0.897 0)(2 . "Rev")(70 . 0))))<br />   );I<br />   (entmake '((0 . "SEQEND")))<br />   (if (> (car rp2) 7.08)(vl-cmdf "move" (entlast) "" '(0 0) '(3.87 0) ""))<br />   (vl-cmdf "-style" "romand" "" "" 1.0 "" "" "" "")<br />   (setvar "cecolor" "bylayer")<br />   (setvar "osmode" 37)<br />   (princ)<br /> );defun<br /> [/font]<br />

lijiao

太麻烦了，还是做一图块方便。

正航

是啊。做一个图块更方便，而且可以不分解，绘图时不会和其它实体混在一起

eachy

最初由 正航 发布
[B]是啊。做一个图块更方便，而且可以不分解，绘图时不会和其它实体混在一起 [/B]

用程序生成图块更方便，只要有程序就可以生成图块。

msdg

？？

pandoit

楼主很辛苦，可惜我等实在看不懂，也不知道怎么用

lsjjm

不好意思。请将以下程序码行删掉，既可运行（如果在模型空间运行会自动转向图纸空间）。

删掉：
;(load "lsplib")
;(imagep)
;(mlayer "title_block" "cyan" "continous")
(parkerlogo '(0 0.428))
;(project '(5.712 1.2205))

另复制一对话框文件：dial.dal
dtbl : dialog {label = "Title Block";
  : row {
    : radio_column {label = "Type:";
      : radio_button {label = "Part"; key = "pa"; value = "1";}
      : radio_button {label = "Tool"; key = "to";}
      : radio_button {label = "EDM"; key = "e";}
    } spacer;
    : radio_column {label = "Orientation:";
      : radio_button {label = "Po&rtrait"; key = "p"; value = "1";}
      : radio_button {label = "La&ndscape"; key = "l";}
      spacer; spacer; spacer;
    }
  }
  spacer;
  ok_cancel;
  : row {
    : image { key = "im" ; width = 4; fixed_width= true;}
    : paragraph {
      : text_part { label = "Designed and Created";alignment=right;}
      : text_part { label = "by Richard Liang";alignment=right;}
    }
  }
}

msdg

按提示进行改动，并将“另复制一对话框文件：dial.dal”中的DAL改为DCL文件，移到SUPPORT文件夹中，运行后出现下图：按确定后有点动静。但“未知命令”提示重复出现。
能否详细说说？

lsjjm

dial.dal 应该是dial.dcl。
我刚在家又试了，可以呀，你再试试？有什么问题请告。

eachy

游客，如果您要查看本帖隐藏内容请回复

aeo

图框每个地方的都不一样,要程序写出来,不可能.
自己的图框,画一遍存好就可以了.当然也要属性.
所以需要的不是画,而是改.

我写的我们院的

hqd9639

有关图框及初始化的程序没有一个能通用的,所以还是自已写好些。

sqmjk

学到了一种思路

sqmjk01

图框及初始化的程序不难写，还是自己写吧

bridgewind

同意15楼，还是自己写！