setq：AutoCAD内嵌AutoLISP编程语言中的赋值函数。
作用：给变量进行赋值。
格式：(setq name value [name value]...)
其中Name为变量名 Value为赋予变量的值