Настройки поиска (Страница 1 из 8)

У текста в совйствах начиная с 2008 есть такой параметр как аннотативность. выделяешь текст смотришь его свойства находишь параметр аннотативность выставляешь значение "да" откроются еще графы содержащие аннотативный масштаб, а так же там будет графа ориентация по листу там надо установить значение "да" после данной опрации тексты теперь будт иметь толко горизотальное положение в листе и в модели

Вот такой получился франкинштейн! сам не силен в лиспе по этому не знаю как сделать так чтоб полилинию видно было при отрисовке может через VL-cmdf?

(defun c:b_lin_b (/)
  (setq i1 -1)
 (setq sp_p '())
 (setq sp_10 '())
  (setq p_b1 (list(reverse (cdr (reverse (assoc 10 (entget(car (entsel "\nУкажите блок:")))))))))
(while
    (setq p1 (getpoint "\nУкажите точку полилинии <Enter для завершения>: "))
      (setq sp_p (append sp_p (list p1))))
              (setq sp_2d  (mapcar 'reverse (mapcar 'cdr (mapcar 'reverse sp_p))))
  (setq p_b2 (list(reverse (cdr (reverse (assoc 10 (entget(car (entsel "\nУкажите блок:")))))))))
(repeat (length sp_p)
 (setq i1 (1+ i1))
 (setq sp_10 (append sp_10 (list 10)))
  );конец repeat
 (setq sp_tp (mapcar 'cons sp_10 sp_2d))
  (setq sp_plin (append p_b1 sp_tp p_b2 ))
    (setq k_ver(list (cons 90 ( + 2 (length sp_tp)))))
  (entmake   (append '((0 . "LWPOLYLINE") (8 . "0")  (100 . "AcDbEntity") (67 . 0) (410 . "Model")
  (100 . "AcDbPolyline")  (70 . 0) (43 . 0.0) (38 . 0.0)
 (39 . 0.0) 
  (210 0.0 0.0 1.0))  k_ver  sp_plin)))

вроде бы так должно получится с использованием nentsel
(setq a(car(nentsel)))
(entget a)

(defun atr (/ im_obj  atrib)
  (setq im_obj (car(nentsel "\nУкажите атрибут блока: ")))
  (setq atrib(cdr (assoc 1 (entget im_obj)))))

Я не конструктор сказать ни могу.

создать совй текстовый стиль установить для него нужный шрифт, и во всех стилях размерных, мультивыносок, стилях таблиц установить свой текстовый стиль.можно сделать шаблон DWT.

:D  точно!
дома делал по вечерам!

в нашей жидовской  конторе (по этому и LT у всех был установлен) я гонял с модемом беспроводным собственным! :D ну только за свет если списать с меня да амартизацию компа и стула! :D все равно был бы должен! :D

ObjectARX. SelSim
- выбор по образцу Ясен перец, до такого мне как говорится, с...ть и с...ть, а может и никогда не сделать! :D
написал в надежде, что кому нибудь пригодится.
мне мой код помог с объектами экспортироваными из кредо там цвет всегда задан

а какие именно линии надо. опиши какая дложна быть?
тип линии содержит следующее
*gugk5_122_va, ----Ва----  ----- ---- ВодАртезианский
A,1,-1,1.5,-0.4,["Ва",Line_GUGK,S=1.0,R=0.0,X=0.0,Y=-0.5],-2.4,1.5,-1,4,-1,4,-1,3
1. это коментарий к линии *gugk5_122_va, ----Ва----  ----- ---- ВодАртезианский
2. А вроде всегда в начале ставится
3. 1,-1,1.5,-0.4 описание пунктира
4. ["Ва",Line_GUGK,S=1.0,R=0.0,X=0.0,Y=-0.5] текст в линии
4.1 "Ва" то что должно быть в линии
4.2 ,Line_GUGK, текстовый стиль который необходимо использовать в линии (можно не указывать тогда будет текущий стиль использоваться. и если в линии прописан текстовый стиль, то онже должен быть создан в чертеже иначе линии не подгрузятся)
4.3 S=1.0 масштаб текста
4.4 R=0.0 разворот текста
4.5 X=0.0,Y=-0.5 расположение относительно оси линии
  5. далее пунктир

Спасибо попробую!!

нужно начать с файла формы с расширением shx. в нем создать, попробовать создать символ, вот ссыла как с формами работать
http://forum.dwg.ru/showthread.php?t=30924, там же в довнлаоде поройся может уже готовое есть.

могу посоветовать книгу Николай Полещук,Петр Лоскутов Autolisp и visual Lisp, в Среде Autocad.
я ее на Ozon.ru заказывал.

это список точечных пар объекта чтоб получить координаты вершин полилинии нужно извлечь координаты из списка либо функцией assoc (assoc 10(ключ доступа к точеной паре) '( )список), но функция не подойдет т.к. извлекает первую точеную пару с указанным кодом. либо использовать функцию nth которая извлекает содержимое списка по его порядковому номеру начиная с 0 (nth 0 '()) метод не универсальный т.к. если присовить цвет  вес тип то порядковый номер в списке точечных пар объекта появятся новые точечные пары,и порядковые номера поменяются.