粘土（读取线型）

au-s · 发表于 2022-7-6 14:43:41

你好

我修改了这个小Lisp程序的一点下载它从互联网上。

无论如何，它的阅读层，并创建它们，并将其设置为当前。

我想添加的是，它从我的线型目录中读取线型。。。

看一下附带的lisp。

这是自述文件。

CLAY.lsp ReadMe.txt file.
CLAY allows you to create layer(s) from a master list.  <Master.txt>
Edit the MASTER.txt file to include all of your common layers then run the
CLAY.lsp program in a drawing to instantly create any layer in the master.txt file.
NOTE: CLAY will skip the first three lines inside the MASTER.txt file.

这是我的主人。txt文件

copy

Layer Name - Do not delete
Color      - Do not delete
Line Type  - Do not delete
STR
1
Continuous
N

请记住，我添加了第四行，因此lisp也可以读取它。。。
现在，如果我想要另一个未加载的线型，lisp将从目录中读取，并在创建时将其创建到图层。

这是我写的东西，但是我可以把它放在这个lisp中的什么地方使它起作用呢。

copy

(if (not (tblsearch "ltype" LineType))
   (progn
     (setvar "expert" 3)
     (setq ltype_list
     (list
       (strcat "K:\\AIX.lin")
       (strcat "K:\\AIX2.lin")
       (strcat "K:\\AIX3.lin")
     )
     )
     (foreach n ltype_list
(command "linetype" "l" "*" n "")
     )
     (setvar "expert" 0)
   )
 )

然后在附着的粘土中。lsp lisp添加此

copy

"l" LineType

到（命令“-layer”）-行。。
粘土。lsp

TimSpangler · 发表于 2022-7-6 15:06:36

那么，您要加载给定图层的关联线型吗？这是我用的

copy


