Leaderboard

I have started again with this and started making defuns for each type of task. A start, making defuns rather than just code. See updated code below

maybe not exactly what you want but pretty close : clickme

sorry for my translation, I have modified it as you told me and it is precisely what I needed, this is a great help, thank you very much

If you mean that you want to interactively select the similar items, then just change: (setq sset (ssget "_P" (list (cons 0 obj)))) to (setq sset (ssget (list (cons 0 obj))))

@leonucadomi Simple. Change: (setq sset (ssget "_X" (list (cons 0 obj)))) to: (setq sset (ssget "_P" (list (cons 0 obj))))

Thanks a lot, it's working the way it should now!

The first obvious problem is this first line. You close the bracket for setq at the end of line 1. This means that the rest of the lines don't do setq. So elst, radius, center do not get set (setq ent (ssname ss (setq i (1- i)))) elst (entget ent) center (cdr (assoc 10 elst)) radius (cdr (assoc 40 elst)) ) -------- I removed that bracket. And put it way down below the code. That bracket now closes the repeat loop. (defun c:SclCrQuadr ( / i quadrant ss scl ent elst center radius basePt ) (prompt "\nSelect the quadrant to scale [Upper/Bottom/Right/Left]: ") (setq quadrant (getstring)) (setq quadrant (substr (strcase quadrant) 1 1)) (prompt "\nSelect the circles to scale...") (setq ss (ssget '((0 . "CIRCLE")))) (if (not ss) (progn (prompt "\nNo circles are selected. Interruption.\n") (exit) ) ) (setq scl (getreal "\nEnter the scaling factor: ")) (if (not scl) (progn (prompt "\nScaling factor is not set. Interruptionе.\n") (exit) ) ) (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i))) elst (entget ent) center (cdr (assoc 10 elst)) radius (cdr (assoc 40 elst)) ) (cond ((= quadrant "U") (setq basePt (list (car center) (+ (cadr center) radius)))) ((= quadrant "B") (setq basePt (list (car center) (- (cadr center) radius)))) ((= quadrant "R") (setq basePt (list (+ (car center) radius) (cadr center)))) ((= quadrant "L") (setq basePt (list (- (car center) radius) (cadr center)))) (T (progn (prompt "\nAn incorrect quadrant has been entered. Interruption.\n") (exit) ) ) ) (princ "*") (command "_.SCALE" ent "" basePt scl) ) ;; Her is where the repeat must end (prompt "\nScaling is completed.\n") (princ) )

It's fairly simple, as you can see in my example, while dragging the Level 2 Views into my sheet, an "ant line" (clouded in RED in the attached image) appears aligning your Level 2 view to the view beside it which is Level 1. You can also do this while aligning the View Title below the views. For some reason, I cannot attach a GIF screen recording so I just zip it up and attached it here. Kindly download and unzip on your side to see a better example. Hope this helps. Align Views.zip

I get the same error in AutoCAD 2024. (setq il1 (atof (getpropertyvalue blkent "USIL~BlockAttribute"))) (setq il2 (atof (getpropertyvalue blkent "DSIL~BlockAttribute"))) Could be the issue. Found this Solved: How to get rid of "ADS request error"? - Autodesk Community