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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Добавление "экзотических" объектов в блок

Добавление "экзотических" объектов в блок

Ответ
Поиск в этой теме
Непрочитано 03.10.2007, 12:29 #1
Добавление "экзотических" объектов в блок
TheBuTeK
 
преподавание
 
Москваград
Регистрация: 28.09.2005
Сообщений: 131

Методами ActiveX создаю блок и добавляю в него отрезки и окружности.
Интересует же, как добавить в блок некие нестандартные объекты, в частности Wipeout и Donut. При этом wipeout должен располагаться под всеми объектами блока.

Код:
[Выделить все]
; создаем блок и добавляем туда объекты
(defun klapan (namm / blk)
  (setq blk
	(vla-add (vla-get-blocks (vla-get-activedocument       (vlax-get-acad-object)))
		  (vlax-3d-point '(0. 0. 0.))
                  namm
                  ) ;_ end of vla-add
        ) ;_ end of setq
 
  (vla-addline blk (vlax-3d-point '(0. 0. 0.)) (vlax-3d-point '(0. 500. 0.)))           
  (vla-addline blk (vlax-3d-point '(0. 500. 0.)) (vlax-3d-point '(1000. 500. 0.)))      
  (vla-addline blk (vlax-3d-point '(1000. 500. 0.)) (vlax-3d-point '(1000. 0. 0.)))     
  (vla-addline blk (vlax-3d-point '(1000. 0. 0.)) (vlax-3d-point '(0. 0. 0.)))          
  (vla-addline blk (vlax-3d-point '(0. 500. 0.)) (vlax-3d-point '(1000. 0. 0.)))        ; добавляем в блок отрезки
  
 
  (vlax-for subent blk                                     ; определяем свойства блока
    (vla-put-layer subent "0")                             ; слой блока 
    (vla-put-lineweight subent aclnwtbyblock)              ; вес линии
    (vla-put-linetype subent "byblock")                    ; тип линии
    (vla-put-color subent 0)                               ; цвет
    (vla-put-normal subent (vlax-3d-point '(0. 0. 1.)))    ; направление оси Z 
    ) ;_ end of vlax-for
  ) ;_ end of defun
Внешний вид требуемого блока - в приложенном файле.
[ATTACH]1191400175.dwg[/ATTACH]
__________________
Добрым словом и пистолетом можно добиться гораздо большего, чем одним добрым словом.
Просмотров: 5963
 
Непрочитано 03.10.2007, 12:40
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Donut - это замкнутая полилиния, состоящая из 2 дуговых сегментов. Отдампь ее и посмотри, что получится. А добавлять ее в блок точно так же, как и обычную полилинию.
С wipeout'ом сложнее. Но решаемо.
Код:
[Выделить все]
(defun _kpblc-ent-create-lwpline (lst                point-list
                                  /                  res
                                  *kpblc-list-layer-status*
                                  )
                                 ;|
*    Функция созданя объекта LWPOLYLINE
*    Параметры вызова:
	lst	список вида
      '(("doc" . <Указатель на документ>)	; nil -> текущий
	("where" . <Указатель на пространство>)	; nil -> текущее
	("layer" . <ИмяСлоя>)	; nil -> текущий
	("lw" . <ВесЛинии>)	; nil -> текущий
	("ltype" . <ТипЛинии>)	; nil -> текущий
	("ltypefile" . <ФайлОписанияТипаЛинии>)	; nil -> "acadiso.lin"
	("color" . <Цвет>)	; nil -> текущий
	("closed" . <Замкнутая>)	; nil -> незамкнутая
	("width" . <ПостояннаяШирина>)	; nil -> 0.
	("elev" . <Уровень>)	; nil -> 0.
	("normal" . <Нормаль>)	; nil -> текущая
	("round (list (<НомерУчастка> . <ТангенсЧетвертиУгла>)
		      (<НомерУчастка> . <ТангенсЧетвертиУгла>)
		      (<НомерУчастка> . <ТангенсЧетвертиУгла>)
		      )
		)		; nil -> без кривых участков
	)
	
|;
  (_kpblc-error-catch
    (function
      (lambda ()
        (_kpblc-layer-status-save-by-list
          (cdr (assoc "doc" lst))
          (_kpblc-list-dublicates-remove(vl-remove 'nil (list (getvar "clayer") (cdr (assoc "layer" lst)))))
          '(("unlock" . t) ("thaw" . t))
          ) ;_ end of _kpblc-layer-status-save-by-list
        (setq lst (_kpblc-conv-list-to-lowcase (_kpblc-conv-list-to-pointlist lst))
              res (vla-addlightweightpolyline
                    (cond
                      ((cdr (assoc "doc" lst))
                       (cdr (assoc "where" lst))
                       )
                      ((cdr (assoc "where" lst)))
                      (t (_kpblc-get-active-space-obj))
                      ) ;_ end of cond
                    (_kpblc-conv-pointlist-to-variant
                      (apply 'append (mapcar '_kpblc-conv-3d-to-2d point-list))
                      ) ;_ end of _kpblc-conv-pointlist-to-variant
                    ) ;_ end of vla-addlightweightpolyline
              ) ;_ end of setq
        (_kpblc-layer-create
          (cond ((cdr (assoc "layer" lst)))
                (t
                 (vla-get-name
                   (vla-get-activelayer
                     (cond
                       ((cdr (assoc "doc" lst)))
                       (t *kpblc-activedoc*)
                       ) ;_ end of cond
                     ) ;_ end of vla-get-activelayer
                   ) ;_ end of vla-get-name
                 )
                ) ;_ end of cond
          ) ;_ end of _kpblc-layer-create
        (if (cdr (assoc "round" lst))
          (foreach item (cdr (assoc "round" lst))
            (_kpblc-error-catch
              (function
                (lambda ()
                  (vla-setbulge res (car item) (cdr item))
                  ) ;_ end of lambda
                ) ;_ end of function
              '(lambda (x)
                 (_kpblc-error-print
                   "_kpblc-ent-create-lwpline"
                   (strcat x
                           "; невозможно задать кривизну: сегмент "
                           (_kpblc-conv-value-to-string (car item))
                           ", тангенс 0,25 угла "
                           (_kpblc-conv-value-to-string (cdr item))
                           ) ;_ end of strcat
                   ) ;_ end of _kpblc-error-print
                 ) ;_ end of lambda
              ) ;_ end of _kpblc-error-catch
            ) ;_ end of foreach
          ) ;_ end of if
        (_kpblc-ent-properties-set res lst)
        ) ;_ end of lambda
      ) ;_ end of function
    '(lambda (x)
       (_kpblc-ent-erase res)
       (setq res nil)
       (_kpblc-error-print "_kpblc-ent-create-lwpline" x)
       ) ;_ end of lambda
    ) ;_ end of _kpblc-error-catch
  (_kpblc-layer-status-restore-by-list
    (cdr (assoc "doc" lst))
    (vl-remove 'nil (list (getvar "clayer") (cdr (assoc "layer" lst))))
    ) ;_ end of _kpblc-layer-status-restore-by-list
  res
  ) ;_ end of defun

(defun _kpblc-ent-create-wipeout (vert-lst lst      /        scale    minp
                                  maxp     center   max_dist dxf_14   dxf_10
                                  res
                                  )
                                 ;|
*    Функция создания wipeout
*    Параметры вызова:
*	vert-lst	список вершин создаваемого wipeout в WCS, для масштаба 1:1
*	lst		список параметров вида:
      '(("where" . <Куда добавлять>)	; в какой блок / пространство
		; добавлять полилинию (vla-указатель). nil -> активное пространство
	("lw" . aclnwt025)		; вес . nil -> (getvar "celweight")
	("ltype" . "Continuous")	; тип линии. nil -> Continuous (только
		; английский, нижний регистр)
	("ltypefile" . "acadiso.lin")	; файл, из которого грузить тип линии
		;(nil -> acadiso.lin)
	("color" . 0)			; цвет. nil -> (getvar "cecolor")
	("layer" . "test")		; слой. nil -> "0"
	(cons "normal" '(0. 0. 1.))	; система координат, в которой
		; создавать примитив. nil -> текущая
	("scale" . <Масштаб>)		; nil -> (_kpblc-scale-get)
	)
*    Примеры вызова:
(_kpblc-ent-create-wipeout '((-10. -10.) (10. 10.) (10. -10.) (-10. 10.)) nil)
|;
  (_kpblc-error-catch
    (function
      (lambda ()
        (_kpblc-dwg-wipeout)
        (setq scale    (cond
                         ((cdr (assoc "scale" lst)))
                         (t (_kpblc-scale-get-by-ent (cdr (assoc "where" lst))))
                         ) ;_ end of cond
              vert-lst (mapcar '(lambda (x) (mapcar '(lambda (y) (* scale y)) x))
                               vert-lst
                               ) ;_ end of mapcar
              minp     (list (apply 'min (mapcar 'car vert-lst))
                             (apply 'min (mapcar 'car vert-lst))
                             0.
                             ) ;_ end of list
              maxp     (list (apply 'max (mapcar 'cadr vert-lst))
                             (apply 'max (mapcar 'cadr vert-lst))
                             ) ;_ end of list
              center   (mapcar '(lambda (a b) (/ (+ a b) 2.)) minp maxp)
              max_dist (max (- (car maxp) (car minp)) (- (cadr minp) (cadr maxp)))
              dxf_10   (mapcar '- center (list (/ max_dist 2.) (/ max_dist 2.) 0.))
              dxf_14   (mapcar '(lambda (x)
                                  (mapcar '/
                                          (mapcar '- center x)
                                          (list (- max_dist) max_dist 1)
                                          ) ;_ end of mapcar
                                  ) ;_ end of lambda
                               vert-lst
                               ) ;_ end of mapcar
              dxf_14   (reverse (cons (car dxf_14) (reverse dxf_14)))
              res      (_kpblc-conv-ent-to-vla
                         (entmakex
                           (append
                             (list
                               '(0 . "WIPEOUT")
                               '(100 . "AcDbEntity")
                               '(100 . "AcDbWipeout")
                               '(90 . 0)
                               (cons 10 dxf_10)
                               (cons 11 (list max_dist 0. 0.))
                               (cons 12 (list 0. max_dist 0.))
                               (cons
                                 8
                                 (cond ((cdr (assoc "layer" lst))
                                        (vla-get-name
                                          (_kpblc-layer-create (cdr (assoc "layer" lst)))
                                          ) ;_ end of vla-get-name
                                        )
                                       (t "0")
                                       ) ;_ end of cond
                                 ) ;_ end of cons
                               '(13 1. 1. 0.)
                               '(70 . 7)
                               '(280 . 1)
                               '(71 . 2)
                               (cons 91 (length dxf_14))
                               ) ;_ end of list
                             (mapcar '(lambda (x) (cons 14 x)) dxf_14)
                             ) ;_ end of append
                           ) ;_ end of entmakex
                         ) ;_ end of _kpblc-conv-ent-to-vla
              ) ;_ end of setq
        ;; Теперь настраиваем остальное
        (if (cdr (assoc "color" lst))
          (_kpblc-property-set res "color" (cdr (assoc "color" lst)))
          ) ;_ end of if
        (vl-catch-all-apply
          '(lambda ()
             (if (cdr (assoc "lw" lst))
               (vla-put-lineweight res (cdr (assoc "lw" lst)))
               ) ;_ end of if
             ) ;_ end of lambda
          ) ;_ end of vl-catch-all-apply
        (vla-put-linetype
          res
          (cond
            ((cdr (assoc "ltype" lst))
             (vla-get-name
               (_kpblc-linetype-load
                 (cdr (assoc "ltype" lst))
                 (cdr (assoc "ltypefile" lst))
                 ) ;_ end of _kpblc-linetype-load
               ) ;_ end of vla-get-name
             )
            (t "Continuous")
            ) ;_ end of cond
          ) ;_ end of vla-put-linetype
        (if (cdr (assoc "normal" lst))
          (_kpblc-property-set
            res
            "normal"
            (vlax-3d-point (cdr (assoc "normal" lst)))
            ) ;_ end of _kpblc-property-set
          ) ;_ end of if
        (if
          (and (cdr (assoc "where" lst))
               (not (eq (cdr (assoc "where" lst)) (_kpblc-get-active-space-obj)))
               ) ;_ end of and
           (_kpblc-ent-copyobjects
             (list (cons "to" (cdr (assoc "where" lst)))
                   '("erase" . t)
                   ) ;_ end of list
             (list res)
             ) ;_ end of _KPBLC-ENT-COPYOBJECTS
           ) ;_ end of if
        ) ;_ end of lambda
      ) ;_ end of function
    '(lambda (x)
       (_kpblc-ent-erase res)
       (_kpblc-error-print "_kpblc-ent-create-wipeout" x)
       (setq res nil)
       ) ;_ end of lambda
    ) ;_ end of _kpblc-error-catch
  res
  ) ;_ end of defun

