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

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

как получить LISP код фрагмента?

Ответ
Поиск в этой теме
Непрочитано 10.10.2007, 09:38
как получить LISP код фрагмента?
DY
 
Москва
Регистрация: 21.12.2006
Сообщений: 110

Программирую сугубо для себя - для души, LISP только начал просматривать в виду того, что возникла необходимость в одной простецкой програмке под ACAD.

Появился вопрос - собственно сабж.
Возможно ли нарисовать примитивный рисунок и получить LISP-код этого рисунка, или выделенного его фрагмента. Кроме как ковырятся в dxf? что-то типа _copy с результатом команды - текст данного фрагмента.

С уважением.
Просмотров: 5686
 
Автор темы   Непрочитано 11.10.2007, 10:13
#21
DY


 
Регистрация: 21.12.2006
Москва
Сообщений: 110


Цитата:
Сообщение от Кулик Алексей aka kpblc
Посты 11 и 16, оформленные в функцию с записью в указанный файл. Не больше.
Согласен!

Но ты первый, кто упаковал в коробочку и привязал бантик!

Естественно спасибо:
ShaggyDoc
Krieger
DY вне форума  
 
Непрочитано 11.10.2007, 11:24
#22
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Опечатался я там слегка: DXF Reference, а не та матерщина, что показана в #19...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 11.10.2007, 11:55
#23
Profan


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


"Фе" не модератору, а участнику форума Алексею Кулику за матерщину.
Profan вне форума  
 
Непрочитано 11.10.2007, 12:10
#24
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Вай-вай-вай, мама, попка, больно!
Сижу и посыпаю голову пеплом
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 11.10.2007, 12:47
#25
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


DY
Еще это глянь:
http://dwg.ru/forum/viewtopic.php?t=12464
Krieger вне форума  
 
Автор темы   Непрочитано 11.10.2007, 12:50
#26
DY


 
Регистрация: 21.12.2006
Москва
Сообщений: 110


Спасибо! Как раз к этому подошел.
DY вне форума  
 
Автор темы   Непрочитано 11.10.2007, 13:11
#27
DY


 
Регистрация: 21.12.2006
Москва
Сообщений: 110


Медленно схожу с ума. [sm1013]

Код:
[Выделить все]
(defun C:Lin()
(command "_block" "1" '(0 0)
	 (entmake 
  		'((0 . "CIRCLE")
   		  (100 . "AcDbEntity")
   		  (67 . 0)
   		  (410 . "Model")
   		  (8 . "0")
   		  (62 . 2)
   		  (100 . "AcDbCircle")
   		  (10 118226.0 48200.1 0.0)
   		  (40 . 771.394)
   		  (210 0.0 0.0 1.0)
  		)
)	)
)
Должно создать Блок с именем 1 с точкой вставки 0,0 внутри блока круг.

Круг есть, блока нет.

P.S. Не стреляйте в пианиста он играет как умеет.
DY вне форума  
 
Непрочитано 11.10.2007, 13:15
#28
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Код:
[Выделить все]
(defun C:Lin()
(command "_block" "1" '(0 0)
    (entmakex
        '((0 . "CIRCLE")
           (100 . "AcDbEntity")
           (67 . 0)
           (410 . "Model")
           (8 . "0")
           (62 . 2)
           (100 . "AcDbCircle")
           (10 118226.0 48200.1 0.0)
           (40 . 771.394)
           (210 0.0 0.0 1.0)
        )
)   )
)
Но сработает или нет - не знаю, не проверял
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 11.10.2007, 13:20
#29
DY


 
Регистрация: 21.12.2006
Москва
Сообщений: 110


Блок есть - круга нет.

:shock:

Точнее, строит круг и просит выделить объеты, если круг не выделять то строит пустой блок.
DY вне форума  
 
Непрочитано 11.10.2007, 13:24
#30
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Код:
[Выделить все]
defun C:Lin()
(command "_block" "1" '(0 0)
    (entmakex
        '((0 . "CIRCLE")
           (100 . "AcDbEntity")
           (67 . 0)
           (410 . "Model")
           (8 . "0")
           (62 . 2)
           (100 . "AcDbCircle")
           (10 118226.0 48200.1 0.0)
           (40 . 771.394)
           (210 0.0 0.0 1.0)
        )
) ))
(while (/= (getvar "cmdactive") 0)
(command "")
)
Попробуй...
Хотя я бы делал по-другому.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 17.02.2020, 07:00
#31
SRAIBIKUS

ПРОГРАММИСТ
 
Регистрация: 11.10.2019
СПБ
Сообщений: 4


КАК ВЫТАЩИТЬ С ПОМ. (ENTGET) ДАННЫЕ О ДУГОВОМ УЧАСТКЕ ПОЛИЛИНИИ ?

----- добавлено через ~13 мин. -----
И где можно найти все DXF-коды для полилинии?
SRAIBIKUS вне форума  
 
Непрочитано 17.02.2020, 07:45
#32
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


"И нечего так орать" (с)
https://autolisp.ru/2019/05/07/dxf-reference/
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 17.02.2020, 07:58
#33
SRAIBIKUS

ПРОГРАММИСТ
 
Регистрация: 11.10.2019
СПБ
Сообщений: 4


Спасибо большое, простите за безграмотность (хотя, говорят, не бывает глупых вопросов, бывают глупые ответы...) Спасибо в любом случае...
SRAIBIKUS вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > как получить LISP код фрагмента?

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

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