Xlist box bigger autocad5/1/2023 (if (null LibTitle$) (setq LibTitle$ "Block") ) if (if (null PathDef$) (setq PathDef$ "C:\\Custom\\Blk_Lib\\Blk_Lib.def") ) if (setq DefPath$ (car (GetPathFile PathDef$))) (setq DefFile$ (cadr (GetPathFile PathDef$))) (if (null PathBlk$) (setq PathBlk$ PathDef$) ) if (setq BlkPath$ (car (GetPathFile PathBlk$))) (princ (strcat "\n" LibTitle$ " Library "))(princ) (Custom_Dirs LibTitle$ PathDef$ PathBlk$) - Get Lists from PathDef$ file. ![]() (defun User_Lib (LibTitle$ PathDef$ PathBlk$ / Attribs$ BlkPath$ Block$ BlockLen# Cnt# Dcl_Id% DefFile$ DefPath$ EOF Explode$ Field# FileName% ImageName$ Item$ Layer$ Mid$ No_Blks# No_Pages# Old_error Option# Osmode PathBlock$ Pg_No# Pick Q$ Ref# Rep# Scale~ SlideRef$ StartNo# Text$ UserScale~ ) variables (setq Old_error *error* *error* *BL_error*) (setvar "ATTREQ" 0) (setvar "CMDECHO" 0) (setvar "REGENMODE" 1) - Evaluate Arguments and get DefPath$ and DefFile$ variables. Arguments: 3 LibTitle$ = Library title PathDef$ = Pathname and DefFile name for slides PathBlk$ = Pathname and DefFile name for blocks Returns: Inserts a block from Library. User_Lib - Inserts blocks from Library with user options.
0 Comments
Leave a Reply.AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |