« Last post by divtiply on Today at 01:47:14 pm »
The simplest way is to use runas.exe
(defun c:m0 nil
(entmake (list '(0 . "LINE") '(10 0.0 0.0 0.0) '(11 0.0 0.0 0.0)))
(defun c:d0 ( / ss i li )
(if (setq ss (ssget "_X" '((0 . "LINE"))))
(repeat (setq i (sslength ss))
(setq li (ssname ss (setq i (1- i))))
(if (equal (cdr (assoc 10 (entget li))) (cdr (assoc 11 (entget li))) 1e-50)
- public static double GetArea(this Polyline pline)
- dynamic pl = pline.AcadObject;
- return (double)pl.Area;
Dear Kerry thank you for helping me. I know how to override the scale but I don't know how to select all dimension entities and introduce the IF instance or create another dimension style and auto switch it.
Firstly Scale has nothing to do with the dimension text value.
You will need to override the text value with modified text.
Strange is it may seem what the OP wants is standard for German architectural drawings and there are developers who have made quite a buck selling reactor based programs to accomplish this.
(1 . "point $-1 -1 $-1 2345.9455475743089 1855.0536092334189 0.45174828767022246 #")
I think there is some confusion about the term 'reactive point'. What ribarm means by this term is a point on an entity that can be used to select it (a clickable point). At least that is what I think he means. This has nothing to do with Xdata.
Code - Auto/Visual Lisp: [Select]