[jackUAROBEY]

Добрый день
Странное дело
Когда в чертеже один слой "0" программа приведнная ниже не создает слой.
Но стоит добавить слой "Слой1" и программа начинает работать.

Код:

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

 (defun MakeLayer ( / ryz_name ryz_colour ryz_linetype ryz_lineweight ryz_willplot ryz_bitflag ryz_description) ;создание слоя "not prin"
    (setq ryz_name (strcat  (getvar "CLAYER") "_выноски" )
	  ryz_colour 90
	  ryz_linetype "CONTINUOUS"
	  ryz_lineweight 0.3  
	  ryz_willplot t
	  ryz_bitflag 0
	  ryz_description "")
    (or
      (tblsearch "LAYER" ryz_name)
      (entmake
	(append
	  (list
	    (cons 0 "LAYER")
	    (cons 100 "AcDbSymbolTableRecord")
	    (cons 100 "AcDbLayerTableRecord")
	    (cons 2  ryz_name)
	    (cons 70 ryz_bitflag)
	    (cons 290 (if ryz_willplot 1 0))
	    (cons 6
		  (if (and ryz_linetype (tblsearch "LTYPE" ryz_linetype))
		    ryz_linetype "CONTINUOUS"
		    )
		  )
	    (cons 62 (if (and ryz_colour (< 0 (abs ryz_colour) 256)) ryz_colour 1))
	    (cons 370
		  (fix
		    (* 100
		       (if (and ryz_lineweight (<= 0.0 ryz_lineweight 2.11)) ryz_lineweight 0.3)
		       )
		    )
		  )
	    )
	  (if ryz_description
	    (list
	      (list -3
		    (list "AcAecLayerStandard" (cons 1000 "") (cons 1000 ryz_description))
		    )
	      )
	    )
	  )
	)
      )
    )

Думаю что при создание "Слоя1" включается какая то переменная, а какая не пойму.

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

Код:

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

 (defun makelayer (/ ryz_name ryz_colour ryz_linetype ryz_lineweight ryz_willplot ryz_bitflag ryz_description) ;создание слоя "not prin"
  (setq ryz_name        (strcat (getvar "CLAYER") "_выноски")
        ryz_colour      90
        ryz_linetype    "CONTINUOUS"
        ryz_lineweight  0.3
        ryz_willplot    t
        ryz_bitflag     0
        ryz_description ""
        ) ;_ end of setq
  (or (tblsearch "LAYER" ryz_name)
      (entmake
        (append (list (cons 0 "LAYER")
                      (cons 100 "AcDbSymbolTableRecord")
                      (cons 100 "AcDbLayerTableRecord")
                      (cons 2 ryz_name)
                      (cons 70 ryz_bitflag)
                      (cons 290
                            (if ryz_willplot
                              1
                              0
                              ) ;_ end of if
                            ) ;_ end of cons
                      (cons 6
                            (if (and ryz_linetype (tblsearch "LTYPE" ryz_linetype))
                              ryz_linetype
                              "CONTINUOUS"
                              ) ;_ end of if
                            ) ;_ end of cons
                      (cons 62
                            (if (and ryz_colour (< 0 (abs ryz_colour) 256))
                              ryz_colour
                              1
                              ) ;_ end of if
                            ) ;_ end of cons
                      (cons 370
                            (fix (* 100
                                    (if (and ryz_lineweight (<= 0.0 ryz_lineweight 2.11))
                                      ryz_lineweight
                                      0.3
                                      ) ;_ end of if
                                    ) ;_ end of *
                                 ) ;_ end of fix
                            ) ;_ end of cons
                      ) ;_ end of list
                (if (and ryz_description (/= ryz_description ""))
                  (list (list -3 (list "AcAecLayerStandard" (cons 1000 "") (cons 1000 ryz_description))))
                  ) ;_ end of if
                ) ;_ end of append
        ) ;_ end of entmake
      ) ;_ end of or
  ) ;_ end of defun

Вообще-то я бы не стал устанавливать описание слоя через entmake / entmakex. Но дело хозяйское

[jackUAROBEY]

Сообщение от Кулик Алексей aka kpblc Вообще-то я бы не стал устанавливать описание слоя через entmake / entmakex. Но дело хозяйское

да вроде нормально работало. А при одном слое не срабатывает. Можно конечно просто добавить команду создать слой а потом исполнить код но как то не айс

[Setvar]

Сообщение от jackUAROBEY но как то не айс

Ну и кушал бы мороженное, а не страдал ерундой. Это лупить из пушки по воробьям - не айс.

[jackUAROBEY]

Да, наверно исправлю на программный метод. Ну все таки в чем проблема почему при одном слое"0" не срабатывает. Стоит поставить размер, появится еще один слой Defpoints и сразу все работает.

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

Скорее всего, потому что прописывается какое-то количество словарей.

[koMon]

Если добавить (regapp "AcAecLayerStandard"), то создаёт

Код:

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

 

(defun MakeLayer (/ ryz_name ryz_colour ryz_linetype ryz_lineweight ryz_willplot ryz_bitflag ryz_description )	;создание слоя "not prin"
  (setq	ryz_name	(strcat (getvar "CLAYER") "_выноски")
	ryz_colour	90
	ryz_linetype	"CONTINUOUS"
	ryz_lineweight	0.3
	ryz_willplot	t
	ryz_bitflag	0
	ryz_description	""
  )
  (regapp "AcAecLayerStandard") 
  (or
    (tblsearch "LAYER" ryz_name)
    (entmake
      (list
	(cons 0 "LAYER")
	(cons 100 "AcDbSymbolTableRecord")
	(cons 100 "AcDbLayerTableRecord")
	(cons 2 ryz_name)
	(cons 70 ryz_bitflag)
	(cons 290
	      (if ryz_willplot
		1
		0
	      )
	)
	(cons 6
	      (if (and ryz_linetype (tblsearch "LTYPE" ryz_linetype))
		ryz_linetype
		"CONTINUOUS"
	      )
	)
	(cons 62
	      (if (and ryz_colour (< 0 (abs ryz_colour) 256))
		ryz_colour
		1
	      )
	)
	(cons
	  370
	  (fix
	    (* 100
	       (if (and ryz_lineweight (<= 0.0 ryz_lineweight 2.11))
		 ryz_lineweight
		 0.3
	       )
	    )
	  )
	)
	(if ryz_description
	  (list	-3
		(list "AcAecLayerStandard"
		      (cons 1000 "")
		      (cons 1000 ryz_description)
		)
	  )
	)
      )
    )
  )
)

[jackUAROBEY]

Сообщение от koMon Если добавить (regapp "AcAecLayerStandard"), то создаёт

Спасибо помогло.