[sam_n]

Вот макрос для рисования точек с заданным шагом относительно существующего текста

Код:

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

 ^C^C(setq a(atof(cdr(assoc 1(setq ed(entget(car(entsel"Выбери текст:"))))))) c (cdr(assoc 11 ed)));\(setq b(atof(cdr(assoc 1(setq ed(entget(car(entsel"Выбери текст:"))))))) d (cdr(assoc 11 ed)));\-цвет;1;_cal;P1=Plt(c,d,abs(5.65-a)/abs(a-b));точка;!P1;-цвет;2;_cal;P2=Plt(c,d,abs(7.69-a)/abs(a-b));точка;!P2;

То есть для случая текста значением 0 в точке (0,0,0) и значением 10 в точке (10,0,0) макрос должен нарисовать 2 точки - (5.65,0,0) и (7.69,0,0). Если поглядеть в командную строку, то о считает все правильно

Код:

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

Команда: -цвет

Цвет объектов по умолчанию [изПалитры/Альбом] <2 (желтый)>: 1

Команда: _cal
>> Выражение: P1=Plt(c,d,abs(5.65-a)/abs(a-b))
5.65,0,0

Команда: точка

Текущие режимы точек:  PDMODE=3  PDSIZE=0.0000
Укажите точку: !P1
(5.65 0.0 0.0)

Команда: -цвет

Цвет объектов по умолчанию [изПалитры/Альбом] <1 (красный)>: 2

Команда: _cal
>> Выражение: P2=Plt(c,d,abs(7.69-a)/abs(a-b))
7.69,0,0

Команда: точка

Текущие режимы точек:  PDMODE=3  PDSIZE=0.0000
Укажите точку: !P2
(7.69 0.0 0.0)

Но вот на самом чертеже точки рисуются с координатами (5,0,0) и (10,0,0)... Не могу понять в чем дело.

[Sleekka]

А попробуй привязки отключить...

[hwd]

Вот ещё что может влиять:

[sam_n]

Sleekka, ведь когда чертишь с включенным "Шагом", все-равно можно вводить координаты с клавиатуры сколько угодно кривые и и все будет нормально отрисовываться, но для достоврености увеличил пример в 100 раз. Ничего не изменилось.

hwd, тоже не помогло.

[trir]

Текущая ПСК?

[sam_n]

trir, Мировая СК.

[Иванов Дмитрий]

Недавно начал осваивать функции ActiveX. Например vla-Add... позволяют рисовать примитивы независимо от привязок и полярного отслеживания. Вот пример тестового кода для рисования примитивов 3dface разных цветов:

