[Grinzaid]

(defun cath ()
(setq name (getvar "dwgname"))
(setq prefix (getvar "dwgprefix"))
(setq path (strcat prefix name))
(setq inspointext (getpoint "\Pick an insertion point of string: "))
(command "text" inspointext pause pause path))

(defun c:name ()
(setq name (getvar "dwgname"))
(setq inspointext (getpoint "\Pick an insertion point of string: "))
(command "text" inspointext pause pause name))

Работает нормально, но когда доходит до (command "text" inspointext pause pause path)), в командной строке всё время остаётся "Pick an insertion point of string:" вместо возможности просмотра высоты и угла текста по умолчанию. Может вместо pause надо что-то другое вписать?

[vk]

Вобще-то, все в норме. Вот что выдает:

Command: name
Pick an insertion point of string: text
Current text style: "Romant" Text height: 9.9317
Specify start point of text or [Justify/Style]:
Specify height <9.9317>:
Specify rotation angle of text <20>:
Enter text: 3 (1).dwg
Command: nil

Посмотри, может быть, у тебя где-то затесалась (setvar "cmdecho" 0). Проверь и если она действительн = 0, сделай ее = 1.

[kos]

С командой text при таком ее использовании может быть много проблем. На одну ты уже напоролся. Может случиться так, что в твоем рисунке установлена фиксированная высота шрифта. В таком случае запросов на ввод данных будет меньше (AutoCAD не спросит высоту текста) и, следовательно, количество твоих pause не будет соотвествовать количеству запросов AutoCAD. Результат: сообщение об ошибке и вылет программы.
Единственно верный выход в таком случае: создавать текстовую строку с использованием функций entmake или vla-add-text, предварительно определив параметры текста. Да, получается сложнее, но надежнее, универсальнее, быстрее...
Для себя давно решил: если в программе можно заменить функцию command на entmake или vla-add-*, то именно так и нужно поступить.

А у меня на кнопке висит макрос
^C^C_text \\\$M=$(getvar,dwgname);
- и никаких проблем....

[Grinzaid]

Спасибо, друззя! Помогло!
cmdecho был 0. При 1 работает отлично.

По ходу дела втолкуйте мне бестолковому, как "повесть макрос на кнопку"? Стыжусь своего скудоумия

[kos]

Алекс, попробуйте установить фиксированную высоту шрифта и воспользоваться вашим макросом. Вот протокол:

Код:

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

Command: _text
Current text style:  "Standard"  Text height:  114.3723
Specify start point of text or [Justify/Style]:
Specify rotation angle of text <28>:
Enter text:

Command: Drawing1.dwg
Unknown command "DRAWING1.DWG".  Press F1 for help.

Так что возможны варианты, и обязанность программиста (а мы пишем сообщения в разделе "Программирование", не так ли?) все эти варианты отследить и обработать.

[Grinzaid]

Спасибо, светлейшие умы. Лиспик удалось привести в терп. вид:

;;Designed by Vlad Grinzaid 16.12.2003

(defun cath ()
(setq name (getvar "dwgname"))
(setq prefix (getvar "dwgprefix"))
(setq path (strcat prefix name))
(setq inspointext (getpoint "\Pick an insertion point of string: "))
(command "cmdecho" "1" "")
(command "-style" "Stamp" "txt" "0" "1" "0" "n" "n" "n")
(command "text" inspointext pause pause path))

(defun c:name ()
(setq name (getvar "dwgname"))
(setq inspointext (getpoint "\Pick an insertion point of string: "))
(command "cmdecho" "1" "")
(command "-style" "Stamp" "txt" "0" "1" "0" "n" "n" "n")
(command "text" inspointext pause pause name))

