Lisp to create a dim with fix text dim "@50"

[tinh_hcmut]

Hi all,

Please help me to make a Lisp to create a dim with always show dim value is "@50". The command maybe called : d50

Currently i use 2 command : dimlinear to create a dim and then ddedit to edit dim text value to @Anonymous. How can i combine into 1 command d50

Thank you so much

[ВeekeeCZ]

(defun c:D50 () (command-s "_.DIMLINEAR") (setpropertyvalue (entlast) "DimensionText" "@50") (princ))

[tinh_hcmut]

Thank for your feedback but it said
Error: undefined function - COMMAND-S
I use cad2007 fyi

[ВeekeeCZ · Accepted solution]

Well, none of the previously used funcs is available in 2007.

(defun c:D50 ()
  (command "_.DIMLINEAR") (while (> (getvar 'cmdactive) 0) (command pause))
  (entmod (subst '(1 . "@50") (assoc 1 (entget (entlast))) (entget (entlast))))
  (princ)
  )

[tinh_hcmut]

it worked. Thank you very much.

[Sea-Haven]

Another.

(defun c:d50 ( / )
(command-s "_.DIMLINEAR" (getpoint "\nPick 1st point ")(getpoint "\nPick second point ") "T" (strcat "<>@50") )
(princ)
)