[Composter]

я пытаюсь сделать лисп который бы вставлял объекты из буфера в базовые точки выделенных объектов.но видимо где что то не учел. вот код

Код:

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

(defun c:Zod ()
(setq ss1 (ssget))
(setq number (sslength ss1))
(while number
(setq pt1 (list (cadr(assoc 10 (entget (ssname ss1 1)))) (caddr(assoc 10 (entget (ssname ss1 1))))))
(command "._pasteclip" pt1 )
(ssdel (ssname ss1 1) ss1)
(setq number (- number 1))
);end while
)

лисп не вставляет в базовую точку последнего объекта , и автокад выдает сообщение "; error: bad argument type: lentityp nil" , подскажите что не так

[Donhuan]

Скорее всего ты выбираешь один объект, а в наборе нумерация начинается с нуля -> (ssname ss1 1) возвращает nil.
Учись пользоваться средствами отладки в vlisp.
Также надо учесь, что у разных объектов точечная пара (10 . ) имеет различное назначение и если это точка, то она может быть в разных системах кординат (WCS, OCS).

[Composter]

Спасибо, исправил везде (ssname ss1 0) все отлично работает, у меня еще вопрос.а можно ли так сделать что бы ЛИСП вначале получил все базовые точки выделенных объектов, пронумеровав каждую точки pt1 , pt2, pt3.. и т.д., а потом уж вставлял перебирая все эти точки???

[CB]

>Composter
Что ты имеешь в виду базовые точки выделенных объектов.
Какая базовая точка у линии, окружности, полилинии, блока ну и т.д.?

[Composter]

под базовой точкой я имел в виду то значение, которое выдает (assoc 10 (entget (ssname ss1 1))) , те точечная пара имющая номер 10 при выводе инфы entget.

[Donhuan]

Пример для линий.

Код:

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

(defun c:Zod ( / )
  (mapcar '(lambda (x) (command "._pasteclip" x))
	  (mapcar '(lambda (x) (trans (cdr (assoc 10 (entget x))) 0 1))
		  (vl-remove-if
		    'listp
		    (mapcar (function cadr)
			    (ssnamex (ssget '((0 . "LINE")))
			    ) ;_ end of ssnamex
		    ) ;_ end of mapcar
		  ) ;_ end of vl-remove-if
	  ) ;_ end of mapcar
  ) ;_ end of defun
  (princ)
) ;_ end of defun

;для корректной вставки копировать объекты в буфер требуется с базовой точкой "Copy with base point"

Повторяю: пара 10 у разных типов объектов имеет разное назначение, а если является точкой, то может быть в различных системах координат.

[CB]

Ну или так (для любых примитивов, имеющих 10 код dxf)

Код:

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

(defun c:Zod (/ ss1)
  (princ "\nВыбор элемента для буфера: ")
  (vl-cmdf "._copybase"
           (getpoint "\nБазовая точка: ")
           (ssget)
           ""
  ) ;_ end of vl-cmdf
  (princ "\nВыбор элементов для вставки: ")
  (if (setq ss1 (ssget))
    (mapcar
      '(lambda (pt)
         (vl-cmdf "._pasteclip" pt)
       ) ;_ end of lambda
      (apply
        'append
        (mapcar
          '(lambda (name)
             (mapcar
               'cdr
               (vl-remove-if-not
                 '(lambda (x) (= (car x) 10))
                 (entget name)
               ) ;_ end of vl-remove-if-not
             ) ;_ end of mapcar
           ) ;_ end of lambda
          (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))
        ) ;_ end of mapcar
      ) ;_ end of apply
    ) ;_ end of mapcar
  ) ;_ end of if
  (princ)
) ;_ end of defun

[Composter]

спасибо за помощь, но мне это пока трудно воспринимать.попробую дома в обнимку с книжкой разобраться.

[Composter]

я немного переделал свой лисп что бы вначале он считывал координаты и записывал их а потом всталялт объеты в ети точки но чего то там не пашет вот код

Код:

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

(defun c:Zod ()
(setq ss1 (ssget))
(setq number (sslength ss1) number2 (sslength ss1))

(while number
(set (read(strcat "pt" (itoa number)))  (cdr(assoc 10 (entget (ssname ss1 (1- number))))))
(ssdel (ssname ss1 (1- number)) ss1)
(setq number (1- number))
);end while

(while number2
(command "._pasteclip" !(read(strcat "pt" (itoa number2))) )
(setq number2 (1- number2))
);end while2
)

я так понимаю ошибка во втором цикле а именно !(read(strcat "pt" (itoa number2))) здесь как сделать так что бы выводилось не строка pt4 а значение этой точки????

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

А что в коде делает символ "!"?

[Composter]

ну это по ошибке добавил , когда проверял значения пременных.от наличия этого знака ничего не меняется ...

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

Все здорово, одно "но": а что вставлять из буфера собираешься? Если в коде нет команды _.copyclip?
Если надо просто продублировать объекты, то для этого есть другие методы, без использования буфера обмена.
---
Добавлено: циклы (while number ) и (while number2 ) будут выполняться бесконечно.

[Composter]

пред выполнением команды, я копирую с базовой точкой нужные объекты.обычно текст, ингода блоки копирую.если существуют другие методы , то хотелось бы о них услышать.только если ето н сильно сложно, а то ето мой первый лисп.на счет циклов while я дуал что он будет выполнятся пока nuber не станет 0 .как будет что бы до нуля? может while (= number 0) ?так?и еще вопрос если я не правильно указал точку вставки то что бы отменить вставку например 50 объектов то нужно 50 раз нажать undo, как бы иак сделать что бы одним undo отменялась вся операция вставки?

[Donhuan]

Читай http://forum.dwg.ru/showthread.php?t=22894.