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 (setq labelPt
(list (- (car basePt) 0.05) ; left (list (- (car basePt) 0.05) ; left
(+ (cadr basePt) 0.9) ; up (+ (cadr basePt) 0.65) ; up
(caddr basePt))) (caddr basePt)))
;; Create label text ;; Create label text
@ -284,7 +284,7 @@ no (defun clearDrawing ( / ss)
(setq dpmList (car csvData)) (setq dpmList (car csvData))
(setq deviceGroups (cadr csvData)) (setq deviceGroups (cadr csvData))
(setq count (length dpmList)) (setq count (length dpmList))
(setq userInput (getstring "\nEnter zone number (e.g., 01, 02): "))
(if (and blockName (> count 0)) (if (and blockName (> count 0))
(progn (progn
@ -350,11 +350,13 @@ no (defun clearDrawing ( / ss)
(progn (progn
(setq vlaObj (vlax-ename->vla-object ent)) (setq vlaObj (vlax-ename->vla-object ent))
(vla-move vlaObj (vlax-3d-point 0 0 0) (vlax-3d-point desiredX desiredY 0)) (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 ;; Label the ZONE_32H lines
(labelZone32Lines ent) (labelZone32Lines ent)
(setq insPt targetPt)
(setq revTriPt (list (+ (car insPt) 42.7) (+ (cadr insPt) desiredY) (caddr insPt)))
(command "_.-INSERT" "REVTRIANGLE2" revTriPt 1 0 1)
) )
) )