[编程交流] 学习vba

;1
(defun c:test ()
(princ)
)
;2
(setq dscl (getvar "dimscale"))
;3
(setvar "dimscale" 1)
4;
(command "-linetype" "_s")
;5
(alert(strcat "\nthis is a test"))

Sub Test()
Dim vVar as variant 'Is a variant in case assigned to text or number
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
vVar = ThisDrawing.GetVariable ("DIMSCALE")
ThisDrawing.SetVariable "DIMSCALE" , 1# 'lb sign included if no decimal
ThisDrawing.SendCommand "-LINETYPE" & vbCr & "S" & vbCr & "ByLayer" & vbCr & vbCr
ThisDrawing.Utility.Prompt "this is a test"
End Sub

oops..
If you want a pop up box  it is...
MsgBox "this is a test"

(setq ss1 (ssget "x"))
(setq EntN (ssname ss1 1))
(setq EntL (entget EntN))
(setq EntT (cdr (assoc 0 EntL)))
(setq EntC (assoc 62 EntL))
(setq ss2 (ssadd))
(if (not EntC)
(ssadd EntN ss2)
);if