[игорёк]

У меня такая ситуация:
Нужно указать имя таблицы, но функция не принимает имя таблицы типа "string" нужно "character"
Может кто подскажет что я не так делаю... :cry:

Код:

[Выделить все]

			;	table_name-character
			;	tip_sten-character
			;	meterial-character
			;	shirina-real

(defun nev_table (tip_sten meterial shirina / tabldefn)
  (setq	tabldefn
	 '(("tablename" . table_name)
	   ("tabledesc" . "New Sample Table")
	   ("columns"
					; Define a field 
	    (("colname" . "tip_Sten")
	     ("coldesc" . "Field1 Description")
	     ("coltype" . "character")
	     ("defaultval" . tip_sten)
	    )
					; Define a field 
	    (("colname" . "Material")
	     ("coldesc" . "Field1 Description")
	     ("coltype" . "character")
	     ("defaultval" . material)
	    )
					; Define a field 
	    (("colname" . "Shirina_mm")
	     ("coldesc" . "Field1 Description")
	     ("coltype" . "real")
	     ("defaultval" . shirina)
	    )
	   )
	  )
  )
				; Create the new table
  (ade_oddefinetab tabldefn)
  (princ)
)

[игорёк]

В Help написано
"character Any alphanumeric string, including the empty string, "" "
но всеравно ничего не понятно...

[Кулик Алексей aka kpblc]

Проблема в твоей ade_oddefinetab, я думаю.

[игорёк]

Нет. Это функция AutoCAD MAP и она нормально работает в таком случае:

Код:

[Выделить все]

(setq	tabldefn
	 '(("tablename" . "table_name")
	   ("tabledesc" . "New Sample Table")
	   ("columns"
					; Define a field 
	    (("colname" . "tip_Sten")
	     ("coldesc" . "Field1 Description")
	     ("coltype" . "character")
	     ("defaultval" . "tip_sten")
	    )
					; Define a field 
	    (("colname" . "Material")
	     ("coldesc" . "Field1 Description")
	     ("coltype" . "character")
	     ("defaultval" . "material")
	    )
					; Define a field 
	    (("colname" . "Shirina_mm")
	     ("coldesc" . "Field1 Description")
	     ("coltype" . "real")
	     ("defaultval" . "shirina")
	    )
	   )
	  )
  )
				; Create the new table
  (ade_oddefinetab tabldefn)