(defun _kpblc-ent-copyobjects (lst lst-obj)
                              ;|
*    Обертка для метода CopyObjects
*    Параметры вызова:
*	lst	список вида
      '(("from" . <VLA:ОткудаКопировать>)	; nil -> текущее пространство
	("to" . <VLA:КудаКопировать>)		; nil -> текущее пространство
	("erase" . t)	; удалять (t) или нет (t) исходные объекты
	)
*    lst-obj	список указателей на копируемые объекты
|;
  (if lst-obj
    (_kpblc-error-catch
      (function
        (lambda (/ from to)
          (setq lst-obj (mapcar '_kpblc-conv-ent-to-vla
                                (_kpblc-conv-value-to-list lst-obj)
                                ) ;_ end of mapcar
                from    (cond
                          ((cdr (assoc "from" lst)))
                          (t *kpblc-activedoc*)
                          ) ;_ end of cond
                to      (cond
                          ((cdr (assoc "to" lst)))
                          (t *kpblc-activedoc*)
                          ) ;_ end of cond
                ) ;_ end of setq
          (if (cdr (assoc "from" lst))
            (mapcar 'vla-copy lst-obj)
            (vla-copyobjects
              *kpblc-activedoc* ;from
              (vlax-make-variant
                (vlax-safearray-fill
                  (vlax-make-safearray
                    vlax-vbobject
                    (cons 0 (1- (length lst-obj)))
                    ) ;_ end of vlax-make-safearray
                  lst-obj
                  ) ;_ end of vlax-safearray-fill
                ) ;_ end of vlax-make-variant
              to
              ) ;_ end of vla-CopyObjects
            ) ;_ end of if
          (if (cdr (assoc "erase" lst))
            (mapcar 'vla-erase lst-obj)
            ) ;_ end of if
          ) ;_ end of lambda
        ) ;_ end of function
      '(lambda (x)
         (_kpblc-error-print "_kpblc-ent-copyobjects" x)
         ) ;_ end of lambda
      ) ;_ end of _kpblc-error-catch
    ) ;_ end of if
  ) ;_ end of defun
