[bad]

Ктонть знает, есть ли в Акаде такая команда, котора при нажатии на точку (node) выводит на экран ее координатв и СОХРАНЯЕТ В ВИДЕ ТЕКСТА НА ЭКРАНЕ

[Румын]

ID
мда...

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

_.dimordinate?

[Хмурый]

Поле в тексте со ссылкой на координаты точки?

[KSI]

(defun C:PTEXT ()
(setq old_osmode (getvar "OSMODE"))
(setvar "OSMODE" 8)
(setq h_text (getreal "\nВысота шрифта:<3> "))
(if (= nil h_text) (setq h_text 3))
(setq coord_pt (getpoint "\nВыберите точку: "))
(while (/= coord_pt nil)

(setq coord_x (rtos (nth 0 coord_pt) 2 16))
(setq coord_y (rtos (nth 1 coord_pt) 2 16))
(setq coord_xy (strcat coord_x ", " coord_y))

(command "_text" coord_pt h_text "0" coord_xy)
(setq coord_pt (getpoint "\nВыберите точку: "))
); end while
(setvar "OSMODE" old_osmode)
(princ)
)

[eax]

точно не помню, но кажется идёт с 2007-ой версии. Там кнопочки есть, которые автоматически заменяют значения координат в текстовых строках (внимание: не многосрочный текст)

[zenon]

Посмотри набор утилит KitoX Toolset v6 там вроде есть

[bad]

ого! спасибо, погляжу все на досуге...

[Goodwin S.G.]

eax, что-то этот архив установиться не хочет, ошибку выдаёт, что такое??

[eax]

айй, точно. сегодня обязательно выложу

[Profan]

Черт, на autocad.ru было полно программ по этой тематике, в том числе мощнейшая программа от VVA...

[eax]

библиотека громоздская ... кажется она от Delphi идёт. В принципе для работы утилит её лучше бросить в папку ...\windows\system32. Либо держите её с каждым моим exe-шником в одной папке.
На неделе сброшу свой полный сборник утилит

[VVA]

Черт, на autocad.ru было полно программ по этой тематике, в том числе мощнейшая программа от VVA...

Я даже адрес сказать могу:
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=16704wY
На свою голову хранил только ссылки на интересные темы. Пороюсь в загашниках, может чего и откопаю

[VVA]

Долго копаться не пришлось:

Код:

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

;|Принцип работы
1. Высота текста - переменная TEXTSIZE
2. Стрелки нет
3. Координаты берутся из ПСК
4. Точность округления настраивается системной переменной LUPREC
   команда _UNITS
   |;
