I have attached 2 lsp files, BLD & Piping & 2 'dim' files.
I have been working on the creation of Blind Flange blocks created on the fly rather than inserting them from a folder. I have completed the simple Flat Face & the Raised Face Blinds. The BLD code is for the Ring Type Joint faced Blind Flanges, which works as a stand alone routine. However when merged into the main Piping file the code fails during the 'insert' command??
Command window info
So the strange thing is that I use the same code for inserting the created blocks??Command: _.-insert
[? to list blocks in drawing/BROWSE/EXPLORE]/<Block to insert> <BLRTJ_#150_18-3D>: BLRTJ_#150_18-3D
[Scale/X/Y/Z/Rotation/Multiple]/<Insertion point for block>: 0,0,0
[Corner/XYZ]/X scale factor <1.000000>:
Error: Function cancelled
If works for the Flat Face Flanges and works for the Raised Face Flanges but NOT the RTJ Flanges
Code: Select all
(defun INS_BLD ()
(command "ucs" "ZA" INPT IANG)
(if (tblsearch "block" BLD1)
(progn
(command "_.-insert" BLD1 "0,0,0" insertscal "" "0"))
); end IF
(command "_ROTATE3D" "L" "" "X" "0,0,0" "270")
(command "ucs" "w" "")
(princ)
)
S.