Остальные служебные функции не вижу особого смысла показывать - они уже столько раз мелькали, что опять выполнять последовательность поиск-копировать-вставить лениво до невозможности
---
Добавлено: сделаны функции достаточно давно, кое-что менялось по ходу дела. Показаны как пример.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 03.10.2007, 12:45
#3
TheBuTeK

преподавание
 
Регистрация: 28.09.2005
Москваград
Сообщений: 131
<phrase 1=


Спасибо!
А почему такие сложности оказались с wipeout'ом?
__________________
Добрым словом и пистолетом можно добиться гораздо большего, чем одним добрым словом.
TheBuTeK вне форума  
 
Непрочитано 03.10.2007, 12:48
#4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


для него работал только метод entmake или entmakex, vla - фигушки. Соответственно пришлось создавать wipeout а потом его копировать в описание блока. Вроде бы работало...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 03.10.2007, 12:54
#5
TheBuTeK

преподавание
 
Регистрация: 28.09.2005
Москваград
Сообщений: 131
<phrase 1=


Еще один нескромный вопрос, а как же быть, к примеру, со штриховкой?
Вроде бы метод vla-addhatch существует, но как-то "в лоб" не сообразил, как им пользоваться.
__________________
Добрым словом и пистолетом можно добиться гораздо большего, чем одним добрым словом.
TheBuTeK вне форума  
 
