0 Members and 1 Guest are viewing this topic.
Welcome home, One Shot.Bob G.
(defun c:ninjasettings() (setvar 'acadlspasdoc 1) (setvar 'apbox 1) (setvar 'attdia 1) (setvar 'attmode 1) (setvar 'auditctl 0) (setvar 'bindtype 1) (setvar 'blipmode 0) (setvar 'cecolor "bylayer") (setvar 'celtype "bylayer") (setvar 'cmddia 1) (setvar 'clayer "0") (setvar 'coords 2) (setvar 'delobj 1) (setvar 'dimassoc 1) (setvar 'dragmode 2) (setvar 'dragp1 50) (setvar 'dragp2 50) (setvar 'dwgcheck 0) (setvar 'edgemode 1) (setvar 'elevation 0) (setvar 'expert 1) (setvar 'explmode 1) (setvar 'facetratio 1) (setvar 'facetres 10) (setvar 'filedia 1) (setvar 'filletrad 0) (setvar 'fillmode 1) (setvar 'fontalt "romans.shx") (setvar 'grips 1) (setvar 'hideprecision 1) (setvar 'highlight 1) (setvar 'hpbound 1) (setvar 'imagehlt 1) (setvar 'isavebak 1) (setvar 'isavepercent 0) (setvar 'isolines 100) (setvar 'logfilemode 0) (setvar 'lwdisplay 0) (setvar 'maxsort 5000) (setvar 'mbuttonpan 1) (setvar 'mirrtext 0) (setvar 'olequality 3) (setvar 'olestartup 1) (setvar 'osmode 0) (setvar 'pickadd 1) (setvar 'pickauto 1) (setvar 'pickfirst 1) (setvar 'pickstyle 1) (setvar 'plinegen 1) (setvar 'plinetype 2) ;(setvar 'plinewid 0) (setvar 'proxyshow 1) (setvar 'rasterpreview 0) (setvar 'rememberfolders 1) (setvar 'rtdisplay 0) (setvar 'savetime 5) (setvar 'sortents 1) (setvar 'textfill 1) ;(setvar 'treedepth -3020) (setvar 'ucsfollow 0) (setvar 'whiparc 0) (setvar 'xfadectl 75) (setvar 'xloadctl 2) (setvar 'zoomfactor 90) ) (c:ninjasettings) (princ "\n Variables Set.....")
Not real sure this is was you were looking for but it was just posted again under my last topic. DanCode: [Select](defun c:ninjasettings() (setvar 'acadlspasdoc 1) (setvar 'apbox 1) (setvar 'attdia 1) (setvar 'attmode 1) (setvar 'auditctl 0) (setvar 'bindtype 1) (setvar 'blipmode 0) (setvar 'cecolor "bylayer") (setvar 'celtype "bylayer") (setvar 'cmddia 1) (setvar 'clayer "0") (setvar 'coords 2) (setvar 'delobj 1) (setvar 'dimassoc 1) (setvar 'dragmode 2) (setvar 'dragp1 50) (setvar 'dragp2 50) (setvar 'dwgcheck 0) (setvar 'edgemode 1) (setvar 'elevation 0) (setvar 'expert 1) (setvar 'explmode 1) (setvar 'facetratio 1) (setvar 'facetres 10) (setvar 'filedia 1) (setvar 'filletrad 0) (setvar 'fillmode 1) (setvar 'fontalt "romans.shx") (setvar 'grips 1) (setvar 'hideprecision 1) (setvar 'highlight 1) (setvar 'hpbound 1) (setvar 'imagehlt 1) (setvar 'isavebak 1) (setvar 'isavepercent 0) (setvar 'isolines 100) (setvar 'logfilemode 0) (setvar 'lwdisplay 0) (setvar 'maxsort 5000) (setvar 'mbuttonpan 1) (setvar 'mirrtext 0) (setvar 'olequality 3) (setvar 'olestartup 1) (setvar 'osmode 0) (setvar 'pickadd 1) (setvar 'pickauto 1) (setvar 'pickfirst 1) (setvar 'pickstyle 1) (setvar 'plinegen 1) (setvar 'plinetype 2) ;(setvar 'plinewid 0) (setvar 'proxyshow 1) (setvar 'rasterpreview 0) (setvar 'rememberfolders 1) (setvar 'rtdisplay 0) (setvar 'savetime 5) (setvar 'sortents 1) (setvar 'textfill 1) ;(setvar 'treedepth -3020) (setvar 'ucsfollow 0) (setvar 'whiparc 0) (setvar 'xfadectl 75) (setvar 'xloadctl 2) (setvar 'zoomfactor 90) ) (c:ninjasettings) (princ "\n Variables Set.....")
Tim,I just moved up to Catty back in July from Gettysburg / Hanover Area. My company tranfered me to work in Bernardsville, NJ.
(defun GetDxfDesc ( dxf ) (cond ((eq dxf -0001) "Entity name") ((eq dxf -0002) "Referenced entity name") ((eq dxf -0003) "Start extended entity data") ((eq dxf 0004) "Conditional operator") ((eq dxf 0005) "Persistant reactor chain") ((eq dxf 0000) "Type") ((eq dxf 0001) "Primary value/Path") ((eq dxf 0002) "Name") ((eq dxf 0003) "Prompt/DIMPOST") ((eq dxf 0004) "DIMAPOST") ((eq dxf 0005) "Handle/DIMBLK") ((eq dxf 0006) "Linetype/DIMBLK1") ((eq dxf 0007) "Style/DIMBLK2") ((eq dxf 0008) "Layer") ((eq dxf 0010) "X of start ...") ((eq dxf 0011) "X of end ...") ((eq dxf 0012) "X of corner ...") ((eq dxf 0013) "X of corner ...") ((eq dxf 0014) "X of def point") ((eq dxf 0015) "X of def point") ((eq dxf 0016) "X of def point") ((eq dxf 0020) "Y of start ...") ((eq dxf 0021) "Y of end ...") ((eq dxf 0022) "Y of corner ...") ((eq dxf 0023) "Y of corner ...") ((eq dxf 0024) "Y of def point") ((eq dxf 0025) "Y of def point") ((eq dxf 0026) "Y of def point") ((eq dxf 0030) "Z of start ...") ((eq dxf 0031) "Z of end ...") ((eq dxf 0032) "Z of corner ...") ((eq dxf 0033) "Z of corner ...") ((eq dxf 0034) "Z of def point") ((eq dxf 0035) "Z of def point") ((eq dxf 0036) "Z of def point") ((eq dxf 0038) "Elevation") ((eq dxf 0039) "Thickness") ((eq dxf 0040) "Radius/ht/size/width/DIMSCALE") ((eq dxf 0041) "X scale/width/DIMASZ") ((eq dxf 0042) "Y scale/bulge/DIMEXO") ((eq dxf 0043) "Z scale/DIMDLI") ((eq dxf 0044) "Column spacing/DIMEXE") ((eq dxf 0045) "Row spacing/DIMRND") ((eq dxf 0046) "DIMDLE") ((eq dxf 0047) "DIMTP") ((eq dxf 0048) "DIMTM") ((eq dxf 0048) "Linetype scale") ((eq dxf 0050) "Rotation/start angle") ((eq dxf 0051) "End/oblique angle") ((eq dxf 0052) "Oblique angle") ((eq dxf 0053) "DIM text angle") ((eq dxf 0062) "Color") ((eq dxf 0066) "Entities follow flag") ((eq dxf 0067) "Paper space flag") ((eq dxf 0068) "Viewport flag") ((eq dxf 0069) "Viewport number") ((eq dxf 0070) "DIM type/misc flags") ((eq dxf 0071) "Generation flag/DIMTOL") ((eq dxf 0072) "Horiz just/misc values/DIMLIM") ((eq dxf 0073) "Vert just/misc values/DIMTIH") ((eq dxf 0074) "Smooth surface type/DIMTOH") ((eq dxf 0075) "Repeat/flag/count/DIMSE1") ((eq dxf 0076) "Repeat/flag/count/DIMSE2") ((eq dxf 0077) "Repeat/flag/count/DIMTAD") ((eq dxf 0078) "Repeat/flag/count/DIMZIN") ((eq dxf 0090) "ADE lock/Num of vertices") ((eq dxf 0100) "Subclass data marker") ((eq dxf 0102) "Control string") ((eq dxf 0105) "DIMVAR symbol table entry object") ((eq dxf 0110) "UCS origin") ((eq dxf 0111) "UCS X-axis") ((eq dxf 0112) "UCS Y-axis") ((eq dxf 0140) "DIMTXT") ((eq dxf 0141) "DIMCEN") ((eq dxf 0142) "DIMTSZ") ((eq dxf 0143) "DIMALTF") ((eq dxf 0144) "DIMLFAC") ((eq dxf 0144) "DIMLFAC") ((eq dxf 0145) "DIMTVP") ((eq dxf 0145) "DIMTVP") ((eq dxf 0146) "DIMTFAC") ((eq dxf 0146) "DIMTFAC") ((eq dxf 0147) "DIMGAP") ((eq dxf 0148) "DIMALTRND/PS image origin x") ((eq dxf 0149) "PS image origin y") ((eq dxf 0170) "DIMALT") ((eq dxf 0171) "DIMALTD") ((eq dxf 0172) "DIMTOFL") ((eq dxf 0173) "DIMSAH") ((eq dxf 0174) "DIMTIX") ((eq dxf 0175) "DIMSOXD") ((eq dxf 0176) "DIMDLRD") ((eq dxf 0177) "DIMCLRE") ((eq dxf 0178) "DIMCLRT") ((eq dxf 0210) "X of extrusion point") ((eq dxf 0220) "Y of extrusion point") ((eq dxf 0230) "Z of extrusion point") ((eq dxf 0270) "DIMUNIT") ((eq dxf 0271) "DIMDEC") ((eq dxf 0272) "DIMTDEC") ((eq dxf 0273) "DIMALTU") ((eq dxf 0274) "DIMALTTD") ((eq dxf 0275) "DIMAUNIT") ((eq dxf 0280) "DIMJUST") ((eq dxf 0281) "DIMSD1") ((eq dxf 0282) "DIMSD2") ((eq dxf 0283) "DIMTOLJ") ((eq dxf 0284) "DIMTZIN") ((eq dxf 0285) "DIMALTZ") ((eq dxf 0286) "DIMALTTZ") ((eq dxf 0287) "DIMFIT") ((eq dxf 0288) "DIMUPT") ((eq dxf 0290) "Plotting flag") ((eq dxf 0340) "Handle of ref'd Style object") ((eq dxf 0370) "Lineweight enum value") ((eq dxf 0390) "Hard pointer ID/handle of PlotStyleName object") ((eq dxf 0410) "Layout tab name") ;; ;; extended entity data codes ;; ((eq dxf 1000) "XData String") ((eq dxf 1001) "XData Application name") ((eq dxf 1002) "XData Sentinel string") ((eq dxf 1003) "XData Layer associated w/EED") ((eq dxf 1004) "XData Binary data") ((eq dxf 1005) "XData Handle") ((eq dxf 1010) "XData Three reals") ((eq dxf 1011) "XData Three reals") ((eq dxf 1013) "XData Three reals") ((eq dxf 1020) "XData Three reals") ((eq dxf 1021) "XData Three reals") ((eq dxf 1023) "XData Three reals") ((eq dxf 1030) "XData Three reals") ((eq dxf 1031) "XData Three reals") ((eq dxf 1033) "XData Three reals") ((eq dxf 1040) "XData Real") ((eq dxf 1041) "XData Scaled real") ((eq dxf 1070) "XData 16 bit integer") ((eq dxf 1071) "XData 32 bit integer") ;; ;; catch alls (some duplicated codes), ;; don't have time to fix up right now ;; ((<= 1000 dxf 1009) "XData String") ((<= 1010 dxf 1059) "XData Double precision 3D point") ((<= 1010 dxf 1059) "XData Float") ((<= 1060 dxf 1070) "XData 16 bit integer") ((<= 1060 dxf 1079) "XData 16 bit integer") ((<= 1070 dxf 1078) "XData Integer value, count, flag, mode") ((<= 1090 dxf 1099) "XData 32 bit integer") ((<= 1140 dxf 1147) "XData Double precision scalar float") ((<= 1170 dxf 1175) "XData 16 bit integer") ((<= 1280 dxf 1289) "XData 8 bit integer") ((<= 1300 dxf 1309) "XData Arbitrary string") ((<= 1310 dxf 1319) "XData Arbitrary binary chunk") ((<= 1320 dxf 1329) "XData Arbitrary object handle") ((<= 1330 dxf 1339) "XData Soft pointer handle") ((<= 1340 dxf 1349) "XData Hard pointer handle") ((<= 1350 dxf 1359) "XData Soft owner handle") ((<= 1360 dxf 1369) "XData Hard owner handle") (t "Data type unknown") )) e.g.(GetDxfDesc 1005) ==> "XData Handle"