[Chief Justice]

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

[Лентяй]

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

[Alan]

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

[Chief Justice]

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

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

[Chief Justice]

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

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

[str02]

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

[Геннадий aka PG]

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

[Alan]

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

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

[Chief Justice]

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

Ну за чем же по экрану?...
Можно сперва распечатать...
Ну так поделитесь современными технологиями...

[Alan]

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

[Chief Justice]

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

[Alan]

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

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

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

[Лентяй]

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]

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

[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 *;

[Chief Justice]

Сообщение от Лентяй Chief Justice:Было бы здорово какую-нибудь такую лиспу... Ну, дык лови и держи крепче, шоб не улетела.

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

[Chief Justice]

Сообщение от 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]

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

Код:

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

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

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

Код:

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

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

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

[Лентяй]

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

Поймал, значит? Маладэс, джигит! А нажимать надл вновь созданную кнопочку, в свойствах которой прописать

Код:

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

^C^CKAN

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

Код:

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

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

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

Код:

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

(list *BlockReference)

должно быть

Код:

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

(list *Insert")

.

[Jurasic]

>Лентяй
Вы автор, вам и решать ГДЕ ошибка ИМХО, для лентяев проще "0" на "100" поменять, чем "BlockReference" на "Insert"