block insert both with button & preview of sld

sachindkini

Dear All,
very urgent please help me
block insert both with button & preview of sld



该贴已经同步到 sachindkini的微博

sachindkini

ANY PEOPLE HELP ME

xshrimp

参考下面这个http://web2.airmail.net/terrycad/AutoLISP-Code.htm

Blk_Lib.lsp Blk_Lib.dcl Blk_Lib.doc

Block Library has been revised to be compatible with AutoCAD 2008. The dialogs with slide images have been redesigned and enlarged to accommodate space for longer block names. Block Library is an AutoLISP utility for managing blocks by storing blocks and block slides images in Block Libraries. The block slide images can be quickly viewed in the Block Libraries before inserting them into a drawing. Blk_Lib requires functions inside of GetIcon.lsp.

yarp

AutoCad design center is better and standard.

sachindkini

yarp 发表于 2012-3-26 19:55
AutoCad design center is better and standard.

dear sir
thx for reply
better option is design center is true,
but im study the autolisp code because i want sample code of this image

sachindkini

dear sir,

see code but only add please sld file for preview

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

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

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