Please you help me,
How to extract block-name from
" C:\DOCUME~1\adruianb\LOCALS~1\Temp\dfn_b053.dxf"?
insert Enter block name or [?]: C:\DOCUME~1\adruianb\LOCALS~1\Temp\dfn_b053.dxf
Updating handle seed.
Units: Unitless Conversion: 25.4000
Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: X Specify X
scale factor or [Corner] <1>: 1.0 Enter Y scale factor <use X scale factor>:
1.0 Specify Z scale factor or <use X scale factor>: 1.0
Specify rotation angle <0.0000g>: 0.0
Command:
_.rename Enter object type to rename
[Block/Dimstyle/LAyer/LType/Material/Style/Tablestyle/Ucs/VIew/VPort]: B
Enter old block name: dfn_block_dxfrep
After
You convert anyDXF to AutoLisp, full-automatically,
---then you save this listDXF-strings to temp%file%
$rr (dfn_file_list2file nume dxfu))
You must control command-line using "(defun dfn_cmd_canceld( / $rr cx dx ch)", you search broken-input from (command-s or (command
(defun dfn_cmd_canceld( / $rr cx dx ch)
You can insert anyDXF to list of strings or one-string-inside AutoLisp.
(Defun dfn_block_dxfrepernivelmentInit (/ rr s)
(setq s nil)
(if (equal dfn_block_dxfrepernivelmentS nil)
(progn
;;(T206:00006600)
(setq s ""
s (strcat s "\n\n\n\n 0\nSECTION\n 2\nHEADER\n 9\n$ACADVER\n 1\nAC1009\n 9\n$INSBASE\n 10\n0.00\n 20\n0.00\n 30\n0.0\n 9\n$EXTMIN\n 10\n-26.287839\n 20\n-29.278888\n 30\n0.0\n 9\n$EXTMAX\n 10\n53.731115\n 20\n45.597282\n 30\n0.0\n 9\n$LIMMIN\n 10\n0.0\n 20\n0.0\n 9\n$LIMMAX\n 10\n420.0\n 20\n297.0\n 9\n$ORTHOMODE\n 70\n 0\n 9\n$FILLMODE\n 70\n 1\n 9\n$QTEXTMODE\n 70\n 0\n 9\n$LTSCALE\n 40\n1.0\n 9\n$OSMODE\n 70\n 1\n 9\n$ATTMODE\n 70\n ")
s (strcat s "1\n 9\n$TEXTSIZE\n 40\n2.5\n 9\n$TRACEWID\n 40\n1.0\n 9\n$TEXTSTYLE\n 7\nSTANDARD\n 9\n$CLAYER\n 8\n0\n 9\n$CELTYPE\n 6\nBYLAYER\n 9\n$CECOLOR\n 62\n 7\n 9\n$DIMSCALE\n 40\n1.0\n 9\n$DIMASZ\n 40\n0.18\n 9\n$DIMTAD\n 70\n 0\n 9\n$DIMZIN\n 70\n 0\n 9\n$DIMTVP\n 40\n0.0\n 9\n$DIMSTYLE\n 2\nSTANDARD\n 9\n$DIMCLRD\n 70\n 0\n 9\n$LUNITS\n 70\n 2\n 9\n$LUPREC\n 70\n 4\n 9\n$FILLETRAD\n 40\n0.0\n 9\n$AUNITS\n 70\n 2\n 9\n$AUPREC\n 70\n 4\n 9\n")
s (strcat s "$MENU\n 1\n.\n 9\n$ELEVATION\n 40\n0.0\n 9\n$PELEVATION\n 40\n0.0\n 9\n$THICKNESS\n 40\n0.0\n 9\n$LIMCHECK\n 70\n 0\n 9\n$TDCREATE\n 40\n2452237.06\n 9\n$TDUPDATE\n 40\n2454258.030577\n 9\n$TDINDWG\n 40\n0.028332\n 9\n$TDUSRTIMER\n 40\n0.028331\n 9\n$USRTIMER\n 70\n 1\n 9\n$ANGBASE\n 50\n270.0\n 9\n$ANGDIR\n 70\n 1\n 9\n$PLINEWID\n 40\n0.0\n 9\n$COORDS\n 70\n 0\n 9\n$SPLFRAME\n 70\n 0\n 9\n$SPLINETYPE\n 70\n 6\n 9\n$SPLINESEGS\n 70\n 8\n 9\n")
s (strcat s "$ATTDIA\n 70\n 0\n 9\n$ATTREQ\n 70\n 1\n 9\n$HANDLING\n 70\n 1\n 9\n$HANDSEED\n 5\n139\n 9\n$UCSNAME\n 2\n\n 9\n$UCSORG\n 10\n0.0\n 20\n0.0\n 30\n0.0\n 9\n$UCSXDIR\n 10\n1.0\n 20\n0.0\n 30\n0.0\n 9\n$UCSYDIR\n 10\n0.0\n 20\n1.0\n 30\n0.0\n 9\n$PUCSNAME\n 2\n\n 9\n$PUCSORG\n 10\n0.0\n 20\n0.0\n 30\n0.0\n 9\n$PUCSXDIR\n 10\n1.0\n 20\n0.0\n 30\n0.0\n 9\n$PUCSYDIR\n 10\n0.0\n 20\n1.0\n 30\n0.0\n 9\n$USERI1\n 70\n 0\n 9\n$USERR1\n 40\n200.0\n 9\n$WORLDVIEW\n ")
s (strcat s "70\n 1\n 9\n$TILEMODE\n 70\n 1\n 9\n$MAXACTVP\n 70\n 48\n 9\n$PLIMCHECK\n 70\n 0\n 9\n$PEXTMIN\n 10\n1.0E+020\n 20\n1.0E+020\n 30\n1.0E+020\n 9\n$PEXTMAX\n 10\n-1.0E+020\n 20\n-1.0E+020\n 30\n-1.0E+020\n 9\n$PLIMMIN\n 10\n0.0\n 20\n0.0\n 9\n$PLIMMAX\n 10\n420.0\n 20\n297.0\n 9\n$UNITMODE\n 70\n 0\n 9\n$VISRETAIN\n 70\n 1\n 9\n$PLINEGEN\n 70\n 0\n 9\n$PSLTSCALE\n 70\n 1\n 0\nENDSEC\n 0\nSECTION\n 2\nTABLES\n 0\nTABLE\n 2\nLTYPE\n 70\n 1\n")
s (strcat s " 0\nLTYPE\n 2\nCONTINUOUS\n 70\n 0\n 3\nSolid line\n 72\n 65\n 73\n 0\n 40\n0.0\n 0\nENDTAB\n 0\nTABLE\n 2\nLAYER\n 70\n 1\n 0\nLAYER\n 2\n0\n 70\n 0\n 62\n 7\n 6\nCONTINUOUS\n 0\nENDTAB\n 0\nTABLE\n 2\nSTYLE\n 70\n 1\n 0\nSTYLE\n 2\nSTANDARD\n 70\n 0\n 40\n0.0\n 41\n1.0\n 50\n0.0\n 71\n 0\n 42\n2.5\n 3\nTXT\n 4\n\n 0\nENDTAB\n 0\nENDSEC\n 0\nSECTION\n 2\nENTITIES\n 0\nCIRCLE\n 5\n71\n 8\n0\n 10\n0.0\n 20\n0.0\n 30\n0.0\n 40\n1.0\n")
s (strcat s " 0\nPOLYLINE\n 5\n74\n 8\n0\n 66\n 1\n 10\n0.0\n 20\n0.0\n 30\n0.0\n 40\n1.0\n 41\n1.0\n 0\nVERTEX\n 5\n258\n 8\n0\n 10\n0.3535533905932737\n 20\n-0.3535533905932744\n 30\n0.0\n 42\n0.4142135623730951\n 0\nVERTEX\n 5\n259\n 8\n0\n 10\n0.3535533905932738\n 20\n0.3535533905932731\n 30\n0.0\n 0\nSEQEND\n 5\n25A\n 8\n0\n 0\nPOLYLINE\n 5\n79\n 8\n0\n 66\n 1\n 10\n0.0\n 20\n0.0\n 30\n0.0\n 40\n1.0\n 41\n1.0\n 0\nVERTEX\n 5\n25B\n 8\n0\n 10\n-0.3535533905932737\n 20\n")
s (strcat s "0.3535533905932731\n 30\n0.0\n 42\n0.4142135623730951\n 0\nVERTEX\n 5\n25C\n 8\n0\n 10\n-0.3535533905932738\n 20\n-0.3535533905932743\n 30\n0.0\n 0\nSEQEND\n 5\n25D\n 8\n0\n 0\nENDSEC\n 0\nEOF\n\n\n\n#endregion\n"))
;;(/T206:00009687)
(setq dfn_block_dxfrepernivelmentS s)
(setq s "")
)
)
)