Код:

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

 (defun c:1 (/ obj n n1 l le col1)
  (vl-load-com)
  (setq obj (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
  (setq n  0
        n1 0
        l  50
        ) ;_ end of setq
  (while (< n l)
    (setq n1 0)
    (while (< n1 l)
      (setvar "cecolor" (itoa (fix (+ 3 (* 2 (sin (sqrt (+ (expt (+ 1.0 n) 2) (expt (+ 1.0 n1) 2)))))))))
      (vla-add3dface obj
                     (vlax-3d-point (list (+ 0.0 n) (+ 0.0 n1) (sin (sqrt (+ (expt (+ 0.0 n) 2) (expt (+ 0.0 n1) 2))))))
                     (vlax-3d-point (list (+ 1.0 n) (+ 0.0 n1) (sin (sqrt (+ (expt (+ 1.0 n) 2) (expt (+ 0.0 n1) 2))))))
                     (vlax-3d-point (list (+ 1.0 n) (+ 1.0 n1) (sin (sqrt (+ (expt (+ 1.0 n) 2) (expt (+ 1.0 n1) 2))))))
                     (vlax-3d-point (list (+ 0.0 n) (+ 1.0 n1) (sin (sqrt (+ (expt (+ 0.0 n) 2) (expt (+ 1.0 n1) 2))))))
                     ) ;_ end of vla-Add3DFace
      (setq n1 (1+ n1))
      ) ;_ end of while
    (setq n (1+ n))
    ) ;_ end of while
  ) ;_ end of defun

К тому же работает гораздо быстрее чем command "_..." и vl-cmdf "_..."

[trir]

entmake работает быстрее чем command и ActiveX...
А ActiveX лучше всего сочетается с VBA
А есть ещё dotNet и ObjectArx

[Иванов Дмитрий]

entmake имеет, например, такой вид:
(entmake '( (0 . "3DFACE") (8 . "0") (62 . 1) (10 0.0 0.0 0.0) (11 1.0 0.0 0.841471) (12 1.0 1.0 0.987766) (13 0.0 1.0 0.841471)))
Но мои попытки ввести в него данные в виде переменных не увенчались успехом. Например чтобы координаты этого 3dface-а прочитать из переменной вида (setq point_1 (list coord_x coord_y coord_z)). Он даже не воспринимает запись (setq x 0.0), а потом в самом entmake '...(10 x 0.0 0.0)... - ошибка

[gomer]

Сообщение от Иванов Дмитрий а потом в самом entmake '...(10 x 0.0 0.0)... - ошибка

У вас список не вычисляется, поэтому х - то х, а не 0.0, вот и ошибка, используйте в таких случаях cons - (cons 10 (list x 0.0 0.0))

(setq x 0.0) 0.0 (cons 10 (list x 0.0 0.0)) (10 0.0 0.0 0.0)

[Иванов Дмитрий]

Теперь получается, но только цвет не работает:
(entmake '( (0 . "3DFACE") (8 . "0") (cons 62 x1) (cons 10 (list x 0.0 0.0)) (11 1.0 0.0 0.841471) (12 1.0 1.0 0.987766) (13 0.0 1.0 0.841471)))
Здесь перед этой строкой задано (setq x1 3), а фраза (cons 62 x1) не воспринимается. При этом (62 . 3) - все нормально, объект рисуется зеленым

[gomer]

Сообщение от Иванов Дмитрий Теперь получается

Да? Мда... У вас брикскад? У вас список не вычисляется...

[sam_n]

Мда, а видимо по теме никто не скажет ничего?

[Кулик Алексей aka kpblc]

Сообщение от gomer список не вычисляется

И не вычислится. Потому что надо (как минимум)

Код:

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

 (entmake (list '(0 . "3DFACE")
               '(8 . "0")
               (cons 62 x1)
               (cons 10 (list x 0.0 0.0))
               '(11 1.0 0.0 0.841471)
               '(12 1.0 1.0 0.987766)
               '(13 0.0 1.0 0.841471)
               ) ;_ end of list
         ) ;_ end of entmake

sam_n, тебе еще в #2 ответили. Привязка и шаг (ну так, для справки) - разные понятия.

[sam_n]

Кулик, упс)

[Иванов Дмитрий]

Действительно, entmake очень быстро работает. Та же задача, только с использованием entmake:
(defun c:5 (/ n n1 l col1)
(setq n 0 n1 0 l 50)
(while (< n l)
(setq n1 0)
(while (< n1 l)
(setq col1 (fix (+ 3 (* 2 (sin (sqrt (+ (expt (+ 1.0 n) 2) (expt (+ 1.0 n1) 2))))))))
(entmake (list '(0 . "3DFACE") '(8 . "0")
(cons 62 col1)
(cons 10 (list (+ 0.0 n) (+ 0.0 n1) (sin (sqrt (+ (expt (+ 0.0 n) 2) (expt (+ 0.0 n1) 2))))))
(cons 11 (list (+ 1.0 n) (+ 0.0 n1) (sin (sqrt (+ (expt (+ 1.0 n) 2) (expt (+ 0.0 n1) 2))))))
(cons 12 (list (+ 1.0 n) (+ 1.0 n1) (sin (sqrt (+ (expt (+ 1.0 n) 2) (expt (+ 1.0 n1) 2))))))
(cons 13 (list (+ 0.0 n) (+ 1.0 n1) (sin (sqrt (+ (expt (+ 0.0 n) 2) (expt (+ 1.0 n1) 2))))))
))
(setq n1 (1+ n1))
)
(setq n (1+ n))
)
)
2500 примитивов рисуются в мгновение ока. Если и в брикскаде будет также быстро работать, то это замечательно

[Sleekka]

2500 примитивов рисуются в мгновение ока. Если и в брикскаде будет также быстро работать, то это замечательно

в брикскаде будет работать в 6 раз быстрее.

[gomer]

Сообщение от Sleekka в брикскаде будет работать в 6 раз быстрее.

нет всего лишь в 4 раза

[Sleekka]

Сообщение от gomer нет всего лишь в 4 раза

по entmake - да в 4 раза, vl-функции в 10 раз быстрее. (это не только заявления производителя, а проверено на собственном софте). А так как скорость лиспа зависит в основном от vl-sort все остальное не особо важно, то для путячих лиспов средний прирост производительности в 6 раз.