[kurstep]

Возникла проблема при построении множество точек через автолисп...

Код:

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

 (command "_point" '(0 0 0))

- одна точка строится нормально, но если хочу построить несколько строит только если постоянно писать "point" перед координатой

Код:

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

 (command "_point" '(0 0 0) "_point" '(0 10 10) "_point" '(0 30 10) "_point" '(0 50 10) 

) ... есть ли более красивый способ без повторений команд а просто через список координат?

[trir]

entmake

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

http://autolisp.ru/2013/12/19/comman...utre-troubles/

[Alan]

Сообщение от kurstep а просто через список координат?

Код:

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

(setq sps '((0 0 0) (10 0 0) (20 0 0) (30 0 0))
      i	  0
) ;_ конец setq
(setvar "osmode" 0)
(repeat	(length sps)
  (command "_point" (setq el (nth i sps)))
  (setq i (1+ i))
) ;_ конец repeat

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

Alan, тебе тоже #3

[Alan]

Сообщение от Кулик Алексей aka kpblc Alan, тебе тоже #3

Вроде учёл...
см. (setvar "osmode" 0)
проверки всякие и запоминания osmode не делал.
просто показал как repeat'ом пройтись по списку, т.е. ответил на вопрос.
Можно и другими способами (entmake и т.п.)...
но ТС работает пока с command

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

Сообщение от Alan Вроде учёл... см. (setvar "osmode" 0)

Побуду старым брюзгой: а восстанавливать хто будет?

Сообщение от Alan показал как repeat'ом пройтись по списку, т.е. ответил на вопрос.

По-моему, проще для понимания будет использование foreach. На небольших списках разница минимальна, а вот на больших...

Код:

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

 (setq lst '((0. 0. 0.)
            (10. 20. 25.3)
            (32.65 45.6 0.)
            (65.8 100. 0.)
            (656.45 1. 32.)
            (111715.0 78813.9)
            (111719.0 78827.2)
            (111731.0 78823.8)
            (111757.0 78814.8)
            (111782.0 78803.4)
            (111806.0 78789.6)
            (111826.0 78775.8)
            (111907.0 78713.8)
            (111989.0 78651.8)
            (112024.0 78627.6)
            (112061.0 78607.6)
            (112105.0 78589.9)
            (112142.0 78579.3)
            (112284.0 78545.3)
            (112379.0 78521.4)
            (112473.0 78495.2)
            (112808.0 78397.8)
            (112885.0 78375.2)
            (112925.0 78363.6)
            (112994.0 78342.8)
            (113053.0 78323.8)
            (113122.0 78300.7)
            (113190.0 78276.4)
            (113337.0 78222.2)
            (113425.0 78189.5)
            (113463.0 78194.6)
            (113465.0 78196.0)
            (113472.0 78201.1)
            (113478.0 78207.7)
            (113521.0 78251.3)
            (113526.0 78256.0)
            (113526.0 78256.1)
            (113924.0 78658.3)
            (113969.0 78693.2)
            (114142.0 78820.7)
            (114159.0 78842.6)
            (114173.0 78853.1)
            (114149.0 78810.2)
            (114132.0 78797.7)
            (113936.0 78653.1)
            (113540.0 78252.0)
            (113536.0 78253.0)
            (113536.0 78253.0)
            (113527.0 78243.8)
            (113483.0 78199.3)
            (113477.0 78192.9)
            (113470.0 78186.9)
            (113462.0 78182.3)
            (113453.0 78179.2)
            (113444.0 78177.5)
            (113434.0 78177.5)
            (113424.0 78179.5)
            (113412.0 78183.4)
            (113306.0 78222.5)
            (113200.0 78261.6)
            (113172.0 78272.0)
            (113108.0 78294.6)
            (113055.0 78312.7)
            (113000.0 78330.4)
            (112936.0 78349.7)
            (112908.0 78358.1)
            (112882.0 78365.4)
            (112805.0 78388.1)
            (112655.0 78431.6)
            (112506.0 78475.1)
            (112467.0 78486.5)
            (112361.0 78515.6)
            (112310.0 78528.7)
            (112255.0 78541.8)
            (112181.0 78559.1)
            (112149.0 78566.8)
            (112116.0 78575.7)
            (112087.0 78585.3)
            (112059.0 78597.1)
            (112036.0 78609.2)
            (112012.0 78623.3)
            (111986.0 78641.8)
            (111952.0 78667.0)
            (111855.0 78740.9)
            (111824.0 78764.1)
            (111806.0 78776.2)
            (111789.0 78785.6)
            (111779.0 78791.0)
            (111765.0 78797.2)
            (111748.0 78803.3)
            (111732.0 78808.8)
            )
      ) ;_ end of setq

(defun cmd-repeat (/ i osmode el)
  (setq osmode (getvar "osmode")
        i      0
        ) ;_ end of setq
  (setvar "osmode" 0)
  (repeat (length sps)
    (command "_.point" (setq el (nth i lst)))
    (setq i (1+ i))
    ) ;_ êîíåö repeat
  (setvar "osmode" osmode)
  ) ;_ end of defun

(defun cmd-foreach (/ osmode)
  (setq osmode (getvar "osmode"))
  (foreach item lst
    (command "_.point" item)
    ) ;_ end of foreach
  (setvar "osmode" osmode)
  ) ;_ end of defun

(defun entmakex-repeat (/ i)
  (setq i 0)
  (repeat (length sps)
    (entmakex (list '(0 . "POINT") (cons 10 (nth i lst))))
    (setq i (1+ i))
    ) ;_ êîíåö repeat
  ) ;_ end of defun

(defun entmakex-foreach ()
  (foreach item lst
    (entmakex (list '(0 . "POINT") (cons 10 item)))
    ) ;_ end of foreach
  ) ;_ end of defun

И результаты тестирования некомпилированных функций:

Код:

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

_$ (BENCHMARK '(ENTMAKEX-FOREACH ENTMAKEX-REPEAT CMD-REPEAT CMD-FOREACH))
Benchmarking .......................Elapsed milliseconds / relative speed for 1048576 iteration(s):

    ENTMAKEX-FOREACH.....1233 / 1.32 <fastest>
    ENTMAKEX-REPEAT......1388 / 1.17
    CMD-REPEAT...........1622 / 1
    CMD-FOREACH..........1623 / 1 <slowest>

[Kirill_Ja]

Код:

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

 (defun entmakex-mapcar (/)
(mapcar (function (lambda (x) (entmakex (list '(0 . "POINT") (cons 10 x))) )) lst)  
) ;_ end of defun

Offtop: Алексей, а не поделишься кодом benchmark?

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

Сообщение от Kirill_Ja а не поделишься кодом benchmark?

Мопед не мой: http://autolisp.ru/2009/09/20/execution-speed-check/
P.S. mapcar я специально не использовал: насколько я понял, результаты выполнения нигде хранить не надо. Соответственно зачем тратить память?