LCI/autocad
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changes to the network diagram for the bna8 project

Browse Source
This commit is contained in:
Salijoghli 2025-08-06 13:47:45 +04:00
parent 68f882eb7e
commit 1bbe001d0d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
network-diagram-v3.lsp
View File

@ -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)
)
)