[Chief Justice]

Если надо проставить позиции (в кружочке на кривой выноске), то что обычно используется?...
Рисовать circle и spline очень долго, использовать обычную выноску не правильно...
Что же делать?...
Может на лиспе что-то уже есть?...

[Jurasic]

Предлагаю усовершенствовать макрос nikolaev'a следующим образом:

Код:

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

^C^C_leader \\\;;_b J_CIRCLE;(getvar "lastpoint");;; text j middle (getvar "lastpoint") (* 5 (getvar "dimscale")) 0 *;

В таком случае в чертеже должен быть блок с именем "J_CIRCLE". Его можно создать таким макросом:

Код:

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

^C^C_zoom _w -10,-10 10,10 _circle 0,0 4 -block J_CIRCLE 0,0 _last; _zoom _p

Торчащий в центр окружности кусок выноски редактировать вручную... При этом выноска будет таскаться за блоком с окружностью автоматически. В свойствах выноски поставить "spline with arrow".

[Лентяй]

Chief Justice, ловите еще одну лиспу для отрисовки стрелки трехточечным сплайном. Вызывается с командной строки POZ

Код:

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

(defun C:POZ (/ pts blk lpt)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        pts (apply 'append (mapcar '(lambda (x) (getpoint (strcat "\nEnter Arrow " x " Point: ")))
              (list "1st" "2nd" "3d")))
        csp (if (= (vla-get-ActiveSpace adoc) 0)
              (if (= (vla-get-mspace adoc) 1) (vla-get-ModelSpace adoc) (vla-get-PaperSpace adoc))
              (vla-get-ModelSpace adoc))
        blk (vla-insertblock csp (vlax-3d-point (mapcar '(lambda (x) (nth x pts)) '(6 7 8)))
              (strcat (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list bks "SPN004")))
                     "C:\\*Здесь прописать директорию, в которой находится блок*\\" "") "SPN004") 1 1 1 0)
        lpt (if (< (nth 3 pts) (nth 6 pts)) (- (nth 6 pts) 0.1172)
              (+ (nth 6 pts) 0.1172)));setq
  (vla-addLeader csp (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 8))
        (subst lpt (nth 6 pts) pts))) blk acSplineWithArrow)
);end

[Tech]

