Leaderboard

Brilliant as always Tharwat

This should work unless you have the insert point of your attributed blocks far from the attribute definition. (defun c:test (/ int sel 1pt 2pt alg ent ins cls) (and (princ "\nSelect Attributed blocks to align to line : ") (setq int -1 sel (ssget "_:L" '((0 . "INSERT") (66 . 1))) ) (setq 1pt (getpoint "\nSpecify base point of line : ")) (setq 2pt (getpoint "\nSpecify next point of line : " 1pt)) (setq alg (entmakex (list '(0 . "LINE") (cons 10 1pt) (cons 11 2pt))) ) (while (setq int (1+ int) ent (ssname sel int) ) (and (setq ins (cdr (assoc 10 (entget ent))) cls (vlax-curve-getclosestpointto alg ins) ) (vlax-invoke (vlax-ename->vla-object ent) 'Move ins cls) ) ) ) (and alg (entdel alg)) (princ) ) (vl-load-com)

or you can hit a check into this box.

Hi guys, Old topic, but for what it's worth: this "hollow architectural tick" appears when your drawing is not entirely flat. Even though you guys use LT, the elevation of points can appear. And then your dimensions will change from "filled" to "hollow". Make sure your drawing is flat (many ways: flatten (the worse, because rename you blocks); move to 0,0,1e99 and 0,0,-1e99; change properties elevation to 0). Purge the drawings and then do again some dimensions. That should work properly. Have fun