Непрочитано 03.10.2007, 13:03
1 | #6
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Код:
[Выделить все]
(defun _kpblc-ent-create-hatch (lst / hat)
                               ;|
*    Функция создания примитива типа HATCH. Параметры вызова:
*	lst	список параметров вида:
      '(("where" . <vla>)	; vla-указатель, куда добавляется штриховка
      				; nil недопустим
      	("name" . "SOLID")	; имя штриховки. nil -> SOLID
      	("outer" . <vla>)	; vla-указатель(и) на внешнюю границу. nil недопустим
      	("inner" . <vla>)	; vla-указатель(и) на внутренние границы.
      	("assoc" . t)		; ассоциативная или нет.
      	("layer" . "0")		; имя слоя, на который "кидается" штриховка. nil -> "0".
      				; Если слоя нет, то он создается
      	("color" . 7)		; Номер цвета nil -> слоя, на котором лежит штриховка
      	("ltype" . "bylayer")	; тип линии. nil -> "Contunuous"
      	("ltypefile" . "acadiso.lin")	; Требуется для загрузки нестандартных типов
      				; линий
      	("lw" . aclnwt000)	; вес линии штриховки. nil -> текущий по установкам AutoCAD
      	("hatscale" . 100)	; масштаб штриховки. nil -> (_kpblc-scale-get)
      	("hatang" . 0.0)	; угол поворота штриховки
      	("hatspace" . 100)	; nil -> (_kpblc-scale-get)
      	)
