Can add sld file for privew

sachindkini

Dear Sir,

Can add sld file for privew

1. (defun c:vblk ( / block id name )
   
2.     (cond
   
3.         (   (<= (setq id (load_dialog "vblk.dcl")) 0)
   
4.             (princ "\nDCL File not found.")
   
5.        )
   
6.        (   (not (new_dialog "valveblk" id))
   
7.             (princ "\nDialog could not be loaded.")
   
8.        )
   
9.         (   t
   
10.            (foreach tile '("GATEV" "GLOBE" "BALL" "BUTTERFLY" "CHECK" "PLUG" "WAFER" "NEEDLE" "GLOBE-CV")
    
11.                (action_tile tile "(setq name $key) (done_dialog)")
    
12.            )
    
13.             (start_dialog)
    
14.            (if name
    
15.                 (if
    
16.                    (or
    
17.                         (tblsearch "BLOCK" (setq block name))
    
18.                         (setq block (findfile (strcat name ".dwg")))
    
19.                    )
    
20.                     (command "_.-insert" block "_S" 1.0 "_R" 0.0 pause)
    
21.                    (princ (strcat "\nBlock: " name ".dwg could not be found."))
    
22.                )
    
23.                (princ "\n*Cancel*")
    
24.             )
    
25.        )
    
26.     )
    
27.    (if (< 0 id) (unload_dialog id))
    
28.     (princ))

(defun c:vblk ( / block id name )<br />     (cond<br />         (   (<= (setq id (load_dialog "vblk.dcl")) 0)<br />             (princ "\nDCL File not found.") <br />        ) <br />        (   (not (new_dialog "valveblk" id))<br />             (princ "\nDialog could not be loaded.") <br />        )<br />         (   t <br />            (foreach tile '("GATEV" "GLOBE" "BALL" "BUTTERFLY" "CHECK" "PLUG" "WAFER" "NEEDLE" "GLOBE-CV") <br />                (action_tile tile "(setq name $key) (done_dialog)") <br />            )<br />             (start_dialog) <br />            (if name<br />                 (if <br />                    (or<br />                         (tblsearch "BLOCK" (setq block name))<br />                         (setq block (findfile (strcat name ".dwg"))) <br />                    )<br />                     (command "_.-insert" block "_S" 1.0 "_R" 0.0 pause) <br />                    (princ (strcat "\nBlock: " name ".dwg could not be found.")) <br />                ) <br />                (princ "\n*Cancel*")<br />             ) <br />        )<br />     ) <br />    (if (< 0 id) (unload_dialog id))<br />     (princ))

1. bt : button { width = 15; height = 2; fixed_width = true; fixed_height = true; }
   
2. valveblk : dialog { label = "Select block to insert"; spacer;
   
3.    : boxed_column { label = "Valves";
   
4.         : row {
   
5.             : column {
   
6.                : bt { key = "GATEV"; label  ="GATE" ; }
   
7.                 : bt { key = "GLOBE"; label  ="GLOBE"; }
   
8.                 : bt { key = "BALL" ; label = "BALL" ; }
   
9.                : bt { key = "BUTTERFLY" ; label = "B/FLY"; }
   
10.             }
    
11.            : column {
    
12.                : bt { key = "CHECK"; label = "CHECK"; }
    
13.                 : bt { key = "PLUG" ; label = "PLUG" ; }
    
14.                 : bt { key = "WAFER"; label = "WAFER"; }
    
15.                 : bt { key = "NEEDLE"; label = "NEEDLE"; }
    
16.             }
    
17.         }
    
18.         spacer;
    
19.     }
    
20.     : boxed_column { label = "Control Valves";
    
21.         : bt { key = "GLOBE-CV"; label = "GLOBE CV"; } spacer;
    
22.     }
    
23.    : bt { key = "accept"; label = "Cancel"; is_default = true; is_cancel = true; alignment = centered; }}

bt : button { width = 15; height = 2; fixed_width = true; fixed_height = true; }<br /> valveblk : dialog { label = "Select block to insert"; spacer; <br />    : boxed_column { label = "Valves";<br />         : row {<br />             : column { <br />                : bt { key = "GATEV"; label  ="GATE" ; }<br />                 : bt { key = "GLOBE"; label  ="GLOBE"; }<br />                 : bt { key = "BALL" ; label = "BALL" ; } <br />                : bt { key = "BUTTERFLY" ; label = "B/FLY"; }<br />             } <br />            : column { <br />                : bt { key = "CHECK"; label = "CHECK"; }<br />                 : bt { key = "PLUG" ; label = "PLUG" ; }<br />                 : bt { key = "WAFER"; label = "WAFER"; }<br />                 : bt { key = "NEEDLE"; label = "NEEDLE"; }<br />             }<br />         }<br />         spacer;<br />     }<br />     : boxed_column { label = "Control Valves"; <br />         : bt { key = "GLOBE-CV"; label = "GLOBE CV"; } spacer;<br />     } <br />    : bt { key = "accept"; label = "Cancel"; is_default = true; is_cancel = true; alignment = centered; }}

langjs

学习了，这个程序的结构真的不错。

chpmould

very good example
thanks!

yshf

sachindkini

Dear All

can add preview on this lisp help me plz
sse image i want this type result

soly2006

http://bbs.mjtd.com/thread-77054-1-1.html

fools

sachindkini 发表于 2012-3-18 21:32
Dear All

can add preview on this lisp help me plz

use "slide_image" function

sachindkini

fools 发表于 2012-3-20 16:42
use "slide_image" function

dear sir
can u give sample

fools

sachindkini 发表于 2012-3-21 17:57
dear sir
can u give sample

http://docs.autodesk.com/ACD/2011/CHS/filesALG/WS73099cc142f4875516d84be10ebc87a53f-7a8a.htm

sachindkini

fools 发表于 2012-3-21 18:47
http://docs.autodesk.com/ACD/2011/CHS/filesALG/WS73099cc142f4875516d84be10ebc87a53f-7a8a.htm

DEAR SIR,

THANK U VERY MUCH