每行新图层

ktbjx · 发表于 2022-7-5 15:31:56

场景i将绘制一条线，该线将位于新层上，并带有其计数

有没有可能制作一个lisp，我可以使用它制作一个层，并将其计为层名称？？？
所以我做的每一行都有不同的层数？有没有可能我可以设置从哪个数字开始？

我试着做。。。我想我做的每一行都有新的一层，但我想再进一步。
如果我想在一层上画多行呢？在不丢失行计数的情况下，它将生成的下一层应该是下一个计数。类似DWG文件的内容。。。

有人能帮我做吗？

以下是我目前获得的代码：

copy


(defun c:TestLINE (/ numero contstring)
   (if (and (setq numero (getint "\nEnter HoleID: "))
     )               
   
(while T
     (if (not
           (tblsearch
             "LAYER"
         (setq contstring (strcat "" (itoa numero)))
     )
         )
   
       (command "_layer" "m" contstring "" "_.line" pause pause "")
   
   )
     (setq numero (+ numero 1))
   )
 )
   (princ)
)

如果你看看这幅画，你就会明白我说的线数是什么意思。。。。
样本Cad合成。图纸

ktbjx · 发表于 2022-7-5 15:36:33

我想我有点明白了？？？
我知道这很难看，但至少我试过。。。。

copy

(defun testes ()
  ; (if (and (setq numero (getint "\nEnter HoleID: "))
  ;   )               
   
(while T
     (if (not
           (tblsearch
             "LAYER"
         (setq contstring (strcat "" (itoa numero)))
     )
         )
   
       (command "_layer" "m" contstring "" "_.line" pause pause "")
   
   )
     (setq numero (+ numero 1))
   )
; )
   (princ)
)
(defun c:testestes (/ numero chcut cntr contstring)
   (setq numero (getint "\nEnter HoleID: "))
   (while T
       (setq chcut (getint "\nEnter # of CHCUTS: "))
       (setq cntr 1)
      (if (= chcut 1)
      (testes)
      )
    (if (not
           (tblsearch
             "LAYER"
                     (setq contstring (strcat "" (itoa numero)))
                     )
         )
       (command "_layer" "m" contstring "") 
   )
   
      (while (<= cntr chcut)
           (command "_.line" pause pause "")
            (setq cntr (+ cntr 1))
   (setq numero (+ numero 1))
   )
)
   (princ)
)

我相信我的尝试也会带来一些好处。

copy


; create pline by picking points press enter when finished
(command "_pline")
(while (= (getvar "cmdactive") 1 ) (command pause)
)

BIGAL · 发表于 2022-7-5 15:40:14

致相关人士。

睾丸

睾丸的功能是产生精子和雄激素，主要是睾酮。

更好的函数名之一。

ReMark · 发表于 2022-7-5 15:42:56

信息性！：大声笑：

Tharwat · 发表于 2022-7-5 15:46:30

我完全不明白OP在说什么：
就像绘制对象一样，图层会随着其计数而变化-
但是，如果手动更改当前层，会发生什么？
如果手动更改某些对象的图层，会发生什么情况？

以下是我玩过的游戏：

copy


(defun laychk (lay  / )
(if (not (tblsearch  "LAYER" (itoa lay)))
(command "_layer" "m" (itoa lay) "")
)
)
(defun c:testes ()
(if (/= numero nil)
(setvar 'clayer (itoa numero))
(progn
(setq numero (getint "Enter a number"))
(laychk numero)
)
)
(setq continue "Y")         
(while (=  continue "Y")
(command "_pline")
(while (= (getvar "cmdactive") 1 ) (command pause)
)
(setq numero (+ numero 1))
(laychk numero)
(if (= (setq continue (Getstring "Press <Cr> to continue any key to exit")) "")
(setq continue "Y")(setq continue "N"))
)
(princ)
)
(c:testes)

因此，上面只创建了一个层，并不断更改其名称。
虽然我的代码不是完全防错的。

Grrr · 发表于 2022-7-5 15:51:35

很抱歉，这本应该是测试，但我输入了一个错误，我很懒，所以我只是用它，并使用它。

这个想法是，我画一条线，层名称将是我一直在画的线的计数。
因此，如果我开始画一条线，这是计数1（这是我的layername 1），然后我继续画另一条线，这是计数2（这是layername 2），依此类推。。。
在每一层上画一条线很容易，正如你们在我丑陋的代码中看到的，我刚刚创建了一个层，我画了一条线，然后它循环。

我关心的是，在一个图层上，我想画两条或更多的线！但是仍然要跟踪计数，这样当我制作另一层时，它将是我计数的最后一个数字。

假设我在第五层，我会画两条线
我的下一个layername应该是7岁。
让我们继续，这次我在第7层，我将画4条线，
我的下一层应该是第10层。。。