*    Возвращает vla-указатель на созданную штриховку либо nil в случае ошибки
*    Работает только с predefined штриховками
*    Примеры вызова:
(_kpblc-ent-create-hatch (list (cons "where" (_kpblc-get-active-space-obj))
				(cons "outer" (_kpblc-conv-ent-to-vla (car (entsel))))))
(_kpblc-ent-create-hatch (list (cons "where" (_kpblc-get-active-space-obj))
				(cons "outer" (_kpblc-conv-ent-to-vla (car (entsel))))
				(cons "inner" (_KPBLC-CONV-SELSET-TO-VLA (ssget)))))
(_kpblc-ent-create-hatch (list (cons "where" (_kpblc-get-active-space-obj))
				(cons "outer" (_kpblc-conv-ent-to-vla (car (entsel))))
				(cons "inner" (_KPBLC-CONV-SELSET-TO-VLA (ssget)))
				(cons "assoc" t)))
|;
  (setq lst (_kpblc-conv-list-to-lowcase (_kpblc-conv-list-to-pointlist lst)))
  (if (and (assoc "where" lst) (assoc "outer" lst))
    (progn
      (_kpblc-error-catch
        '(lambda ()
           (setq
             hat
              (vla-addhatch
                (_kpblc-conv-ent-to-vla (cdr (assoc "where" lst)))
                achatchpatterntypepredefined
                (if (cdr (assoc "name" lst))
                  (cdr (assoc "name" lst))
                  "SOLID"
                  ) ;_ end of if
                (_kpblc-conv-value-bool-to-vla (cdr (assoc "assoc" lst)))
                ) ;_ end of vla-addhatch
             ) ;_ end of setq
           (foreach ent (_kpblc-conv-value-to-list (cdr (assoc "outer" lst)))
             (vla-appendouterloop
               hat
               (vlax-make-variant
                 (vlax-safearray-fill
                   (vlax-make-safearray
                     vlax-vbobject
                     (cons 0 0)
                     ) ;_ end of vlax-make-safearray
                   (list ent)
                   ) ;_ end of vlax-safearray-fill
                 ) ;_ end of vlax-make-variant
               ) ;_ end of vla-appendouterloop
             ) ;_ end of foreach
           (if (cdr (assoc "inner" lst))
             (foreach ent (_kpblc-conv-value-to-list (cdr (assoc "inner" lst)))
               (vla-appendinnerloop
                 hat
                 (vlax-make-variant
                   (vlax-safearray-fill
                     (vlax-make-safearray
                       vlax-vbobject
                       (cons 0 0)
                       ) ;_ end of vlax-make-safearray
                     (list ent)
                     ) ;_ end of vlax-safearray-fill
                   ) ;_ end of vlax-make-variant
                 ) ;_ end of vla-appendinnerloop
               ) ;_ end of foreach
             ) ;_ end of if
           (vla-evaluate hat)
           (vla-put-patternangle
             hat
             (if (cdr (assoc "hatang" lst))
               (cdr (assoc "hatang" lst))
               0.
               ) ;_ end of if
             ) ;_ end of vla-put-PatternAngle
           (vla-put-patternscale
             hat
             (if (cdr (assoc "hatscale" lst))
               (cdr (assoc "hatscale" lst))
               (_kpblc-scale-get-by-ent (cdr (assoc "where" lst)))
               ) ;_ end of if
             ) ;_ end of vla-put-PatternScale
           (vla-put-patternspace
             hat
             (if (cdr (assoc "hatspace" lst))
               (cdr (assoc "hatspace" lst))
               (_kpblc-scale-get-by-ent (cdr (assoc "where" lst)))
               ) ;_ end of if
             ) ;_ end of vla-put-PatternSpace
           (vla-put-layer
             hat
             (if (cdr (assoc "layer" lst))
               (vla-get-name (_kpblc-layer-create (cdr (assoc "layer" lst))))
               "0"
               ) ;_ end of if
             ) ;_ end of vla-put-layer
           (vla-put-linetype
             hat
             (if (cdr (assoc "ltype" lst))
               (vla-get-name
                 (_kpblc-linetype-load
                   (cdr (assoc "ltype" lst))
                   (cdr (assoc "ltypefile" lst))
                   ) ;_ end of _KPBLC-LINETYPE-LOAD
                 ) ;_ end of vla-get-name
               "Continuous"
               ) ;_ end of if
             ) ;_ end of vla-put-linetype
           (if (cdr (assoc "lw" lst))
             (vla-put-lineweight hat (cdr (assoc "lw" lst)))
             ) ;_ end of if
           ) ;_ end of lambda
        '(lambda ()
           (_kpblc-error-print "_kpblc-ent-create-hatch" x)
           ) ;_ end of lambda
        ) ;_ end of _kpblc-error-catch
      ) ;_ end of progn
    ) ;_ end of if
  hat
  ) ;_ end of defun
