Простановка позиций... При помощи чего?...

Chief Justice · 22.12.2005, 07:57

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

Лентяй · 22.12.2005, 09:31

Держи блок и попробуй использовать Incremental Fill из Tollpak'а. Если не получится, дай знать - кину лиспу.
[ATTACH]1135233098.dwg[/ATTACH]

Alan · 22.12.2005, 15:51

Но вообще-то мало поставить позицию.
Наверное необходимо посчитать их, да и спецификацию составить. А?

Chief Justice · 22.12.2005, 16:18

Цитата:

Сообщение от Alan

Но вообще-то мало поставить позицию.
Наверное необходимо посчитать их, да и спецификацию составить. А?

Это не к AutoCAD наверное...
Мне бы хотябы кружок поставить...
Лучше всего с диалогом как у атрибута блока например...
Но чтобы spline был гибким...
Например spline по трем точкам, а потом ввод позиции...

Chief Justice · 22.12.2005, 16:21

Цитата:

Сообщение от Лентяй

Держи блок и попробуй использовать Incremental Fill из Tollpak'а. Если не получится, дай знать - кину лиспу.

Не получилось...
Было бы здорово какую-нибудь такую лиспу...

str02 · 22.12.2005, 16:26

если это арматура то есть небольшие довески, которые еще и Ведомость расхода стали на 1 элемент гостовскую сделают.

Геннадий aka PG · 22.12.2005, 16:47

В сборнике cadhlp есть такие проги
http://cadhlp.kulichki.com/cadhlp.htm

Alan · 22.12.2005, 17:02

Цитата:

Это не к AutoCAD наверное...

>Chief Justice
Да ну что Вы, батенька. У меня только так и работают спецификации. Ну и еще есть пару способов. Но это другая тема.
Считать пальцем по экрану - это каменный век!!!

Chief Justice · 22.12.2005, 17:06

Цитата:

Сообщение от Alan

Цитата:

Это не к AutoCAD наверное...

>Chief Justice
Да ну что Вы, батенька. У меня только так и работают спецификации. Ну и еще есть пару способов. Но это другая тема.
Считать пальцем по экрану - это каменный век!!!

Ну за чем же по экрану?...
Можно сперва распечатать...

Ну так поделитесь современными технологиями...

Alan · 22.12.2005, 18:45

>Chief Justice
Возьмите для ознакомления ДЕМО-версию моей проги ПАРКС (всего 3,2Мб). http://www.arcada.com.ua/infot/po/arch/parks.html
Инсталяцию лучше сделать под Акад 2002, но работает и под 2004-2005. Когда установите запросите файлик меню, я пришлю. Демо делал давно (2001-2002г), меню надо обновить.
Там попробуйте хотя бы команды:
Заполнение оконных/дверных проемов
Марки любых элементов
замаркируйте и постройте соотвествующие спецификации.
Технологии не очень современные, но лучше чем...

Chief Justice · 22.12.2005, 19:07

Что-то про корд пишет... ничего не ставит... AutoCAD 2005...

Alan · 22.12.2005, 19:17

>Chief Justice Прочти выше, см.10

Цитата:

Инсталяцию лучше сделать под Акад 2002, но работает и под 2004-2005. Когда установите запросите файлик меню, я пришлю. Демо делал давно (2001-2002г), меню надо обновить.

Ну и на почту письни свой адрес.

Лентяй · 22.12.2005, 22:50

Цитата:

Chief Justice:Было бы здорово какую-нибудь такую лиспу...

Ну, дык лови и держи крепче, шоб не улетела.

Код:

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

