Точно, все время это делал, а тут забыл... Но все равно результата нет, как в первый раз, команда netload и все :(
а у меня на работе как получил новый комп так вообще перестала работать сие чудо и фрамворк вроде б правильный, и файлы разблокированы уж и не знаю куда еще глядеть
Товарищи, здравствуйте! Подскажите, пожалуйста, а можно как-то настроить размер стрелок и подписей при использовании функции верх/низ? А еще, величина отклонения буквально "прилеплена" к квадратику с буквой Н/В, можно как-то увеличить там расстояние? Заранее огромное спасибо за помощь! Отдельное спасибо автору за чудо-программу, то что нужно! =)
так а потом набираете в ком строке ICMD. --- Сообщения объединены, 3 окт 2014, Оригинальное время сообщения: 3 окт 2014 --- хотя я это про Model.dll.
Ребят, а почему периодически когда я рисую стрелки верх/низ у меня отклонения получаются 0? То есть сначала все норм, работаю, расставляю отклонения, а потом ни с того ни с сего отклонения 0, хотя там явно не 0. Не подскажете, в чем дело?
Просьба такого рода если не трудно сделайте плиз конвертер из ТЕКСТ/МТЕКСТ в точку COGO отметка этой точки бролась бы из содержимого текста и желательно что бы был отсев текстов содержащих какието буквы (воспринимал только цифровые) оч нужная вещь а то имею много топосъемок а там обычные тексты и приходится сложным путем это переделывать
Grigarash, не приставай к гуру с мелкими просьбами. Держи старый-престарый лиспик, который в местах вставки текста, создаст точки Автокада с отметкой, значением текста. А уже по точкам, ты запросто создашь COGO. Код: (defun C:t2p () ;; Преобразование текстов в точки с отметками из содержимого текстов (setq current_layer (getvar "CLAYER")) (setq txt_set (ssget "_P" '((0 . "TEXT")) )) (if (/= txt_set nil) (setq n (sslength txt_set)) (progn (setq n 0) (princ "Пустой набор выбора !!!") (princ "\n") )) (setq err 0) (setq i 0) (while (< i n) (setq nametxt (ssname txt_set i)) (setq entdef_lst (entget nametxt)) (setq context (cdr (assoc '1 entdef_lst))) (setq context (vl-string-subst "." "," context)) (if (/= (distof context) nil) (progn (setq point_3d_list (cdr (assoc '10 entdef_lst))) (setq x (nth 0 point_3d_list)) (setq y (nth 1 point_3d_list)) (setq z (distof context)) (setq point_3d_list (list x y z)) (entmake (list (cons 0 "POINT") ; Object type (cons 8 current_layer) ; Layer (cons 10 point_3d_list) ; Insertion point )) ) (setq err (1+ err)) ) (setq i (1+ i)) ) (princ "Количество преобразованных текстов: ") (princ i) (princ "\n") (princ "Количество непреобразованных текстов: ") (princ err) (princ) )
Qvinto, спс за лиспик. Но в нем кроется какая то ошибка (или недоделка, или,,,) при выборе всех текстов выполняю данный лисп командой T2P и при этом преобразовывается всего одно текстовое поле из всех ACAD2014 x64 RUS оууу разобрался оказывается надо выбрать текущий слой в котором этот текст создан хммм не совсем удобно но и на этом спасибо
А планируется ли дальнейшее развитие ветки Накопилось уж довольно много предложений и замечаний Автор уж совсем про нас простых обывателей забыл
Скажите плиз кто знает автор появится тут или он все же забросил тему? А то он вроде как обещал допилить пару нюансов
все отлично работает на 15 акаде и фрамворке 4.5.2 если не работает то взгляни сначало на свойста этих двух файлов (*.dll) там разблокируй их
Разблокировал и все пошло!!! Спасибо. А иконок не появляются? Запускать только через командную строку?