Написано с полгода где-то как. Некоторые вещи по идее надо переделывать, но не до того.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 05.08.2016, 13:06
#7
jackUAROBEY

Проектировщик ВК
 
Регистрация: 18.09.2014
Анапа
Сообщений: 55


В посте #2 есть переменная lst-obj - список указателей на копируемые объекты Никак не могу понять её значение. Пытаюсь маскировку в блок закинуть в эту переменную уперся и все никак не могу разобраться.
jackUAROBEY вне форума  
 
Непрочитано 05.08.2016, 13:33
#8
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Указатель на маскировку получен? Он в списке?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 05.08.2016, 13:39
#9
jackUAROBEY

Проектировщик ВК
 
Регистрация: 18.09.2014
Анапа
Сообщений: 55


Через (entget (entlast)) получаю список. Не могу понять что значит указатель? Какое значение он должен содержать?
jackUAROBEY вне форума  
 
Непрочитано 05.08.2016, 14:18
#10
Vladimir_Sergeevich

рисую дороги, в перерывах курю Lisp
 
Регистрация: 20.04.2011
Пермь
Сообщений: 475
<phrase 1= Отправить сообщение для Vladimir_Sergeevich с помощью Skype™


jackUAROBEY, все же написано:
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
* lst-obj список указателей на копируемые объекты
(entget (entlast)) - получается ассоциативный список dxf-кодов объекта, а надо список указателей. Например (list (entlast)) или (list (car (entsel)))
Указателем может быть как ename, так и vla-object (подробнее см в описании _kpblc-conv-ent-to-vla)
__________________
Не труд сделал из обезьяны человека, а лень и жажда халявы...
Vladimir_Sergeevich вне форума  
 
Непрочитано 05.08.2016, 14:31
#11
jackUAROBEY

Проектировщик ВК
 
Регистрация: 18.09.2014
Анапа
Сообщений: 55


Спасибо вроде что то получаться стало.
jackUAROBEY вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Добавление "экзотических" объектов в блок

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

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