Topic: Setting Lineweight within layer creation LISP

[npstewart87]

Good afternoon,

I have several LISP routines created by a former employee and im looking for help to edit one of them. Please note that I have extremely limited ability to code much of anything. This particular routine is to create a revision cloud layer of any name, sets the color, etc. The problem is that the lineweight is far to light and I would like to darken it up so its easier to read. Ideally I would like the lineweight to be "0.010".

The text of the routine is below.

Code - Auto/Visual Lisp: [Select]

1. (defun D_Cloud_dcl_setup ( / )
2.   (if (= REV nil) (setq REV "1"))
3.  
4.   (setq D_Cloud_dcl_id (load_dialog (strcat PTH8 "D_Cloud.dcl")))
5.   (if (not (new_dialog "D_Cloud" D_Cloud_dcl_id))
6.     (exit))
7.  
8.   (set_tile "rev_no" REV)
9.   (action_tile "rev_no" "(setq REV $value)")
10.  
11.   (action_tile "accept" "(done_dialog)")
12.   (action_tile "cancel" "(setq CANCEL_PROG \"1\")")
13.  
14.   (start_dialog)
15.   (unload_dialog D_Cloud_dcl_id)
16. );end
17.  
18. ;;; ************************** Layer for cloud Cloud Program ****************
19. (defun D_Cloud_Layer ( / )
20.  
21.   (setq L_NAME (strcat "G-CLOUD-" REV)
22.         L_TRI (strcat L_NAME "-TRI"))
23.  
24.   (command "-LAYER" "M" L_NAME "C" "100" "" "LT" "CONTINUOUS" "" "")
25. );end
26.  
27. ;;; ************************** Draw Program *********************************
28. (defun D_Cloud_R_Draw ( / )
29.   (setvar "OSMODE" 0)
30.  
31.   (setq LOWER_PT (getpoint "\nPick cloud lower rectangle point: <None> " ))
32.   (initget 32)
33.   (setq UPPER_PT (getcorner LOWER_PT "\nPick cloud upper rectangle point: <None> " ))
34.   (setq ARC_DIST (* 0.2 (getvar "dimscale" )))        ;;set & adjust arc size
35.  
36.   (command "rectangle" "c" 0 0 "e" 0 "f" 0 "t" 0 "w" 0 LOWER_PT UPPER_PT)
37.  
38.   (command "_revcloud" "s" "N" "a" ARC_DIST ARC_DIST "o" "last" "N")
39.  
40.   (princ "\nClosing cloud...")
41.  
42.   (command "-LAYER" "M" L_TRI "C" "161" "" "LT" "CONTINUOUS" "" "")
43.   (setvar "ATTDIA" 0)
44.   (setvar "ATTREQ" 1)
45.   (prompt "\nInsertion point: <None> ")
46.   (command "_INSERT" (strcat pth1 "Text_Sym_Tri") "SCALE" SB "ROTATE" 0 PAUSE)
47.   (command REV "")
48. );end
49.  
50.  
51. ;;; ************************** Main Program *********************************
52. (defun C:D_Cloud_R ( / LOWER_PT UPPER_PT ARC_DIST )
53.   (var_in)
54.   (if (= SB nil)
55.     (Alert_Msg)
56.     (progn
57.       (D_Cloud_dcl_setup)
58.       (if (/= CANCEL_PROG "1")(D_Cloud_Layer))
59.       (if (/= CANCEL_PROG "1")(D_Cloud_R_Draw))
60.     );end_progn
61.   );end_if
62.   (var_out)
63. );end

EDIT (John): Added code tags.

[Dlanor]

Try this. I've commented the lines with the items added to both layers. The lineweight has been set to 0.09mm which was the nearest to your figure of 0.01

Code - Auto/Visual Lisp: [Select]

1. (defun D_Cloud_dcl_setup ( / )
2.   (if (= REV nil) (setq REV "1"))
3.  
4.   (setq D_Cloud_dcl_id (load_dialog (strcat PTH8 "D_Cloud.dcl")))
5.   (if (not (new_dialog "D_Cloud" D_Cloud_dcl_id))
6.     (exit))
7.  
8.   (set_tile "rev_no" REV)
9.   (action_tile "rev_no" "(setq REV $value)")
10.  
11.   (action_tile "accept" "(done_dialog)")
12.   (action_tile "cancel" "(setq CANCEL_PROG \"1\")")
13.  
14.   (start_dialog)
15.   (unload_dialog D_Cloud_dcl_id)
16. );end
17.  
18. ;;; ************************** Layer for cloud Cloud Program ****************
19. (defun D_Cloud_Layer ( / )
20.  
21.   (setq L_NAME (strcat "G-CLOUD-" REV)
22.         L_TRI (strcat L_NAME "-TRI"))
23.  
24.   (command "-LAYER" "M" L_NAME "C" "100" "" "LT" "CONTINUOUS" "" "LW" "0.09" "" "")  ; added  "LW" "0.09" ""
25. );end
26.  
27. ;;; ************************** Draw Program *********************************
28. (defun D_Cloud_R_Draw ( / )
29.   (setvar "OSMODE" 0)
30.  
31.   (setq LOWER_PT (getpoint "\nPick cloud lower rectangle point: <None> " ))
32.   (initget 32)
33.   (setq UPPER_PT (getcorner LOWER_PT "\nPick cloud upper rectangle point: <None> " ))
34.   (setq ARC_DIST (* 0.2 (getvar "dimscale" )))        ;;set & adjust arc size
35.  
36.   (command "rectangle" "c" 0 0 "e" 0 "f" 0 "t" 0 "w" 0 LOWER_PT UPPER_PT)
37.  
38.   (command "_revcloud" "s" "N" "a" ARC_DIST ARC_DIST "o" "last" "N")
39.  
40.   (princ "\nClosing cloud...")
41.  
42.   (command "-LAYER" "M" L_TRI "C" "161" "" "LT" "CONTINUOUS" "" "LW" "0.09" "" "") ; added  "LW" "0.09" ""
43.   (setvar "ATTDIA" 0)
44.   (setvar "ATTREQ" 1)
45.   (prompt "\nInsertion point: <None> ")
46.   (command "_INSERT" (strcat pth1 "Text_Sym_Tri") "SCALE" SB "ROTATE" 0 PAUSE)
47.   (command REV "")
48. );end
49.  
50.  
51. ;;; ************************** Main Program *********************************
52. (defun C:D_Cloud_R ( / LOWER_PT UPPER_PT ARC_DIST )
53.   (var_in)
54.   (if (= SB nil)
55.     (Alert_Msg)
56.     (progn
57.       (D_Cloud_dcl_setup)
58.       (if (/= CANCEL_PROG "1")(D_Cloud_Layer))
59.       (if (/= CANCEL_PROG "1")(D_Cloud_R_Draw))
60.     );end_progn
61.   );end_if
62.   (var_out)
63. );end

[npstewart87]

Thanks so much for the reply!

I just went to try this and it says "Error: extra right paren on input"

[Dlanor]

I've rechecked the posted code and there is no extra right parentesis. perhaps in one of the referenced sub routines

(var_in), (Alert_Msg) or (var_out)

You may also have missed the first opening paren when copying. I have attached a copy of the file in case this was the problem.