| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > как программно создать полилинию?

как программно создать полилинию?

Ответ
Поиск в этой теме
Непрочитано 30.05.2011, 10:46 #1
как программно создать полилинию?
mamuk
 
Сургут
Регистрация: 06.05.2010
Сообщений: 248

Доброго времени!!!
как можно програмно создать полилинию? пытаюсь сделать через entmake но если создаю больше 6 точек полилииния не рисуется,точнее рисует только 6 точек на другом компе 5 точек
Код:
[Выделить все]
 
(setq sp_p '())
  (setq sp_10 '())
  (setq i1 -1)
(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))))
(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))
(entmake (append (list '(0 . "POLYLINE") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(8 . "ЛЭП 6кВ") 
                    '(100 . "AcDbPolyline") '(90 . 5) '(70 . 0) '(43 . 0.0) '(38 . 0.0) '(39 . 0.0)  
                   )  sp_tp  '((210 0.0 0.0 1.0)))))
Просмотров: 3245
 
Непрочитано 30.05.2011, 10:49
#2
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Цитата:
Сообщение от mamuk Посмотреть сообщение
'(90 . 5)
В этой паре кол-во вершин полилинии указывается.
Do$ вне форума  
 
Автор темы   Непрочитано 30.05.2011, 11:14
#3
mamuk


 
Регистрация: 06.05.2010
Сургут
Сообщений: 248


СПАСИБО!!!!!!! я два выходных убил!!!!!! так и не понял!!!!!!! Доуматься так и не смог!!!!!! Буду иметь ввиду теперь!!
mamuk вне форума  
 
Непрочитано 30.05.2011, 11:24
#4
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Обязательно, что ли, с помощью (entmake) создавать полилинию? А если так:
Код:
[Выделить все]
(setvar "cmdecho" 1)
      (command "_PLINE")
(while (/= (logand (getvar "cmdactive") 31) 0)
      (command pause)
)
      (setvar "cmdecho" 0)
Profan вне форума  
 
Непрочитано 30.05.2011, 11:33
#5
baaba

архитектор
 
Регистрация: 07.07.2007
Москва
Сообщений: 644
<phrase 1= Отправить сообщение для baaba с помощью Skype™


Цитата:
Сообщение от mamuk Посмотреть сообщение
СПАСИБО!!!!!!! я два выходных убил!!!!!! так и не понял!!!!!!! Доуматься так и не смог!!!!!! Буду иметь ввиду теперь!!
Код HTML:
http://www.dailyautocad.com/2009/10/autolisp10-using-entmake-function-to.html
Код HTML:
http://faqs.org.ru/progr/graph/autolisp3.htm
Это не пробовал?
baaba вне форума  
 
Автор темы   Непрочитано 30.05.2011, 11:44
#6
mamuk


 
Регистрация: 06.05.2010
Сургут
Сообщений: 248


Profan, список точек я дальше испульзую для расчетов и хотел чтобы в командной строке при указании точки выводилась надпись например "укажите точку расположения объекта"! поэтому пошел таким путем не зная другого!
mamuk вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > как программно создать полилинию?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно создать текстовый стиль со шрифтом Arial.ttf? 480725 Программирование 13 21.11.2014 16:16
Как создать слой (программно - Lisp) NEDIS LISP 4 29.08.2010 20:36
Как имея массив точек создать полилинию по ним? emilko AutoCAD 9 19.06.2009 23:15
Как в Акад 2006 программно создать подшивку с заданным набор kp+ Программирование 4 16.03.2009 23:23
Как создать динамические блоки программно? Владимир М Программирование 1 26.06.2007 19:47