From 1bbe001d0dee57ef86fbbf7198cf00e0253fbda7 Mon Sep 17 00:00:00 2001
From: Salijoghli <107577102+Salijoghli@users.noreply.github.com>
Date: Wed, 6 Aug 2025 13:47:45 +0400
Subject: [PATCH] changes to the network diagram for the bna8 project

---
 network-diagram-v3.lsp | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/network-diagram-v3.lsp b/network-diagram-v3.lsp
index 33226b8..bae266e 100644
--- a/network-diagram-v3.lsp
+++ b/network-diagram-v3.lsp
@@ -136,7 +136,7 @@ no (defun clearDrawing ( / ss)
 
             (setq labelPt
               (list (- (car basePt) 0.05)  ; left
-                    (+ (cadr basePt) 0.9) ; up
+                    (+ (cadr basePt) 0.65) ; up
                     (caddr basePt)))
 
             ;; Create label text
@@ -284,7 +284,7 @@ no (defun clearDrawing ( / ss)
   (setq dpmList (car csvData))
   (setq deviceGroups (cadr csvData))
   (setq count (length dpmList))
-  
+  (setq userInput (getstring "\nEnter zone number (e.g., 01, 02): "))
 
   (if (and blockName (> count 0))
     (progn
@@ -350,11 +350,13 @@ no (defun clearDrawing ( / ss)
           (progn
             (setq vlaObj (vlax-ename->vla-object ent))
             (vla-move vlaObj (vlax-3d-point 0 0 0) (vlax-3d-point desiredX desiredY 0))
+            ;; Set ALL attributes in the ZONE_32H block to E8912., E8913., etc.
+            (setq zoneName (strcat userInput (itoa (+ 702 i)) "."))
+            (foreach att (vlax-invoke vlaObj 'GetAttributes)
+              (vla-put-textstring att zoneName)
+            )
             ;; Label the ZONE_32H lines
             (labelZone32Lines ent)  
-            (setq insPt targetPt) 
-            (setq revTriPt (list (+ (car insPt) 42.7) (+ (cadr insPt) desiredY) (caddr insPt)))
-            (command "_.-INSERT" "REVTRIANGLE2" revTriPt 1 0 1)
           )
         )