;Было раньше http://www.autocad.ru/cgi-bin/f1/board.cgi?t=16704wY
;Теперь http://dwg.ru/f/showthread.php?t=14385
(defun C:XY ( / p1 p2)
(defun _addleader (up-string low-string   start-point end-point /   lead_obj ann_obj point-list)
  (if (not low-string)(setq low-string "")) ;_ end of if
  (setq point-list (apply 'append (list start-point end-point)))
  (setq   ann_obj    (vla-addmtext
         (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
         (vlax-3d-point end-point)
         0
         (if (/= low-string "")(strcat up-string "\\P" low-string) up-string)))
  (if (vlax-property-available-p ann_obj 'BackgroundFill)
  (vla-put-BackgroundFill ann_obj :vlax-true))
  (setq lead_obj (vla-addleader
        (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
        (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble
             (cons 0 (1- (length point-list)))) point-list)) ann_obj  acLineNoArrow ) ;_ end of vla-AddLeader
   ) ;_ end of setq
  (vla-put-attachmentpoint ann_obj
    (+ 4 (if (> (car end-point) (car start-point))
       0  2) ;_ end of if
       (if (/= low-string "")
           0 3) ;_ end of if
       ) ;_ end of +
    ) ;_ end of vla-put-AttachmentPoint
  (vla-put-insertionpoint ann_obj (vlax-3d-point end-point))
  (vla-put-verticaltextposition lead_obj acOutside)
  (vla-put-coordinate lead_obj 1 (vlax-3d-point end-point)) lead_obj)
  (vl-load-com)
  (princ "\nLUPREC value = ")(princ (getvar "LUPREC"))
  (princ "  TEXTSIZE value = ")(princ (getvar "TEXTSIZE"))
(while
  (and
    (setq p1 (getpoint "\nPoint <exit>: "))
    (setq p2 (getpoint p1 "\nDirection <exit>: "))
    )
    (_addleader
    (strcat "X=" (rtos (nth 0 p1) 2))
    (strcat "Y=" (rtos (nth 1 p1) 2))
    (trans p1 1 0)(trans p2 1 0))(princ)))
(princ "\nType XY in command line")

Откуда беруться настройки написано в комментариях

[eax]

в продолжение выкладываю свою программку, делающую выноску с подписанными координатами. Особенность - при любой ПСК координата читается из "мировой" ПСК. Сделано для очаровательной сотруднице Союздорпроекта. не доработано в плане вариаций настроек, но очень удобно.

[alex101000]

Проектировщики попросили доработать выноску для своих нужд. С Лиспом - на уровне мартышки: там подсмотреть, вставить найденное, попытаться запустить.
Помогите, пожалуйста, разобраться где ошибаюсь:

Код:

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

 
(defun C:QW ( / length color podpis p1 p2)
(defun _addleader (up-string low-string   start-point end-point /   lead_obj ann_obj point-list)
  (if (not low-string)(setq low-string "")) ;_ end of if
  (setq point-list (apply 'append (list start-point end-point)))
  (setq   ann_obj    (vla-addmtext
         (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
         (vlax-3d-point end-point)
         0
         (if (/= low-string "")(strcat up-string "\\P" low-string) up-string)))
  (if (vlax-property-available-p ann_obj 'BackgroundFill)
  (vla-put-BackgroundFill ann_obj :vlax-true))
  (setq lead_obj (vla-addleader
        (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
        (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble
             (cons 0 (1- (length point-list)))) point-list)) ann_obj  acLineNoArrow ) ;_ end of vla-AddLeader
   ) ;_ end of setq
  (vla-put-attachmentpoint ann_obj
    (+ 4 (if (> (car end-point) (car start-point))
       0  2) ;_ end of if
       (if (/= low-string "")
           0 3) ;_ end of if
       ) ;_ end of +
    ) ;_ end of vla-put-AttachmentPoint
  (vla-put-insertionpoint ann_obj (vlax-3d-point end-point))
  (vla-put-verticaltextposition lead_obj acOutside)
  (vla-put-coordinate lead_obj 1 (vlax-3d-point end-point)) lead_obj)
  (vl-load-com)
  (princ "\nLUPREC value = ")(princ (getvar "LUPREC"))
  (princ "  TEXTSIZE value = ")(princ (getvar "TEXTSIZE"))
(while
  (and
    (setq poly (car (entsel "\nPick polyline: "))) 
    (setq vpoly (vlax-ename->vla-object poly)) 
    (setq len (vlax-get-property vpoly "length")) 
    (setq color (vlax-get-property vpoly "color")) 
(setq podpis
  (cond
	((= color 1) "Лоток тип 1") ; Красный
	((= color 2) "Лоток тип 2") ; Желтый
	((= color 3) "Лоток тип 3") ; Зеленый
	((= color 4) "Лоток тип 4") ; Голубой
	((= color 5) "Лоток тип 5") ; Синий
	((= color 6) "Труба тип 1") ; Фиолетовый
	((= color 7) "Труба тип 2") ; Белый
	(T "")
   )
)

    (setq p1 (getpoint "\nPoint <exit>: "))
    (setq p2 (getpoint p1 "\nDirection <exit>: "))
    )
    (_addleader

    (strcat "Прокладка - " podpis)
    (strcat "Длина=" (vl-string-translate "." "," (rtos length 2 4))) ;_меняем точку (.) на запятую (,)


    (trans p1 1 0)(trans p2 1 0))(princ)))
(princ "\nType QW in command line")

Даёт указать полилинию, точку выноски, при указании направления выноски (второй точки) получаю сообщение в командной строке:
"Direction <exit>: ; ошибка: неверный тип аргумента: numberp: nil".
Заранее признателен.

[Valery Brelovsky]

Сообщение от alex101000 Проектировщики попросили доработать выноску для своих нужд.

Может это подойдёт?
http://www.caduser.ru/forum/index.ph...D=44&TID=46534

[sertor]

Удалил.