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

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

LISP. Не могу поставить диаметр окружности

Ответ
Поиск в этой теме
Непрочитано 20.10.2009, 16:05 #1
LISP. Не могу поставить диаметр окружности
Буджум
 
мелкий местный хищник
 
замкадье
Регистрация: 20.10.2009
Сообщений: 72

Доброго времени суток! Есть окружность. Набходимо поставить ее диаметр. Пробовал варианты:

Код:
[Выделить все]
  (setq tc (getpoint "\nТочку давай!")
    nn (ssadd)
  )
  (command "_.circle" tc "_d" 50)
  (setq nn (entlast))
  (setq nnn (cdr (assoc -1 (entget (entlast)))))
  ;(command "_.dimdiameter" nn (polar tc (/ pi 4) 30))
  ;(command "_.dimdiameter" (ssget (polar tc (/ pi 4) 25)) (polar tc (/ pi 4) 40))
  ;(command "_.dimdiameter" (entsel (polar tc 0 25)) (polar tc (/ pi 4) 50))
  (command "_.dimdiameter" nnn (polar tc (/ pi 4) 50))
Окружность при построении размера выбираться не желает. Большая просьба подсказать что не так.

Последний раз редактировалось Кулик Алексей aka kpblc, 20.10.2009 в 18:09.
Просмотров: 2701
 
Непрочитано 20.10.2009, 16:26
#2
ытя


 
Регистрация: 23.09.2005
СПб
Сообщений: 424


(command "_.dimdiameter" (entlast) (polar tc (/ pi 4) 50))

PS: (cdr (assoc -1 (entget (entlast))))) = (entlast)
ытя вне форума  
 
Автор темы   Непрочитано 20.10.2009, 16:50
#3
Буджум

мелкий местный хищник
 
Регистрация: 20.10.2009
замкадье
Сообщений: 72


Это я знаю. А окружность как выбрать?
Буджум вне форума  
 
Непрочитано 20.10.2009, 16:52
#4
E-degtyarev

Помогаю, кому делать нечего.
 
Регистрация: 27.03.2009
Русская деревня
Сообщений: 394


Цитата:
(command "_.dimdiameter" (entlast) (polar tc (/ pi 4) 50))
Странно, но у меня это тоже не работает.
E-degtyarev вне форума  
 
Непрочитано 20.10.2009, 17:16
#5
ытя


 
Регистрация: 23.09.2005
СПб
Сообщений: 424


А если привязки отключить?
ытя вне форума  
 
Непрочитано 20.10.2009, 17:48
#6
Елпанов Евгений

программист
 
Регистрация: 20.12.2005
Москва
Сообщений: 1,439
Отправить сообщение для Елпанов Евгений с помощью Skype™


Если хочешь использовать вычисления лиспа в командной строке, используй функцию vl-cmdf вместо command...
__________________
Чем гениальнее ваш план, тем меньше людей с ним будут согласны.
/Сунь Цзы/
Елпанов Евгений вне форума  
 
Непрочитано 21.10.2009, 09:48
1 | #7
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Буджум Посмотреть сообщение
Это я знаю. А окружность как выбрать?
В команду нужно передавать список, возвращаемый функцией (entsel), т.е. (имя_примитива точка_выбора)
Код:
[Выделить все]
(setq tc (getpoint "\nТочку давай!"))
(command "_.circle" tc "_d" 50)
(command "_.dimdiameter" (list (entlast) tc) (polar tc (/ pi 4) 50))
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 21.10.2009, 09:54
#8
Буджум

мелкий местный хищник
 
Регистрация: 20.10.2009
замкадье
Сообщений: 72


Большое спасибо всем откликнувшимся
Особено VVA!!!
Буджум вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Не могу поставить диаметр окружности

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Диаметр окружности всегда ставится под одним и тем же углом. Как починить? se.b AutoCAD 27 12.10.2009 15:34
Lisp. Изменение свойств у ячеек таблицы. Не могу докопаться до vla объекта. Kirzaa LISP 2 21.09.2009 10:32
Lisp Как поставить диаметр отверстия на 3D solidе P4s8x LISP 4 06.11.2008 19:31
Окружности, касательные к прямой и другой окружности Хмурый AutoCAD 13 06.03.2007 10:16
загрузка DOS прог через LISP Gaa LISP 15 12.08.2005 19:19