DCL attached.
Piping dim files also.
Steve

I'm trying to not display the highlighted text (dimensions) highlighted in the blue box. https://serving.photos.photobox.com/73251184a706b550d9206f9229dbad7e69d73ba00205b95951b93d45337068212ea762c8.jpg . . I have tried this code: (defun SET_DIM () (setvar 'dimzin 0) ; ; (if (and (= NEWTILE "s7") (/=...

According to the HELP DIALOGUE:

Not implemented. Required for .dwg file compatibility only.
Type: Integer
Saved: In the drawing
Range: 0 to 3

Default: 3

SteveN

Solved :) For anyone following: Revised code for RB24 (also renamed as TB24, as it's a 'toggle') (defun TB24_FLAG () (setq sca $value) ;store metric / imperial scale );end TB24_FLAG Then the code for SCALE_TO_IMP was modified to: (defun SCA_TO_IMP () (cond ((= SCA "1")(setq scal "0.039370")) (T (set...

My next problem! So I've added a 'Metric/Imperial' Scaling toggle to my DCL & LSP files, RB24. See image below, highlighted red. This works in part, in that when the 'toggle' is selected (ticked) the scale is applied to the inserted blocks. It also is applied to the Pipe creation/extrusion. https://...

For anyone following this, a quick update. I think I've solved it, well maybe :) This is the code ATM: (cond ((and (= NEWTILE "rb41")(= sel "pipe_")) ;end and (DRAW_PIPE_SHAPE) ) ((and (= NEWTILE "rb42")(= sel "pipe_")) ;end and (DRAW_PIPE_SHAPE) ) ((and (= NEWTILE "rb43")(= sel "pipe_")) ;end and (...

Well my elation was short lived :( As when I copied the new code for rb49 to rb41-48 the code failed! This is what works: (defun INSERT_BLOCK_VIEW () (if (= NEWTILE "rb31") (SET_BLOCK) ;GOTO SET BLOCK ) ;_ end of if (if (= NEWTILE "rb32") (SET_BLOCK) ;GOTO SET BLOCK ) ;_ end of if (if (= NEWTILE "rb...

Hi, or simple erase the line (DRAW_PIPE_SHAPE) in function C:sln_piping Hi QuanNguyen Thanks again fro your input, as always very helpful :) I did consider your suggestion above, but I wanted to have the choice of pipe Schedule (wall thickness) and diameter integrated into the main dialogue in the ...

I have solved my problem :) I changed this code: (if (= NEWTILE "rb49") (SET_BLOCK) ;GOTO SET BLOCK ) ; end of if ) ; end INSERT_BLOCK_VIEW To this: (if (and (= NEWTILE "rb49") (= sel "pipe_") ) ;end and (DRAW_PIPE_SHAPE) (SET_BLOCK) ) ; end of if ) ; end INSERT_BLOCK_VIEW This now works as I wanted...

I've attached a copy of the lsp file, prior to the changes above. This works in part. The insertion of any block works as required, for s1 & s2. (INSERT_BLOCK_VIEW) the new pipe (s7) works as required. (DRAW_PIPE_SHAPE) However when inserting a block via s1 or s2 (fittings & flanges) the routine the...

Thank you QuanNguyen.

It's strange that this does not work in ICAD 9.0!!
But does not matter.

S.

Hi QuanNguyen and thank you for your reply. I take from your post that I can have what I am trying to achieve, many thanks :) What I am trying to achieve is a little more complicated in that, if you look at the image when Pipe is selected (s7) this enables the 'Schedule' column. when the appropriate...

I am continuing progress with this piping utility: https://serving.photos.photobox.com/281016170f82dcecfd40533fbdd16ea96f300f2eea0a4debc1f55992b8ce456ffcfd8ed9.jpg . All of the 'fittings' & 'Flanges' are complete and are working. Up until now every choice resulted in an existing block (dwg) to be in...

Maybe there's an issue with the option "Direction" of the Extrude command in ICAD 10.

.

I have noticed other 'problems' with the 'Extrude' command in ICAD 10 & sent feedback accordingly.

Can CMS Admin comment please?

SteveN

Hi I have written a lsp file to create a length of pipe between 2 points, eventually to be incorporated into a larger routine. It works as exected in Icad 9.0 (9.0.815.0.PE+.VC15.x64.RF90), but in Icad10 (10.0.1108.115690.PE+.VC15.x64.CMS100) the results are wrong!! see below (lisp file attached) Th...