[dextron3]

Хотел поинтересоваться может есть у кого, принцип действия такой:

1. Выделяешь вьюпорт, нажимаешь правую кнопку
1.1 Введите высоту текста (стиль береться текущий)
2. Выдает текст вида: МАСШТАБ 1:XXX, который береться из свойст вьюпорта (видового окна)


заранее благодрен, данный лисп автоматизирует работу многих нуждающихся

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

А чем поле не устраивает?

[gomer]

Код:

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

(defun c:vpscalelbl ( / *error* en pt h cstmscale str)
  (defun *error* (msg) (princ))
  (if (and (setq en (car (entsel "\nУкажите видовое окно: ")))
		   (progn (initget 1)(setq pt (getpoint "\nУкажите точку вставки текста: ")))
		   (progn (initget 7)(setq h (getreal "\nУкажите высоту текста: ")))
		   (= "AcDbViewport" (vla-get-ObjectName (setq en (vlax-ename->vla-object en))))
	)
	(progn
	  (setq cstmscale (vla-get-CustomScale en))
	  (if (< 1 cstmscale)
		(setq str (strcat "МАСШТАБ " (rtos cstmscale) ":1"))
		(setq str (strcat "МАСШТАБ " "1:" (rtos (/ 1 cstmscale))))
	  )
	  (vla-addText
		(vla-get-Block (vla-get-ActiveLayout (vla-get-Activedocument(vlax-get-acad-object))))
		str
		(vlax-3d-point pt)
		h
	  )
	)
	(princ "\nНекорректные данные!")
  )
  (princ)
)

[dextron3]

gomer, А как сделать чтобы высота текста была константа и прописывалась в самом лиспе?
а то я перенес в начало запрос высоты, затем прописал макросе, но при нажатии правой кнопки чтобы повторить команду второй раз он опять спрашивает про высоту...

Код:

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

(defun c:vpscalelbl ( / *error* en pt h cstmscale str)
  (defun *error* (msg) (princ))
  (if (and (setq en (car (entsel "\nУкажите видовое окно: ")))
(set 'h 3)
		   (progn (initget 1)(setq pt (getpoint "\nУкажите точку вставки текста: ")))
		   (= "AcDbViewport" (vla-get-ObjectName (setq en (vlax-ename->vla-object en))))
	)
	(progn
	  (setq cstmscale (vla-get-CustomScale en))
	  (if (< 1 cstmscale)
		(setq str (strcat "МАСШТАБ " (rtos cstmscale) ":1"))
		(setq str (strcat "МАСШТАБ " "1:" (rtos (/ 1 cstmscale))))
	  )
	  (vla-addText
		(vla-get-Block (vla-get-ActiveLayout (vla-get-Activedocument(vlax-get-acad-object))))
		str
		(vlax-3d-point pt)
		h
	  )
	)
	(princ "\nНекорректные данные!")
  )
  (princ)
)

сделал не стал ждать,