SetbylayerLisp程序

ksperopoulos · 发表于 2022-7-6 11:00:40

我正试图将这个命令（setbylayer）合并到一个lisp例程中，以清理外部参照。我正在尝试调整设置，以仅更改颜色，选择图形中的所有对象，将byblock更改为bylayer，并包括块。任何帮助都将不胜感激。

The Buzzard · 发表于 2022-7-6 11:14:35

对于初学者，您可以查看SETBYLAYERMODE变量。

SetByLayer模式

类型：整数
保存在：注册表
初始值：127

从系统变量下的AutoCAD帮助部分。

控制为SETBYLAYER选择哪些特性

使用以下值之和将设置存储为整数：

0未选择属性
1颜色属性
2线型属性
4线宽特性
8材料特性
16打印样式属性
32将ByBlock更改为Bylayer
64将ByBlock更改为ByLayer时包括块

这里还没有显示其他信息。

还可以在开发者帮助部分查看ssget

从选定对象创建选择集

（ssget[sel方法][pt1[pt2]]
[pt列表][过滤器列表]）
选择集可以包含图纸空间和模型空间中的对象，但在操作中使用选择集时，ssget会从当前无效的空间中过滤出对象。ssget返回的选择集仅包含主实体（没有属性或多段线顶点）。

也许这条线索会给你一些想法：http://www.cadtutor.net/forum/showthread.php?t=42062&highlight=SET+BYLAYER+LISP

ksperopoulos · 发表于 2022-7-6 11:24:45

这是怎么回事。（仅供参考-我是这方面的新手）

copy

 
(defun c:cleanxref2 ()
  (command "setvar" "cmdecho" 0)(command "setbylayermode" "1")
  (command "setvar" "cmdecho" 0)(command "setbylayer" "all" "" "y" "y")(princ))

ksperopoulos · 发表于 2022-7-6 11:32:21

setbylayer命令似乎无法获取文本设置为不同颜色的维度。此命令中是否有可以访问图形中所有注释项以及此命令更改为“bylayer”的所有其他项的设置？

The Buzzard · 发表于 2022-7-6 11:45:07

这是因为它是命名dimstyle的一部分。在这种情况下，需要获取所有尺寸的选择集，并将命名的dimstyle的dimstyle变量更改为bylayer。看起来你需要做一些额外的编码。

标注文字：DIMCLRT
尺寸线：DIMCLRD
尺寸外部线：DIMCLRE

The Buzzard · 发表于 2022-7-6 11:53:49

ksperopoulos，

下面是我在Afralisp上找到的代码http://www.afralisp.net/archive/lisp/clay.htm这涉及到将图元颜色属性设置为“bylayer”的主题。还有其他方面，例如线型和块，可以让您更好地了解如何继续。一旦你对这段代码有了想法，我希望剩下的事情会变得更容易。Afralisp有一种很好的方法，可以用简单的术语解释事情，使它更容易学习。对于线型和块，您也可以在Afralisp上找到编码。您可以根据自己的需要对其进行优化。

此代码处理大多数通用实体的颜色设置。
我刚把长名字从ColorToLayer改了。lsp到CTL。lsp。

copy

;CODING BEGINS HERE
(defun c:CTL ()
 (setq i 0 n 0)                                            ;clear the loop control variables
 (prompt "\n Select entities to analyze ")                 ;prompt the user
 (setq sel (ssget))                                        ;get the selection set
 (setq n (sslength sel))                                   ;get the number of objects
 (repeat n                                                 ;start the loop
   (setq entity (ssname sel i))                            ;get the entity name
   (setq name (entget entity))                             ;now get the entity list
   (if (not (assoc 6 name))                                ;if not Bylayer
     (progn                                                ;do the following
       (setq layer (cdr (assoc 8 name)))                   ;retrieve the layer name
       (setq layerinf (tblsearch "LAYER" layer))           ;get the layer data
       (setq layercol (cdr (assoc 62 layerinf)))           ;extract the default layer colour
       (setq name (append name (list (cons 62 layercol)))) ;construct an append the new list
       (entmod name)                                       ;update the entity
       (entupd entity)                                     ;update the screen
     )                                                     ;progn
   )                                                       ;if
   (setq i (1+ i))                                         ;increment the counter
 )                                                         ;repeat
 (princ))                                                  ;defun
(princ)
;CODING END HERE

ksperopoulos · 发表于 2022-7-6 12:08:23

谢谢Buzzard！我有很多东西要学。

[编程交流] SetbylayerLisp程序

发表回复

精选推荐