重新创建层

flowerrobot · 发表于 2022-7-6 14:22:38

如果我已经创建了层，我的lisp基本上就没人听，它不会重新编写实体
我的许多同谋使用这些图层，但它们都设置为白色，只是改变了颜色，即黄色图层的红线和一个暗淡的“D”
（请不要评论同性恋阶层，我必须整天与他们合作）

(defun C:lay (/ layerlist count nme col lt plt)
(setvar "cmdecho" 0)
(setq layerlist
 (list
  (list "white" "7" "CONTINUOUS")
  (list "red" "1" "CONTINUOUS")
  (list "blue" "5" "CONTINUOUS")
  (list "green" "4" "CONTINUOUS")
  (list "grey" "8" "CONTINUOUS")
  (list "magenta" "6" "CONTINUOUS")
  (list "cyan" "4" "CONTINUOUS")
  (list "dim" "4" "CONTINUOUS")
  (list "hidden" "7" "hidden")
  (list "center" "7" "center")
  (list "Phantom" "8" "phantom")
  (list "text" "2" "CONTINUOUS")
  (list "noplot" "8" "phantom")
  (list "yellow" "6" "CONTINUOUS")
 )
)
(setq count 0)
(while (nth count layerlist)
 (setq nme (car (nth count layerlist)))
 (setq col (atoi (cadr (nth count layerlist))))
 (setq lt (caddr (nth count layerlist)))
 (setq count (1+ count))
   (if (= nme "noplot")
    (setq plt 0)
    (setq plt 1)
 )
 (and (entmake
     (list
       (cons 0 "LAYER")
       (cons 100 "AcDbSymbolTableRecord")
       (cons 100 "AcDbLayerTableRecord")
       (cons 2 Nme)
       (cons 70 0)
       (cons 62 Col)
       (cons 6 Lt)
       (cons 290 plt)
       (cons 370 0)
  )
 )
 )
)
(setvar "cmdecho" 1)
(princ)
)

Freerefill · 发表于 2022-7-6 14:27:52

一些建议。。。

首先，您可以编写一个lisp来获取具有特定属性（例如，颜色或线型）的所有直线/多段线，并将其更改为适当的图层。我在工作中使用这种技术，它非常有用，特别是当你需要冻结或隔离层时。用LISP编写也很容易。

其次，你的代码很好。如果您的问题是没有任何内容被过度编写，那么可以尝试在代码中添加一个代码，使用命令“laydel”在重新编写层之前去掉层。

如果你真的想多跑一英里，

copy


(vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))

这应该让你开始。

希望这能有所帮助^。^

NBC · 发表于 2022-7-6 14:29:22

但是，使用LAYDEL时要非常小心，因为它还会删除使用LAYDEL的图层上的所有实体。

Commandobill · 发表于 2022-7-6 14:33:11

我知道它不是很干净，但试试这个。

copy

(defun C:lay (/ laylst laynm exlay nme)
 (setvar "cmdecho" 0)
 (setq exlay (list (cdr (assoc 2 (tblnext "Layer" t)))))
 (while (setq laynm (tblnext "Layer"))
   (setq exlay (append (list (cdr (assoc 2 laynm)))exlay))
   )
   
 (setq laylst
    (list
      (list "white" 7 "CONTINUOUS")
      (list "red" 1 "CONTINUOUS")
      (list "blue" 5 "CONTINUOUS")
      (list "green" 4 "CONTINUOUS")
      (list "grey" 8 "CONTINUOUS")
      (list "magenta" 6 "CONTINUOUS")
      (list "cyan" 4 "CONTINUOUS")
      (list "dim" 4 "CONTINUOUS")
      (list "hidden" 7 "hidden")
      (list "center" 7 "center")
      (list "Phantom" 8 "phantom")
      (list "text" 2 "CONTINUOUS")
      (list "noplot" 8 "phantom")
      (list "yellow" 6 "CONTINUOUS")
      )
   )
 ;***********************Borrowed from Lee Mac*************************
 (mapcar
   '(lambda (z)
      (if (not (tblsearch "LTYPE" (caddr z)))
   (vla-load
     (vla-get-Linetypes
       (vla-get-ActiveDocument
         (vlax-get-acad-object))) (caddr z) "acad.lin"))) laylst)
 ;*********************************************************************
 (mapcar
   '(lambda (z)
     (if (member (setq nme (car z)) exlay)
   (progn
     (vla-put-linetype (setq layen (vlax-ename->vla-object (tblobjname "Layer" nme))) (caddr z))
     (vla-put-colorindex (vla-get-truecolor layen) (cadr z)))
   (progn
     (entmake
       (list
         (cons 0 "LAYER")
         (cons 100 "AcDbSymbolTableRecord")
         (cons 100 "AcDbLayerTableRecord")
         (cons 2 Nme)
         (cons 70 0)
         (cons 62 (cadr z))
         (cons 6 (caddr z))
         (cons 290 1)
         (cons 370 0)))))) laylst)
 (vla-put-plottable (vlax-ename->vla-object (tblobjname "Layer" "noplot")) :vlax-false)
 )