(defun *error* (msg)
  (if (= msg "Function cancelled") (princ msg)(princ));if
  (setvar "CMDECHO" cmd) (setvar "PICKAUTO" pca)   
);*error*
;
(defun vu (at / ov)
  (setq ov (vla-get-TextString at) pt (vl-string-search "." ov))
  (if (null pt) (while (wcmatch ov "*@*") (setq ov (substr ov 2)))
    (setq ov (substr ov (+ 2 pt))));if
  (strcat (vl-string-right-trim ov (vla-get-TextString at))
	  (if (= kw "Number") (itoa (+ n dn))(itoa (+ (atoi ov) dn))));strcat
);defun
; 
(defun C:KAN ( / ass ats cmd pca ov nv dn pt)
  (setq	adoc (vla-get-ActiveDocument (vlax-get-acad-object))
	cmd (getvar "CMDECHO") 	pca (getvar "PICKAUTO")
	ass (vla-get-ActiveSelectionSet adoc) n 0);setq
  (setvar "CMDECHO" 0)
  (initget "Number Renumber")
  (setq kw (getkword "\n[Number/Renumber]? <N>"))
  (if (null kw) (setq kw "Number"))
  (if (= kw "Number") (setvar "PICKAUTO" 0))
  (setq dn (getint "\nInput Start or Offset Number: <1>"))
  (if (null dn) (setq dn 1))
  (prompt (strcat "\nSelect Blocks for " kw "ing: "))
  (if (/= (vla-get-count ass) 0) (vla-clear ass))
  (vla-SelectOnScreen ass (vlax-safearray-fill (vlax-make-safearray vlax-vbInteger '(0 . 0)) '(0))
    (vlax-safearray-fill (vlax-make-safearray vlax-vbVariant '(0 . 0)) (list "*BlockReference")))
  (vlax-for sb ass
    (setq ats (vlax-safearray->list (vlax-variant-value (vla-getattributes sb))));setq
    (if (= (length ats) 1) (vla-put-TextString (car ats) (vu (car ats)))
      (vla-put-TextString (cadr ats) (vu (cadr ats))))
    (setq n (1+ n)));vlax-for
 (setvar "CMDECHO" cmd)
 (setvar "PICKAUTO" pca)
 (princ)
);end

Krieger · 23.12.2005, 06:19

to Лентяй
Объясни как пользоваться, плиз. Че-то недогоняю. Чего-то выбрать просит...

nikolaev · 23.12.2005, 07:48

Простейший макрос на кнопку:
^C^Corthomode 0;pline \width 0 (* 3 (getvar "dimscale")) \width 0 0 arc \\Radius (* 5 (getvar "dimscale")) Angle 359 \;text j middle cen \(* 5 (getvar "dimscale")) 0 *;

Chief Justice · 23.12.2005, 08:18

Цитата:

Сообщение от Лентяй

Цитата:

Chief Justice:Было бы здорово какую-нибудь такую лиспу...

Ну, дык лови и держи крепче, шоб не улетела.

Спасибо, поймал! Только моих знаний лиспа не хватает даже, чтобы ее запустить...
Загрузить-то загрузил...
А что нажимать-то?...

Chief Justice · 23.12.2005, 08:26

Цитата:

Сообщение от nikolaev

Простейший макрос на кнопку:
^C^Corthomode 0;pline \width 0 (* 3 (getvar "dimscale")) \width 0 0 arc \\Radius (* 5 (getvar "dimscale")) Angle 359 \;text j middle cen \(* 5 (getvar "dimscale")) 0 *;

Интересный макрос...
Но слишком сложно и не одинаковые стрелочки получаются...
Много параметров вводить надо...
Быстрее получиться скопировать и исправить...

Jurasic · 23.12.2005, 10:11

Мне кажется в фильтр функции "SelectOnScreen", многоуважаемого Лентяя вкралась ошибка..
Вместо

Код:

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

(vlax-safearray-fill
      (vlax-make-safearray vlax-vbInteger '(0 . 0))
      '(0)
    )

Следует читать

Код:

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

(vlax-safearray-fill
      (vlax-make-safearray vlax-vbInteger '(0 . 0))
      '(100)
    )

Блок, естественно, должен содержать атрибуты..

Лентяй · 23.12.2005, 10:42

Цитата:

Chief Justice: А что нажимать-то?...

Поймал, значит? Маладэс, джигит!

А нажимать надл вновь созданную кнопочку, в свойствах которой прописать

Код:

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

^C^CKAN

Правда, в этом случае нужно будет внести KAN. lsp в список программ, загружаемых при запуске (Briefcase). Другой способ - описать кнопку как

Код:

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

^C^C (if (null KAN) (load "KAN.lsp"))(C:KAN)

А можно и совсем просто - набрать "KAN" в командной строке.
Jurasic,
Спасибо за подсказку. Ошиька действительно имеет место быть, но там, где сказано, а строкой ниже. Вместо

Код:

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

(list *BlockReference)

должно быть

Код:

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

(list *Insert")

.

Jurasic · 23.12.2005, 11:10

>Лентяй
Вы автор, вам и решать ГДЕ ошибка

ИМХО, для лентяев проще "0" на "100" поменять, чем "BlockReference" на "Insert"

Jurasic · 23.12.2005, 11:51

Предлагаю усовершенствовать макрос 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".

Лентяй · 23.12.2005, 12:40

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 · 23.12.2005, 13:07

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

Chief Justice · 23.12.2005, 14:22

Цитата:

Сообщение от 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 · 23.12.2005, 14:24

Цитата:

Сообщение от Лентяй

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 · 23.12.2005, 14:29

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

Tech · 23.12.2005, 15:54

Цитата:

Сообщение от 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 · 23.12.2005, 16:14

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

Alan · 23.12.2005, 17:17

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

Chief Justice · 23.12.2005, 17:43

Цитата:

Сообщение от Alan

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

Поставили... запустили... не работает...

Пишет:
error: no function definition: C:NZ305

Chief Justice · 23.12.2005, 17:57

Цитата:

Сообщение от 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 · 23.12.2005, 18:54

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

Tech · 23.12.2005, 20:14

>Chief Justice
Странно, у меня висит на кнопке с макросом:
^C^C(if (eq c

os nil) (load "pos.vlx")) ^C^C_pos , и запускается без возражений, POS.CFG стирал, он его заново прописывает

.
Попробуй ему вручную его подсунуть
[ATTACH]1135358075.zip[/ATTACH]

Лентяй · 23.12.2005, 23:23

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

Код:

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

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

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

Tech · 24.12.2005, 20:28

Цитата:

Сообщение от Лентяй

Директорию, в которой он сохранен, в соответствующем месте программы прописали?

Код:

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

"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

Лентяй · 25.12.2005, 04:42

Моя плохой, ибо перемудрил малость :? , в чем совешенно искренне и глубоко раскаиваюсь :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 · 26.12.2005, 00:00

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

Merry Christmas!

TheBuTeK · 26.12.2005, 12:23

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

Лентяй · 27.12.2005, 01:55

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

22.12.2005, 07:57		#1
Простановка позиций... При помощи чего?... Chief Justice Регистрация: 29.01.2004 Сообщений: 494 Если надо проставить позиции (в кружочке на кривой выноске), то что обычно используется?... Рисовать circle и spline очень долго, использовать обычную выноску не правильно... Что же делать?... Может на лиспе что-то уже есть?...
Просмотров: 9471