dxfval options, textToVal, pt2block download

textToValue.lsp

@@ -0,0 +1,37 @@
+(defun C:textToValue (/ tt readval bb)
+    ;; (setq i 0);counter to zero
+    ;; (setq imax 1);while variable
+
+    (vl-load-com)
+    (graphscr)
+
+    (setq tt (entsel "\nPick text object"))
+
+    (setq readval (print (cdr (assoc 1 (entget (car tt))))))
+
+    (setq bb (entsel "\nPick block with attribute"))
+
+    (LM:setattributevalue (car bb) "HEIGHT" readval)
+
+)
+
+;; Set Attribute Value  -  Lee Mac
+;; Sets the value of the first attribute with the given tag found within the block, if present.
+;; blk - [ent] Block (Insert) Entity Name
+;; tag - [str] Attribute TagString
+;; val - [str] Attribute Value
+;; Returns: [str] Attribute value if successful, else nil.
+
+(defun LM:setattributevalue ( blk tag val / enx )
+    (if (and (setq blk (entnext blk)) (= "ATTRIB" (cdr (assoc 0 (setq enx (entget blk))))))
+        (if (= (strcase tag) (strcase (cdr (assoc 2 enx))))
+            (if (entmod (subst (cons 1 val) (assoc 1 (reverse enx)) enx))
+                (progn
+                    (entupd blk)
+                    val
+                )
+            )
+            (LM:setattributevalue blk tag val)
+        )
+    )
+)