(load "C:/Program Files/ACAD2000/EXPRESS/julian.lsp")
(defun c:dat (/ j c cdate m d y hh mm ss msec)
(setq inspointext (getpoint "\Pick an insertion point of string: "))
(setq cdate (jtod (setq j (getvar "date")))
c (fix cdate)
y (/ c 10000) ; Get year
m (rem (/ c 100) 100) ; Ger month
d (rem c 100) ; Get day
c (- cdate (fix cdate)) ; Strip date from date/time
c (fix (* c 1000000000)) ; Scale time to get HHMMSSmmm integer
hh (/ c 10000000) ; Get hours
mm (rem (/ c 100000) 100) ; Get minutes
ss (rem (/ c 1000) 100) ; Get seconds
msec (rem c 1000) ; Get milliseconds
)

(setq attr (strcat (itoa d) "." (itoa m) "." (itoa y)))

(command "cmdecho" "1" "")
(command "-style" "Stamp" "txt" "0" "1" "0" "n" "n" "n")
(command "text" inspointext pause pause attr))

)

[vk]

К такой строке
(command "-style" "Stamp" "txt" "0" "1" "0" "n" "n" "n")
я отношусь с некоторой опаской. Если для какого то конкретного шрифта, то вроде ничего, а в общем виде для любого шрифта лучше использовать (entmod) и/или (entmake) не указывая параметры, которые могут быть установлены по умолчанию.

[Grinzaid]

Всё дело в еврейских шрифтах. Если не указывать "англоговорящий2 шрифт, надпись выйдет на абракадабрском

[Holon]

А у меня почему-то неработает

Код:

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

(defun c:dat (/ j c cdate m d y hh mm ss msec)
  (setq inspointext (getpoint "\Pick an insertion point of string: "))
  (setq	cdate (jtod (setq j (getvar "date")))
	c     (fix cdate)
	y     (/ c 10000)		; Get year 
	m     (rem (/ c 100) 100)	; Ger month 
	d     (rem c 100)		; Get day 
	c     (- cdate (fix cdate))	; Strip date from date/time 
	c     (fix (* c 1000000000))	; Scale time to get HHMMSSmmm integer 
	hh    (/ c 10000000)		; Get hours 
	mm    (rem (/ c 100000) 100)	; Get minutes 
	ss    (rem (/ c 1000) 100)	; Get seconds 
	msec  (rem c 1000)		; Get milliseconds 
  )
)

_$
; 1 form loaded from #<editor "D:/LISP/DATA.LSP">
_$ (c:dat)
; error: no function definition: JTOD

[Кочетков Андрей]

Надо просто набрать dat

[Holon]

Command: dat
Pick an insertion point of string: ; error: no function definition: JTOD

[Holon]

Есть вопрос что такое ? JTOD И что это за строка, для чего?

Код:

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

(load "C:/Program Files/ACAD2000/EXPRESS/julian.lsp")

[Владимир М]

Holon, я думаю достаточно

Код:

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

(load "C:/EXPRESS/julian.lsp")

Grinzaid, если надо может перед getvar может сохранить старые настройки setvar? А потом после выполнении функции вернуть при необходимости..

[Holon]

Честно говоря я так и непонял что, это за файл

(load "C:/EXPRESS/julian.lsp")

, да и JTOD остается под знаком вопроса

[VVA]

JTOD -- Converts Julian date to AutoCAD calendar date/time
Находится в файле julian.lsp. Файл лежит в папке Express. Чтобы узнать где, набери (findfile "julian.lsp"). Он находится в путях поиска, поэтому достаточно набрать (load "julian.lsp") .
Но это то же самое, что использовать переменную CDATE

Код:

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

(defun c:dat (/ j c cdate m d y hh mm ss msec) 
  (setq inspointext (getpoint "\Pick an insertion point of string: ")) 
  (setq   cdate (getvar "cdate")
   c     (fix cdate) 
   y     (/ c 10000)      ; Get year 
   m     (rem (/ c 100) 100)   ; Ger month 
   d     (rem c 100)      ; Get day 
   c     (- cdate (fix cdate))   ; Strip date from date/time 
   c     (fix (* c 1000000000))   ; Scale time to get HHMMSSmmm integer 
   hh    (/ c 10000000)      ; Get hours 
   mm    (rem (/ c 100000) 100)   ; Get minutes 
   ss    (rem (/ c 1000) 100)   ; Get seconds 
   msec  (rem c 1000)      ; Get milliseconds 
  ) 
)

[VVA]

А вообще теперь полями это делается без проблем. Из старых способов - RTEXT. Вот ссылочка
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=27579KG