TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: PM on July 15, 2021, 02:50:31 AM

Title: help with an alert box message
Post by: PM on July 15, 2021, 02:50:31 AM
I am using this lisp. This code try to find  "_WATER LINE" and then start. I want to add an alert message box incase this layer does not exist and say that this layer does not exist in this drawing. I dont want to create it just alert.

Code - Auto/Visual Lisp: [Select]
  1.     (vl-load-com)
  2.     (defun c:symbsxim (/ selset offset_value loops hatch layer)
  3.       (if (and (= (type
  4.                     (setq selset (vl-catch-all-apply
  5.                                    (function
  6.                                      (lambda ()
  7.                                        (ssget '((0 . "*POLYLINE") (8 . "_WATER LINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>")))
  8.                                      ) ;_ end of lambda
  9.                                    ) ;_ end of function
  10.                                  ) ;_ end of vl-catch-all-apply
  11.                     ) ;_ end of setq
  12.                   ) ;_ end of type
  13.                   'pickset
  14.                ) ;_ end of =
  15.                (= (type (setq offset_value
  16.                                (vl-catch-all-apply
  17.                                  (function (lambda ()
  18.                                              (initget "1 2")
  19.                                              (cond ((getkword "\nSelect offset value [1 - OPRION1 /2 - OPTION2] <1> : "))
  20.                                                    (t "1")
  21.                                              ) ;_ end of cond
  22.                                            ) ;_ end of lambda
  23.                                  ) ;_ end of function
  24.                                ) ;_ end of vl-catch-all-apply
  25.                         ) ;_ end of setq
  26.                   ) ;_ end of type
  27.                   'str
  28.                ) ;_ end of =
  29.           ) ;_ end of and
  31.                (setq layer (vla-add (vla-get-layers adoc) "POLYLINE LAYER"))
  32.                (vla-put-color layer 253) ; change color
  33.                (vla-put-lineweight layer aclnwt005) ; change lineweight
  34.                (setq offset_value (cond ((= (atoi offset_value) 1) 0.5)
  35.                                         ((= (atoi offset_value) 2) 2.0)
  36.                                   ) ;_ end of cond
  37.                      loops        (mapcar (function
  38.                                             (lambda (ent)
  39.                                               (vl-sort (mapcar (function (lambda (x)
  40.                                                                            (setq x (car (vlax-safearray->list (vlax-variant-value x))))
  41.                                                                            (vla-put-layer x (vla-get-name layer))
  42.                                                                            x
  43.                                                                          ) ;_ end of lambda
  44.                                                                ) ;_ end of function
  45.                                                                (list (vla-offset (vlax-ename->vla-object ent) offset_value)
  46.                                                                      (vla-offset (vlax-ename->vla-object ent) (- offset_value))
  47.                                                                ) ;_ end of list
  48.                                                        ) ;_ end of mapcar
  49.                                                        (function (lambda (a b) (> (vla-get-area a) (vla-get-area b))))
  50.                                               ) ;_ end of vl-sort
  51.                                             ) ;_ end of lambda
  52.                                           ) ;_ end of function
  53.                                           ((lambda (/ tab item)
  54.                                              (repeat (setq tab  nil
  55.                                                            item (sslength selset)
  56.                                                      ) ;_ end setq
  57.                                                (setq tab (cons (ssname selset (setq item (1- item))) tab))
  58.                                              ) ;_ end of repeat
  59.                                            ) ;_ end of lambda
  60.                                           )
  61.                                   ) ;_ end of mapcar
  62.                ) ;_ end of setq
  63.                (foreach item loops
  64.                  (setq hatch (vla-addhatch
  65.                                (vla-get-modelspace adoc)
  66.                                achatchpatterntypepredefined
  67.                                "ANSI31"
  68.                                :vlax-false
  69.                                achatchobject
  70.                              ) ;_ end of vla-AddHatch
  71.                  ) ;_ end of setq
  72.                  (vla-appendouterloop
  73.                    hatch
  74.                    (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list (car item)))
  75.                  ) ;_ end of vla-appendouterloop
  76.                  (vla-appendinnerloop
  77.                    hatch
  78.                    (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list (cadr item)))
  79.                  ) ;_ end of vla-appendinnerloop
  80.                  (vla-evaluate hatch)
  81.                  (vla-update hatch)
  82.                  (vla-put-patternscale hatch 0.1) ; change hatch scale
  83.                  (vla-put-layer hatch (vla-get-name layer))
  84.                ) ;_ end of foreach
  85.                (vla-endundomark adoc)
  86.         ) ;_ end of progn
  87.       ) ;_ end of if
  88.       (princ)
  89.     (command "_Setbylayer" (ssget "X") "" "_Yes" "_Yes")
  90.     ) ;_ end of defun    
  91.  
  92.  

