[MrKiLLER]

Как автоматически проставить размеры на чертеже? (слышал что в проге "3D энерготехника" эта функция реализована)

[mik2012w]

MrBrown, у Вас ошибка в строке 15.

Код:

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

 (defun c:autodim (/ P1 P2 P3 P4 h1 h2)	; p1-p4 - четыре точки прямоугольника, h1-высота шрифта, h2-высота подъема размерной линии.
  (graphscr)
  (setvar "cmdecho" 0)			;отключение подсказок
  (setq osm (getvar "osmode"))	; запоминаем привязки пользователя
  (setvar "osmode" 0)			; отключаем привязки
  ;построение прямоугольника
  (setq p1 (getpoint "первая вершина"))
  (terpri)
  (setq p3 (getpoint p1 "вторая вершина"))
  (terpri)
  (setq p2 (list (car p3) (cadr p1)))
  (setq p4 (list (car p1) (cadr p3)))
  (command "._pline" p1 p2 p3 p4 "_c")
  ;образмеривание прямоугольника
  (setq h1 (getvar "DIMTXT"))		;высота текста
  (setq h2 (* h1 2))
  (setq p5 (polar p2 (/ pi 2) h2))
  (setvar "DIMDLI" h2)

  (command "_dimlinear" p1 p2 p5)
  (setvar "osmode" osm)		; возвращает привязки пользователя
  (setvar "cmdecho" 1)		;включение подсказок
  (princ)		                        ;тихий выход
)                                              ; _end_of_defun

Я добавил координаты 5-той точки. И временно отключал привязку.