Topic: How to display dimensions before pick the location?

[HasanCAD]

Hi all
This lisp was on internet I want one modification
I want to react the dimension before pick the location

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun C:BSD ( / *error* doc oVAR ss i pts ptsx ptsy d d0 filter)
4.  
5.    (defun *error* (errmsg)
6.     (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))
7.       (princ (strcat "\nError: " errmsg)))
8.     (foreach e oVAR (setvar (car e) (cdr e)))
9.     (vla-endundomark doc)
10.     (princ))
11.  
12.   ;------------------------------------------------------------------------------------------------------
13.  
14.   (vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))
15.   (foreach e '(CMDECHO ORTHOMODE)
16.     (setq oVAR (cons (cons e (getvar e)) oVAR)))
17.  
18.   (setvar 'CMDECHO      0)
19.   (setvar 'ORTHOMODE    0)
20.    
21.   (if (and (princ "\nNeed blocks, ")
22.                (setq ss (ssget (list '(0 . "INSERT"))))
23.            (< 1 (setq i (sslength ss)))
24.            (while (not (minusp (setq i (1- i))))
25.              (setq pts (cons (cdr (assoc 10 (entget (ssname ss i)))) pts)))
26.            (setq ptsx (vl-sort pts '(lambda (p q) (< (car  p) (car  q)))))
27.            (setq ptsy (vl-sort pts '(lambda (p q) (< (cadr p) (cadr q)))))
28.  
29.            (setq d (abs (/ (- (car  (last ptsx)) (caar  ptsx))      ;xmax-xmin
30.                            (if (zerop (setq d0 (- (cadr (last ptsy)) (cadar ptsy)))) ;ymax-ymin
31.                              0.001
32.                              d0))))
33.  
34.            
35.            (setq pt (getpoint "\nSpecify dimension line location: "))
36.  
37.            (or *DimTypeBDA
38.                (setq *DimTypeBDA "Aligned"))
39.            (not (initget "Horizontal Vertical Aligned"))
40.            (setq *DimTypeBDA (cond ((getkword (strcat "\nType of dimension ["
41.                                                       (cond ((> d 1000.) (if (= *DimTypeBDA "Vertical") (setq *DimTypeBDA "Horizontal")) "Horizontal")
42.                                                             ((< d 0.001) (if (= *DimTypeBDA "Horizontal") (setq *DimTypeBDA "Vertical")) "Vertical")
43.                                                             ("Horizontal/Vertical"))
44.                                                       "/Aligned] <" *DimTypeBDA ">: ")))
45.                                    (*DimTypeBDA)))
46.  
47.            (setq pts (if (or (= *DimTypeBDA "Horizontal")
48.                              (and (= *DimTypeBDA "Aligned")
49.                                   (> (- (car (last ptsx))  (caar ptsx))
50.                                      (- (cadr (last ptsy)) (cadar ptsy)))))
51.                        ptsx
52.                        ptsy))
53.            
54.        
55.  
56.            (setq i 0)
57.            )
58.  
59.    
60.     (repeat (1- (length pts))  
61.  
62.       (cond ((= *DimTypeBDA "Horizontal")
63.              (command "_.DIMLINEAR"
64.                         "_none" (nth i pts)
65.                         "_none" (nth (1+ i) pts)
66.                         "_H"
67.                         "_none" pt))
68.            
69.             ((= *DimTypeBDA "Vertical")
70.                (command "_.DIMLINEAR"
71.                         "_none" (nth i pts)
72.                         "_none" (nth (1+ i) pts)
73.                         "_V"
74.                         "_none" pt))
75.            
76.             (T ;Aligned
77.                (command "_.DIMALIGNED"
78.                         "_none" (nth i pts)
79.                         "_none" (nth (1+ i) pts)
80.                         "_none" pt)))
81.  
82.  
83.  
84.       (setq i (1+ i)))
85.  
86.     (princ (strcat "\nError: Wrong selection of at least 2 BLOCKS.")))
87.  
88.   (foreach e oVAR (setvar (car e) (cdr e)))
89.   (vla-endundomark doc)
90.   (princ)
91. )

Thanks

[DEVITG]

@HasanCAD , would you, please, upload the sample.dwg where you apply the lisp?

[HasanCAD]

Attached a sample file
I want to locate the dimension line after the appearance of the dimension. Like QDIM command.

[hanhphuc]

Hi all
This lisp was on internet I want one modification
I want to react the dimension before pick the location

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun C:BSD ( / *error* doc oVAR ss i pts ptsx ptsy d d0 filter)
4.  
5.   ;;<snippets>
6. )
7.  

Thanks

C:BSD ??
C:FH ??
Just notice someone posted at cadtutor 99% identical? author?
https://www.cadtutor.net/forum/topic/70445-automatic-dimensioning-for-blocks-in-autocad/

my grread solution - dynamic transient function gr-lines
wrap progn before 'repeat'

pseudo :
(setq pt (getpoint ... )) ;<-- to be deleted
{if and progn else}

Code - Auto/Visual Lisp: [Select]

1. (progn
2.               (setq  pts (mapcar '(lambda (x) (trans x 0 1)) pts)
3.                      pt (gr-lines (vl-position *DimTypeBDA '("Horizontal" "Vertical" "Aligned"))
4.                          4 (getvar 'viewctr)
5.                          pts
6.                         )
7.                 ) ;setq
8.  
9.   (repeat ;;<snippets>;;)
10.  
11. ); end of progn
12.  
13.