[Джек]

Привет всем. Я пршу у Вас совета как мне начертить отрезок с помощью DXF-кода если известно координаты точки 1 (pt1) и точки 2 (pt2). Вот мой простенький пример, но почему то прожка не работает
(defun c:lineJekki ()
(setq pt1 (getpoint)); первая точка
(setq pt2 (getpoint pt1));вторая точка
(entmake' (
(0 . "line")
(cons 10 pt1)
(cons 11 pt2)
))
(print)
)
В чем ошибка и как написать правильно. Спасибо

(entmake (list (cons 0 "LINE") (cons 10 pt1) (cons 11 pt2))),
если через квотирование, то данные должны быть полностью указаны, а не создаваться во время вычисления
(entmake '((0 . "LINE") (10 0 0 0) (11 100 100 0)))

[Джек]

Это понятно ( гостю)! Но как мне написать координаты , если пользователь только указал точки!
а потом вставитьв в DXF функцию 10 и 11

[Perezz!!]

всё что касается setg - в разделе программирование

[Джек]

но как мне найти координаты точки pt1 pt2 ?

[Lenich]

(setq pt1 (getpoint "Укажите точку pt1\n"))
Результат:
Укажите точку pt1
(103.187 77.921 0.0)

Со второй делаешь тоже самое.

[{Smirnoff}]

Проблемма ваша в том что ENTMAKE не поддерживает вычислений внутри себя. Необходимо сначала сформировать список сохранив его в переменной, а затем применить ENTMAKE.

Код:

[Выделить все]

(defun c:dline (/ makeDXF pt1)
  (setq makeDXF
    (list
         '(0 . "LINE")
	 (cons 10 (setq pt1(getpoint "Specify first point: ")))
	 (cons 11 (getpoint pt1 "Specify second point: "))
     ); end list
	); end setq
  (entmake makeDXF)
  (princ)
  ); end of c:dlie

[Джек]

Fantomas спасибо тебе большое - ЗАРАБОТАЛО! ТЕПЕРЬ ПОНЯТНО В ЧЕМ МОЯ ОШИБКА! Спасибо всем кто ответил!
И дополнение , а что ещё нужно для вычерчивания отрезка, т.е. какие ещё нужны DXF - коды?

[{Smirnoff}]

Для отрезка это минимальный достаточный набор. Если мы так будем продолжать дальше то данная ветка превратится в справочник по DXF.

1) Купи двухтомник Н. Н. Полещука "AutoCAD 2004" из серии "В Подлиннике" там в сносках "Для программиста" дана расшифровка DXF для всех примитивов, а также справочник по всем переменным.

2) Пользуйся разделом DXF Reference из Developer Help.

3) Простой код в командной строке:

Код:

[Выделить все]

(entget(car(entsel)))

позволит тебе посмотреть DXF любого примитива в текстовом экране.

[Джек]

Понял! Огромное спасибо! 8)

[Apelsinov]

Сообщение от Fantomas ENTMAKE не поддерживает вычислений внутри себя. Необходимо сначала сформировать список сохранив его в переменной, а затем применить ENTMAKE.

Не правда, прекрасно работает:

Код:

[Выделить все]

(defun c:dline (/ pt1)
  (entmake
    (list
      '(0 . "LINE")
      (cons 10 (setq pt1 (getpoint "Specify first point: ")))
      (cons 11 (getpoint pt1 "Specify second point: "))
    )
  )
  (princ)
)

[{Smirnoff}]

И правда работает . Уж не помню когда с DXF копался, все VLA-, VlAX-...

[kos]

Сообщение от Fantomas Проблемма ваша в том что ENTMAKE не поддерживает вычислений внутри себя...

Тут как раз все наоборот: entmake не может выполнить код

Код:

[Выделить все]

(setq pt1 (getpoint)); первая точка 
(setq pt2 (getpoint pt1));вторая точка 
(entmake '( 
  (0 . "line") 
  (cons 10 pt1) 
  (cons 11 pt2) 
))

как раз потому, что вычисление подавляется цитированием '(...
В результате на вход функции entmake подается следующий список

Код:

[Выделить все]

((0 . "line") (CONS 10 PT1) (CONS 11 PT2))

Он то entmake'ом и не переваривается...

[Джек]

Спасибо все огромное за советы! Вы мне очень помогли!!!! 8)