Thanks
Title: Re: help with an alert box message
Post by: ribarm on July 15, 2021, 04:04:07 AM
Code - Auto/Visual Lisp: [Select]
  2. (defun c:symbsxim (/ selset offset_value loops hatch layer)
  3.       (if (tblsearch "LAYER" "_WATER LINE")
  4.             (if (and (= (type
  5.                           (setq selset (vl-catch-all-apply
  6.                                          (function
  7.                                            (lambda ()
  8.                                              (ssget '((0 . "*POLYLINE") (8 . "_WATER LINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>")))
  9.                                            ) ;_ end of lambda
  10.                                          ) ;_ end of function
  11.                                        ) ;_ end of vl-catch-all-apply
  12.                           ) ;_ end of setq
  13.                         ) ;_ end of type
  14.                         'pickset
  15.                      ) ;_ end of =
  16.                      (= (type (setq offset_value
  17.                                      (vl-catch-all-apply
  18.                                        (function (lambda ()
  19.                                                    (initget "1 2")
  20.                                                    (cond ((getkword "\nSelect offset value [1 - OPRION1 /2 - OPTION2] <1> : "))
  21.                                                          (t "1")
  22.                                                    ) ;_ end of cond
  23.                                                  ) ;_ end of lambda
  24.                                        ) ;_ end of function
  25.                                      ) ;_ end of vl-catch-all-apply
  26.                               ) ;_ end of setq
  27.                         ) ;_ end of type
  28.                         'str
  29.                      ) ;_ end of =
  30.                 ) ;_ end of and
  32.                      (setq layer (vla-add (vla-get-layers adoc) "POLYLINE LAYER"))
  33.                      (vla-put-color layer 253) ; change color
  34.                      (vla-put-lineweight layer aclnwt005) ; change lineweight
  35.                      (setq offset_value (cond ((= (atoi offset_value) 1) 0.5)
  36.                                               ((= (atoi offset_value) 2) 2.0)
  37.                                         ) ;_ end of cond
  38.                            loops        (mapcar (function
  39.                                                   (lambda (ent)
  40.                                                     (vl-sort (mapcar (function (lambda (x)
  41.                                                                                  (setq x (car (vlax-safearray->list (vlax-variant-value x))))
  42.                                                                                  (vla-put-layer x (vla-get-name layer))
  43.                                                                                  x
  44.                                                                                ) ;_ end of lambda
  45.                                                                      ) ;_ end of function
  46.                                                                      (list (vla-offset (vlax-ename->vla-object ent) offset_value)
  47.                                                                            (vla-offset (vlax-ename->vla-object ent) (- offset_value))
  48.                                                                      ) ;_ end of list
  49.                                                              ) ;_ end of mapcar
  50.                                                              (function (lambda (a b) (> (vla-get-area a) (vla-get-area b))))
  51.                                                     ) ;_ end of vl-sort
  52.                                                   ) ;_ end of lambda
  53.                                                 ) ;_ end of function
  54.                                                 ((lambda (/ tab item)
  55.                                                    (repeat (setq tab  nil
  56.                                                                  item (sslength selset)
  57.                                                            ) ;_ end setq
  58.                                                      (setq tab (cons (ssname selset (setq item (1- item))) tab))
  59.                                                    ) ;_ end of repeat
  60.                                                  ) ;_ end of lambda
  61.                                                 )
  62.                                         ) ;_ end of mapcar
  63.                      ) ;_ end of setq
  64.                      (foreach item loops
  65.                        (setq hatch (vla-addhatch
  66.                                      (vla-get-modelspace adoc)
  67.                                      achatchpatterntypepredefined
  68.                                      "ANSI31"
  69.                                      :vlax-false
  70.                                      achatchobject
  71.                                    ) ;_ end of vla-AddHatch
  72.                        ) ;_ end of setq
  73.                        (vla-appendouterloop
  74.                          hatch
  75.                          (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list (car item)))
  76.                        ) ;_ end of vla-appendouterloop
  77.                        (vla-appendinnerloop
  78.                          hatch
  79.                          (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list (cadr item)))
  80.                        ) ;_ end of vla-appendinnerloop
  81.                        (vla-evaluate hatch)
  82.                        (vla-update hatch)
  83.                        (vla-put-patternscale hatch 0.1) ; change hatch scale
  84.                        (vla-put-layer hatch (vla-get-name layer))
  85.                      ) ;_ end of foreach
  86.                      (vla-endundomark adoc)
  87.               ) ;_ end of progn
  88.             ) ;_ end of if
  89.             (alert "Layer : \"_WATER LINE\" don't exist...")
  90.       ) ;_ end of if (tblsearch "LAYER" "_WATER LINE")
  91.       (command "_Setbylayer" (ssget "X") "" "_Yes" "_Yes")
  92.       (princ)
  93. ) ;_ end of defun
  94.  
Title: Re: help with an alert box message
Post by: PM on July 15, 2021, 10:23:04 AM
Hi  ribarm work nice. Can you add another two options. Some times i have a lot of close polylines on _WATER LINE layer. Can you add an alert box that


1)  "The polyline you select is not on  _WATER LINE  layer !!!!" 
and

2)  "The polyline you select is not close !!!!!" 

Thanks
Title: Re: help with an alert box message
Post by: ribarm on July 15, 2021, 10:55:21 AM
1) With the filter already present in the code, you are not able to select polyline entities that reside in some other layer than "WATER LINE"...
2) What do you mean not close?
Perhaps closed?
Title: Re: help with an alert box message
Post by: PM on July 15, 2021, 11:02:48 AM
This  code must work only for close polyline. Some times the first and the last vertex of the polyline is in the same point but the polyline is not close. So you try to run the code and you dont take any results and you dont know why untill find out that the polyline is not close or the close polyline you select is not in the correct layer. Thats why i want this two filters

Thanks