;;; ------------------------------------------------------------------------
;;;    STDLIB_LOAD_LINETYPE.LSP
;;;
;;;    Copyright © December, 2008
;;;    Timothy G. Spangler
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    STDLIB_LOAD_LINETYPE
;;;
;;;                 Description:
;;;                        Called from a menu pulldown or rightclick menu
;;;                * (STDLIB_LOAD_LINETYPE <LINETYPE>)
;;;                <LINETYPE>                        =        STRING        =        Valid linetype
;;;
;;;                        Returns:
;;;                                T if found and loaded otherwise nil
;;;
;;; ------------------------------------------------------------------------
;;; MAIN FUNCTION ;;;;;;;;;;;;;;;;;;;;;;;;;
(defun STDLIB_LOAD_LINETYPE (Linetype / OldCmdEcho LineFiles FullFile Found OpenFile CurrentLine LinePath Result)
;; Set system variables
(setq OldCmdEcho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
;; Load linetype
(if (not (tblsearch "LTYPE" Linetype))
        (progn
                ;; Check each search path for a .lin file
                (foreach Path (STR->LIST (getenv "ACAD") ";")
                        (if (setq LineFiles (vl-directory-files Path "*.lin"))
                                (progn
                                        (foreach File LineFiles
                                                (setq FullFile (cons (strcat Path "\" File) FullFile))
                                        )
                                        (setq Found (cons Path Found))
                                )
                        )
                )
                ;; Read each line file found and check for the linetype
                (foreach LineFile FullFile
                        (setq OpenFile (open LineFile "r"))
                        (while (setq CurrentLine (read-line OpenFile))
                                (if (wcmatch (strcase CurrentLine) (strcat "*" (strcase LineType) "*"))
                                        (setq LinePath Linefile)
                                )
                        )
                        (close OpenFile)
                )
                ;; Load result
                (if LinePath        
                        (setq Result T)                                        
                        (setq Result nil)
                )
        )
)
(if Result
        (command "-linetype" "load" Linetype LinePath "")
)
;; Reset system
(setvar "CMDECHO" OldCmdEcho)
;; Send Result
Result
)
(princ)

只要它是在一个。lin文件应该加载到您的支持路径中。我还没有遇到任何问题。

HTH公司

au-s · 发表于 2022-7-6 15:28:41

我觉得很酷，尽管我想使用特定路径中的线型
如上所述。。。

我也很难将这两者联系起来

这是整个过程的代码：

copy

;;;--- CLAY.lsp - Create layer(s) from a Master List [ Master.txt ]
;;;
;;;
;;;--- Created on 2/27/04 by Jeffery P Sanders
;;;
;;;
;;;--- Modified on 5/3/05
;;;
;;;
;;;
;;;--- Please read the txt file CLAY_README.txt
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   Sort Function   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;--- Usage (srt list)
;;;
(defun srt(alist / n)(setq lcup nil rcup nil)
(defun cts(a b)
 (cond
  ((> a b)t)
  ((= a b )t)
  (t nil)
))
(foreach n alist
 (while (and rcup(cts n(car rcup)))(setq lcup(cons(car rcup)lcup)rcup(cdr rcup)))
  (while (and lcup(cts(car lcup)n))(setq rcup(cons(car lcup)rcup)lcup(cdr lcup)))
  (setq rcup(cons n rcup))
)
(append(reverse lcup)rcup)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;  End of Sort Function  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;; Function to save the dialog box settings  ;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun saveVars()
 ;;;--- Setup a list to hold the selected items
 (setq layList(list))
 ;;;--- Save the list setting
 (setq readlist(get_tile "layerlist")) 
 ;;;--- Setup a variable to run through the list
 (setq count 1)
 ;;;--- Cycle through the list getting all of the selected items
 (while (setq item (read readlist))
   (setq layList(append layList (list (nth item layerList))))
   (while 
     (and
       (/= " " (substr readlist count 1))
       (/= ""  (substr readlist count 1))
     )
     (setq count (1+ count))
   )
   (setq readlist (substr readlist count))
 )
)
;;;;;;;;;;;;;;;;;;;;;;; End of saving settings from dialog box ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;    Function to get a list of all layer names   ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun getLayerInfo()
 ;;;--- Set up an empty list
 (setq layerList(list))
 ;;;--- Open the text file
 (if (findfile "MASTER.txt")
   (progn
     (if (setq fil(open (findfile "MASTER.txt") "r"))
       (progn
         ;;;--- Skip the first three lines        
         (read-line fil)
         (read-line fil)
         (read-line fil)
         ;;;--- Read the lines of data in the text file
         (while (setq a (read-line fil))
           ;;;--- Get the color
           (setq b(read-line fil))
           ;;;--- Get the linetype
           (setq c(read-line fil))
 (setq d(read-line fil))
           ;;;--- Add the data to the list
           (setq layerList
             (append 
               layerList
               (list (list a b c d))
             )
           )
         )
         ;;;--- Close the file.
         (close fil)
       )
     )
   )
 )
 ;;;--- Sort the list
 ;(setq layerList(srt layerList))
 layerList
)
;;;;;;;;;;;;;;;;;;;;;; End of layer listing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;888;;;;;;;888;;;;;;;;;;888;;;;;;;;;;;8888888;;;;;;8888;;;888;;;;;;;;;;;;
;;;;;;;;8888;;;;;8888;;;;;;;;;88888;;;;;;;;;;;;888;;;;;;;;88888;;888;;;;;;;;;;;;
;;;;;;;;88888;;;88888;;;;;;;;888;888;;;;;;;;;;;888;;;;;;;;888888;888;;;;;;;;;;;;
;;;;;;;;888888;888888;;;;;;;888;;;888;;;;;;;;;;888;;;;;;;;888;888888;;;;;;;;;;;;
;;;;;;;;888;88888;888;;;;;;88888888888;;;;;;;;;888;;;;;;;;888;;88888;;;;;;;;;;;;
;;;;;;;;888;;888;;888;;;;;888;;;;;;;888;;;;;;8888888;;;;;;888;;;8888;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;888;;;;;;;;;;;;888888888;;;;;;;;888888888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;88888;;;;;;;;;;;888;;;888;;;;;;;;888;;;888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;888;888;;;;;;;;;;888;;;888;;;;;;;;888;;;888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;888;;;888;;;;;;;;;888888888;;;;;;;;888888888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;88888888888;;;;;;;;888;;;;;;;;;;;;;;888;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;888;;;;;;;888;;;;;;;888;;;;;;;;;;;;;;888;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:CLAY(/ layerList)
 ;;;--- Turn off the command echo
 (setvar "cmdecho" 0)
 ;;;--- Preset an exit string
 (setq alertStr "\n CLAY.lsp Complete!")
 ;;;--- Get the layer names
 (setq layerList(getLayerInfo))
 ;;;--- If a master list was found
 (if layerList
   (progn
     ;;;--- Load the DCL file
     (setq dcl_id (load_dialog "CLAY.dcl"))
     ;;;--- See if the dialog box is already loaded
     (if (not (new_dialog "CLAY" dcl_id))
       (progn
         (alert "The CLAY.DCL file was not found!")
         (exit)
       )
     )
     ;;;--- Get the layer names
     (setq layNames(list))
     (foreach a layerList
       (setq layNames(append layNames(list (car a))))
     )
     ;;;--- Add the layer names to the dialog box
     (start_list "layerlist" 3)
     (mapcar 'add_list layNames)
     (end_list)
     ;;;--- If an action event occurs, do this function
     (action_tile "cancel" "(setq ddiag 1)(done_dialog)")
     (action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)") 
     ;;;--- Display the dialog box
     (start_dialog)
     ;;;--- If the cancel button was pressed
     (if (= ddiag 1)
       ;;;--- Set an exit message
       (setq alertStr "\n \n ...CLAY Cancelled. \n ")
     )
     ;;;--- If the "Okay" button was pressed
     (if (= ddiag 2)
       (progn
         ;;;--- If layers were selected from the dialog box
         (if(> (length layList) 0)
           (progn
             ;;;--- Cycle through each layer selected
             (foreach a layList
               ;;;--- If the layer does not exist
               (if(not(tblsearch "LAYER" (car a)))
                 (progn
 (if (not (tblsearch "ltype" Linetype))
   (progn
     (setvar "expert" 3)
     (setq ltype_lista
     (list
       (strcat "K:\\CAD\\Linetypes\\AIX.lin")
(strcat "K:\\CAD\\Linetypes\\AIX2.lin")
     )
     )
     (foreach n ltype_lista
(command "linetype" "l" "*" n "")
     )
     (setvar "expert" 0)
   )
 )
                   ;;;--- Creat the layer
                   (command "-layer" "new" (car a) "C" (cadr a) (car a) "L" Linetype (car a) "p" d (car a) "s" (car a) "" "")
                   (princ "\nCreated Layer  - ")
                   (princ (car a))
                 )
                 ;;;--- Else the layer already exist so modify it's properties
                 (progn
                   ;;;--- Modify the layer
                   (command "-layer" "C" (cadr a) (car a) "L" Linetype (car a) "p" d (car a) "s" (car a)"" "")
                   (princ "\nModified Layer - ")
                   (princ (car a))
                 )
               )
             )
           )
         )
       )
     )
     ;;;--- Print the exit message
     (princ alertStr)
   )
   ;;;--- If a master list was not generated, inform the user
   (progn
      (setq alertStr "The MASTER list was not found.\nMake sure the file [ MASTER.txt ] is in your search\npath and try again!")
      (setq alertStr (strcat alertStr "\n\nThe master list must be in this format:\n\nLayerName\nColor\nLineType"))
      (setq alertStr (strcat alertStr "\nLayerName\nColor\nLineType\nect.\n\nNote: The program will skip the first three lines."))
      (alert alertStr)
   )
 )
 ;;;--- reset the command echo
 (setvar "cmdecho" 1)
 ;;;--- suppress the last echo for a clean exit
 (princ)
)

选中上面的创建层。。。

这是我的主人。txt文件
STR公司
1.
AIX_品牌-EI30
N

au-s · 发表于 2022-7-6 15:43:13

会是这样吗？？
取自粘土。lsp

copy

              ;;;--- Cycle through each layer selected
             (foreach a layList
 (if (not (tblsearch "ltype" [color=red](caddr a))[/color]
   (progn   
     (setvar "expert" 3)
     (setq ltype_lista
     (list
       (strcat "K:\\CAD\\Linetypes\\AIX1.lin")
     )
     )
     (foreach n ltype_lista
(command "linetype" "l" "*" n "")
     )
     (setvar "expert" 0)
   )
 ))

au-s · 发表于 2022-7-6 15:50:48

我解决了这个问题。。。

这样地：：

copy

;;;--- CLAY.lsp - Create layer(s) from a Master List [ Master.txt ]
;;;
;;;
;;;--- Created on 2/27/04 by Jeffery P Sanders
;;;
;;;
;;;--- Modified on 5/3/05
;;;
;;;
;;;
;;;--- Please read the txt file CLAY_README.txt
(defun Skapalinje ()
(if (not (tblsearch "ltype" (caddr a) ))
   (progn   
     (setvar "expert" 3)
     (setq ltype_lista
     (list
       (strcat "K:\\CAD\\AIX-meny-2008\\Linjetyper\\AIX_brand.lin")
(strcat "K:\\CAD\\AIX-meny-2008\\Linjetyper\\AIX_DetaljSnitt.lin")
(strcat "K:\\CAD\\AIX-meny-2008\\Linjetyper\\AIX_konnektion.lin")
(strcat "K:\\CAD\\AIX-meny-2008\\Linjetyper\\AIX_PktStreck.lin")
(strcat "K:\\CAD\\AIX-meny-2008\\Linjetyper\\AIX_streckad.lin")
(strcat "K:\\CAD\\AIX-meny-2008\\Linjetyper\\AIX_systemlinjer.lin")
     )
     )
     (foreach n ltype_lista
(command "linetype" "l" "*" n "")
     )
     (setvar "expert" 0)
   )
 )
 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   Sort Function   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;--- Usage (srt list)
;;;
(defun srt(alist / n)(setq lcup nil rcup nil)
(defun cts(a b)
 (cond
  ((> a b)t)
  ((= a b )t)
  (t nil)
))
(foreach n alist
 (while (and rcup(cts n(car rcup)))(setq lcup(cons(car rcup)lcup)rcup(cdr rcup)))
  (while (and lcup(cts(car lcup)n))(setq rcup(cons(car lcup)rcup)lcup(cdr lcup)))
  (setq rcup(cons n rcup))
)
(append(reverse lcup)rcup)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;  End of Sort Function  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;; Function to save the dialog box settings  ;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun saveVars()
 ;;;--- Setup a list to hold the selected items
 (setq layList(list))
 ;;;--- Save the list setting
 (setq readlist(get_tile "layerlist")) 
 ;;;--- Setup a variable to run through the list
 (setq count 1)
 ;;;--- Cycle through the list getting all of the selected items
 (while (setq item (read readlist))
   (setq layList(append layList (list (nth item layerList))))
   (while 
     (and
       (/= " " (substr readlist count 1))
       (/= ""  (substr readlist count 1))
     )
     (setq count (1+ count))
   )
   (setq readlist (substr readlist count))
 )
)
;;;;;;;;;;;;;;;;;;;;;;; End of saving settings from dialog box ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;    Function to get a list of all layer names   ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun getLayerInfo()
 ;;;--- Set up an empty list
 (setq layerList(list))
 ;;;--- Open the text file
 (if (findfile "K:\\CAD\\AIX-meny-2008\\Lisp\\lager\\MASTERV.txt")
   (progn
     (if (setq fil(open (findfile "K:\\CAD\\AIX-meny-2008\\Lisp\\lager\\MASTERV.txt") "r"))
       (progn
         ;;;--- Skip the first three lines        
         (read-line fil)
         (read-line fil)
         (read-line fil)
         ;;;--- Read the lines of data in the text file
         (while (setq a (read-line fil))
       
           ;;;--- Get the color
           (setq b(read-line fil))
    
           ;;;--- Get the linetype
           (setq c(read-line fil))
    
 (setq d(read-line fil))
 (setq e(read-line fil))
           ;;;--- Add the data to the list
           (setq layerList
             (append 
               layerList
               (list (list a b c d e))
             )
           )
         )
         ;;;--- Close the file.
         (close fil)
       )
     )
   )
 )
 ;;;--- Sort the list
 ;(setq layerList(srt layerList))
 layerList
)
;;;;;;;;;;;;;;;;;;;;;; End of layer listing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;888;;;;;;;888;;;;;;;;;;888;;;;;;;;;;;8888888;;;;;;8888;;;888;;;;;;;;;;;;
;;;;;;;;8888;;;;;8888;;;;;;;;;88888;;;;;;;;;;;;888;;;;;;;;88888;;888;;;;;;;;;;;;
;;;;;;;;88888;;;88888;;;;;;;;888;888;;;;;;;;;;;888;;;;;;;;888888;888;;;;;;;;;;;;
;;;;;;;;888888;888888;;;;;;;888;;;888;;;;;;;;;;888;;;;;;;;888;888888;;;;;;;;;;;;
;;;;;;;;888;88888;888;;;;;;88888888888;;;;;;;;;888;;;;;;;;888;;88888;;;;;;;;;;;;
;;;;;;;;888;;888;;888;;;;;888;;;;;;;888;;;;;;8888888;;;;;;888;;;8888;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;888;;;;;;;;;;;;888888888;;;;;;;;888888888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;88888;;;;;;;;;;;888;;;888;;;;;;;;888;;;888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;888;888;;;;;;;;;;888;;;888;;;;;;;;888;;;888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;888;;;888;;;;;;;;;888888888;;;;;;;;888888888;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;88888888888;;;;;;;;888;;;;;;;;;;;;;;888;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;888;;;;;;;888;;;;;;;888;;;;;;;;;;;;;;888;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:AIX:SKAPALAGERV(/ layerList)
 ;;;--- Turn off the command echo
 (setvar "cmdecho" 0)
 ;;;--- Preset an exit string
 (setq alertStr "\n Skapa lager Klar!")
 ;;;--- Get the layer names
 (setq layerList(getLayerInfo))
 ;;;--- If a master list was found
 (if layerList
   (progn
     ;;;--- Load the DCL file
     (setq dcl_id (load_dialog "K:\\CAD\\AIX-meny-2008\\Lisp\\lager\\CLAY.dcl"))
     ;;;--- See if the dialog box is already loaded
     (if (not (new_dialog "CLAYV" dcl_id))
       (progn
         (alert "The CLAY.DCL fil var ej fuinnen!!")
         (exit)
       )
     )
     ;;;--- Get the layer names
     (setq layNames(list))
     (foreach a layerList
       (setq layNames(append layNames(list (car a))))
     )
     ;;;--- Add the layer names to the dialog box
     (start_list "layerlist" 3)
     (mapcar 'add_list layNames)
     (end_list)
     ;;;--- If an action event occurs, do this function
     (action_tile "cancel" "(setq ddiag 1)(done_dialog)")
     (action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)") 
     ;;;--- Display the dialog box
     (start_dialog)
     ;;;--- If the cancel button was pressed
     (if (= ddiag 1)
       ;;;--- Set an exit message
       (setq alertStr "\n \n ...Skapa Lager Avbruten. \n ")
     )
 
     ;;;--- If the "Okay" button was pressed
     (if (= ddiag 2)
       (progn
           
         ;;;--- If layers were selected from the dialog box
         (if(> (length layList) 0)
           (progn
             ;;;--- Cycle through each layer selected
             (foreach a layList
(SkapaLinje)
               ;;;--- If the layer does not exist
               (if(not(tblsearch "LAYER" (cadr a)))
                 (progn
     
                   ;;;--- Creat the layer
                   (command "-layer" "new" (cadr a) "C" (cadddr a) (cadr a) "Lt" (caddr a) (cadr a) "p" e (cadr a) "s" (cadr a) "")
                   (princ "\nSkapad Lager - ")
                   (princ (cadr a))
                 )
                 ;;;--- Else the layer already exist so modify it's properties
                 (progn
                   ;;;--- Modify the layer
                   (command "-layer" "C" (cadddr a) (cadr a) "Lt" (caddr a) (cadr a) "p" e (cadr a) "s" (cadr a) "")
                   (princ "\nModifierad Lager - ")
                   (princ (cadr a))
                 )
               )
             )
           )
         )
       )
     )
     ;;;--- Print the exit message
     (princ alertStr)
   )
   ;;;--- If a master list was not generated, inform the user
   (progn
      (setq alertStr "The MASTER list was not found.\nMake sure the file [ MASTER.txt ] is in your search\npath and try again!")
      (setq alertStr (strcat alertStr "\n\nThe master list must be in this format:\n\nLayerName\nColor\nLineType"))
      (setq alertStr (strcat alertStr "\nLayerName\nColor\nLineType\nect.\n\nNote: The program will skip the first three lines."))
      (alert alertStr)
   )
 )
 ;;;--- reset the command echo
 (setvar "cmdecho" 1)
 ;;;--- suppress the last echo for a clean exit
 (princ)
)

尽管我读过ferom帮助文件，AutoLISP支持car和cdr的连接，深度可达四级。我的txt文件中有5行，最后一行告诉我是否要打印图层。

我怎样才能使它发挥作用。。。
一开始我在代码中
（setq e（…作为最后一行…第五行）
在lisp中的命令中
（命令……“p”e（cadr a），该命令应使选定的图层可绘制或不可绘制。。

尽管我收到错误消息“选项键盘无效”

[编程交流] 粘土（读取线型）

发表回复

精选推荐