I only have one .NET module left that I maintain in the app store. The framework version actually loaded just fine in 2025,
but I went ahead and used the conversion tool and ported it to Core.

I never tried to step into to it with the debugger though. I remember that .NET would load specific debugger depending on the .config settings.. so it may run, just not debug
I’m going to rewrite it in C++, I didn’t take the news of Microsoft depreciating framework well   

Maybe that’s a Framework DLL that doesn’t like Core?

 

Hello

I saw the below lisp by Tharwat Al Choufi, it works very well, but it counts all the texts, can it be modified to find/search for a specific text or part of a text (i.e. GL1A or GL1A*)

The link for the lisp is
https://www.theswamp.org/index.php?topic=57209.msg607461#msg607461


Thank you



(defun c:Test (/ s i e l g p b c r)
  ;; Tharwat Al Choufi - Date : 13.Dec.2021     ;;
  (and (setq s (ssget "_X" '((0 . "TEXT,MTEXT"))))
       (repeat (setq i (sslength s))
         (setq i (1- i)
               e (entget (ssname s i))
               l (list (cdr (assoc 1 e)) (cdr (assoc 8 e)))
         )
         (or (and (vl-some (function (lambda (q)
                                       (and (= (car q) (car l))
                                            (= (cadr q) (cadr l))
                                            (setq r q)
                                       )
                                     )
                           )
                           g
                  )
                  (setq g (vl-remove r g)
                        g (cons (append l (list (1+ (caddr r)))) g)
                  )
             )
             (setq g (cons (append l (list 1)) g))
         )
       )
       (setq p (getpoint "\nTable insertion point :"))
       (setq r 1
             b (vla-addtable
                 (vla-get-block
                   (vla-get-activelayout
                     (vla-get-activedocument (vlax-get-acad-object))
                   )
                 )
                 (vlax-3d-point p)
                 (+ 2 (length g))
                 3
                 635
                 3100
               )
       )
       (progn
         (vla-put-RegenerateTableSuppressed b :vlax-true)
         (vla-setcolumnwidth b 2 1300)
         (mapcar '(lambda (r_ c_ s_)
                    (set:text_ b r_ c_ 350 s_)
                  )
                 '(0 1 1 1)
                 '(0 0 1 2)
                 '("STRING COUNT" "String" "Layer" "QTY")
         )
         (foreach s (vl-sort g '(lambda (j k) (< (cadr j) (cadr k))))
           (setq r (1+ r))
           (mapcar '(lambda (c s) (set:text_ b r c 300 s))
                   '(0 1 2)
                   s
           )
         )
         (vla-put-RegenerateTableSuppressed b :vlax-false)
       )
  )
  (princ)
)
(vl-load-com)
;;                              ;;
(defun set:text_ (obj row col hgt str)
  (vla-settext obj row col str)
  (vla-setcelltextheight obj row col hgt)
  (vla-setcellalignment obj row col acmiddlecenter)
)
 

Nice find!
I was going to say to reverse the polyline and check the paramatpoint again, but the code you found seems to work great.

Thanks.

Yes, your code helps if I want to find the intersection point(s). Note: I also have that code and use it often for other purposes but my questions is how can I find its stations/distance from the beginning of polyline. My Task: I need to mark the stations on a profile and my code will only provide the shortest station only.

Here is some code to get a list of intersections.
These are the locations you need to add the extra number.
Hope it's helpful!

Code - Auto/Visual Lisp: [Select]

1. ;|
2. ; Get Intersections - dexus
3. ; Returns a list of intersecting points in a polyline
4. ; @Param poly Ename or vla-object of polyline
5. ; @Returns List of intersecting points
6. |;
7. (defun getIntersections (poly / cords)
8.   (if
9.     (and
10.       (setq poly ; Get (list ename vla-object) of selected object
11.         (cond
12.            ((= (type poly) 'vla-object) (list (vlax-vla-object->ename poly) poly))
13.            ((= (type poly) 'ename) (list poly (vlax-ename->vla-object poly)))
14.         )
15.       )
16.       (vl-position (cdr (assoc 0 (entget (car poly)))) '("POLYLINE" "LWPOLYLINE"))
17.       (setq cords (getcoords (car poly)))
18.     )
19.     (vl-remove-if ; Return list of intersections
20.       (function (lambda (i) (vl-member-if (function (lambda (cord) (equal cord i 1e-9))) cords))) ; Remove coordinates (vertices)
21.       (LM:group-n (gc:VariantToLispData (vla-intersectwith (cadr poly) (cadr poly) acExtendNone)) 3) ; Get all intersections
22.     )
23.   )
24. )
25.  
26. ;; CAB 08/25/06 - revised 07.25.07
27. ;; get pline vertex list for any
28. (defun getcoords (ent / endp idx pt result)
29.   (setq idx 0
30.         endp (vlax-curve-getEndParam ent))
31.   (while (< (setq idx (1+ idx)) endp)
32.     (setq pt (vlax-curve-getpointatparam ent idx)
33.           result (cons pt result))
34.   )
35.   (reverse (cons (vlax-curve-getendpoint ent) result))
36. )
37.  
38. ;; gc:VariantToLispData - gile
39. ;; Converts a variant or a safearray into an AutoLISP data
40. ;; input var = variant or safearray
41. (defun gc:VariantToLispData (var)
42.   (cond
43.     ((= (type var) 'variant)
44.       (gc:VariantToLispData (vlax-variant-value var)))
45.     ((= (type var) 'safearray)
46.       (if (< -1 (vlax-safearray-get-u-bound var 1))
47.         (mapcar 'gc:VariantToLispData (vlax-safearray->list var))
48.       )
49.     )
50.     (t var)
51.   )
52. )
53.  
54. ;; Group by Number  -  Lee Mac
55. ;; Groups a list 'l' into a list of lists, each of length 'n'
56. (defun LM:group-n ( l n / r )
57.     (if l
58.         (cons
59.             (reverse (repeat n (setq r (cons (car l) r) l (cdr l)) r))
60.             (LM:group-n l n)
61.         )
62.     )
63. )