Chief Justice
Вчера у меня на работе была лажа с интернетом, пропустил топик, если еще интересно, можно попробовать программку В. Колосова для простановки позиций (http://dwg.ru/dwl/74), я ею пользуюсь уже довольно давно, имеет возможность настройки.

[Chief Justice]

Сообщение от Tech Chief Justice Вчера у меня на работе была лажа с интернетом, пропустил топик, если еще интересно, можно попробовать программку В. Колосова для простановки позиций (http://dwg.ru/dwl/74), я ею пользуюсь уже довольно давно, имеет возможность настройки.

Что-то не работает... Пишет:
Automation Error. Filer error - прерывание программы; error: An error has
occurred inside the *error* functionAutoCAD variable setting rejected:
"CMDECHO" nil

[Chief Justice]

Сообщение от Лентяй Chief Justice, ловите еще одну лиспу для отрисовки стрелки трехточечным сплайном.

Что-то опять не работает:
Enter Arrow 1st Point:
Enter Arrow 2nd Point:
Enter Arrow 3d Point: ; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on unknown exception

[Chief Justice]

Может мне какой-то компонент нужно доустановить?...
Что-то не запускается ничего с подозрительным постоянством...
pyku.sys не предлагать...

[Tech]

Сообщение от Chief Justice Что-то не работает... Пишет: Automation Error. Filer error - прерывание программы; error: An error has occurred inside the *error* functionAutoCAD variable setting rejected: "CMDECHO" nil

У меня тоже не сразу получилось, там есть тонкости по конфигурационному файлу, на всякий случай проверь наличие POS.CFG в c:\Documents and Settings\USER\Local Settings\Application Data\Autodesk\AutoCAD 2006\R16.2\enu\ и подправь под свои настройки позиции основной слой: и стиль текста:

[Tech]

Лентяй :
У меня выдает то же самое, что и у Chief Justice см. пост 25.

[Alan]

>Chief Justice
Вы получили меню? поставили? запустили? Работали?
Ну и как получилась спецификация?

[Chief Justice]

Сообщение от Alan Вы получили меню? поставили? запустили? Работали? Ну и как получилась спецификация?

Поставили... запустили... не работает...
Пишет:
error: no function definition: C:NZ305

[Chief Justice]

Сообщение от Tech У меня тоже не сразу получилось, там есть тонкости по конфигурационному файлу, на всякий случай проверь наличие POS.CFG в c:\Documents and Settings\USER\Local Settings\Application Data\Autodesk\AutoCAD 2006\R16.2\enu\ и подправь под свои настройки позиции основной слой: и стиль текста:

Файла pos.cfg у меня там нет... И вообще нет такого файла ни в указанной директории, ни в директории автокада ни вообще на диске...

_appload pos.VLX successfully loaded.
pos.VLX successfully loaded.
pos.VLX was added to the Startup Suite.

Command: pos
Automation Error. Filer error - прерывание программы; error: Automation Error.
Filer error - прерывание программы

[Alan]

>Chief Justice
Надо было написать о не работе на почту. Я в форуме бываю по возможности, а почту просматриваю регулярно.
Да и форум это для всех, а мы начали обмениваться файлами.
Письмо с инструкцией отослал.
Удачи.

[Tech]

>Chief Justice
Странно, у меня висит на кнопке с макросом:
^C^C(if (eq cos nil) (load "pos.vlx")) ^C^C_pos , и запускается без возражений, POS.CFG стирал, он его заново прописывает .
Попробуй ему вручную его подсунуть
[ATTACH]1135358075.zip[/ATTACH]

[Лентяй]

Chief Justice и Tech, Вы блок, который я выложил в начале темы сохоанили? Директорию, в которой он сохранен, в соответствующем месте программы прописали?

Код:

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

"C:\\*Здесь прописать директорию, в которой находится блок*\\"

Слэши при этом использовали двойные (\\)? Проверьте, и доложьте об исполнении! :evil:

[Tech]

Сообщение от Лентяй Директорию, в которой он сохранен, в соответствующем месте программы прописали? Код: [Выделить все] "C:\\*Здесь прописать директорию, в которой находится блок*\\" Слэши при этом использовали двойные (\\)? Проверьте, и доложьте об исполнении! :evil:

Именно все так и сделал,

Код:

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

"C:\\TMP\\" "") "SPN004") 1 1 1 0)

файл переименовал в SPN004.dwg, после вызова POZ получил:
Enter Arrow 1st Point:
Enter Arrow 2nd Point:
Enter Arrow 3d Point: ; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on unknown exception

[Лентяй]

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

Код:

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

(defun C:POZ (/ pts blk lpt) 
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        bks (vla-get-blocks adoc)
        pts (apply 'append (mapcar '(lambda (x) (getpoint (strcat "\nEnter Arrow " x " Point: "))) 
              (list "1st" "2nd" "3d"))) 
        csp (if (= (vla-get-ActiveSpace adoc) 0) 
              (if (= (vla-get-mspace adoc) 1) (vla-get-ModelSpace adoc) (vla-get-PaperSpace adoc)) 
              (vla-get-ModelSpace adoc)) 
        blk (vla-insertblock csp (vlax-3d-point (mapcar '(lambda (x) (nth x pts)) '(6 7 8))) 
              (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list bks "SPN004"))) 
                    "C:\\Temp\\SPN004.dwg" "SPN004") 1 1 1 0)
        lpt (if (< (nth 3 pts) (nth 6 pts)) (- (nth 6 pts) 0.1172) 
              (+ (nth 6 pts) 0.1172)));setq 
  (vla-addLeader csp (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 8)) 
        (subst lpt (nth 6 pts) pts))) blk acSplineWithArrow) 
);end

По случаю наступающего Рождества, ушел пьянствовать водку и нарушать безобразие.

[Tech]

>Лентяй
Да, теперь похоже работает. А праздники - дело святое
Merry Christmas!

[TheBuTeK]

Друзья, а не проще ли создать блок с атрибутами?
Потом при желании можно ведь не только изменить номер позиции. но и занести данные в базу, которую впоследствии экспортировать в Access, например...

[Лентяй]

С добрым уторм, дорогой TheBuTeK! См. пост №2.