好了伙计们，
我有一个半成品程序，完全可以做我想要的。它与我发现的一些有助于将信息放入excel文件的函数配合使用。（我强烈推荐）。我发现的帮助我的函数通常在我的程序中的函数之后发布，这样我就可以调用它们，但是它们太长了，无法在这里发布，我知道它们不是问题所在，所以我将它们忽略掉。任何想使用/查看它们的人都可以http://web2.airmail.net/terrycad并下载getexcel。lsp。
我根据Fuccarro的程序设计了它，但我让它对我公司使用的三个标题栏进行排序，然后从中提取属性（它们在一些DWG中的标记不同。因此我必须有许多if语句，以防它们错误标记或标记不同，因此有了相当大的COND语句。）我在这个程序中遇到的问题是，我得到了一个关于参数太多的错误，我相信这与if语句中的COND语句有关。有解决方法吗？我以前在第一个if语句中有很多if语句，但我认为这可以修复错误，但它仍然会给我相同的错误。
OpenExcel、PutCell和CloseExcel函数来自我上面描述的函数。PutCell函数需要单元格编号，然后在该单元格中放置一个列表或信息字符串。列表将把每个项目放在前一个单元格的右侧，字符串将把信息放在指定的单元格中。
提前谢谢各位。
- ;-------------------------------------------------------------------------------
- ; DwgLogin - Records Data to Excel Sheet for Later Use
- ;-------------------------------------------------------------------------------
- (defun c:DwgLogin()
- (vl-load-com)
- (setq CurrentRow 1)
- (setq root (getvar "DWGPREFIX"))
- (setq filenamesDWG (vl-directory-files root "*.dwg"))
- (OpenExcel (setq xlFile (strcat root "DrawingLogin.xls")) "Sheet1" nil)
- (PutCell "A1" (list "Dwg. Number" "Sheet" "File #" "Desc." "Rev."))
- (foreach DWGitem filenamesDWG
- (open (strcat root DWGitem) "r")
- (setq CurrentRow (1+ CurrentRow))
- (If (/= nil (ssget "_X" (list '(0 . "INSERT") (cons 2 "S-TITLE"))))
- (setq TitleBlock "S-TITLE")
- ); **END IF**
- (if (/= nil (ssget "_X" (list '(0 . "INSERT") (cons 2 "DTITLE"))))
- (setq TitleBlock "DTITLE")
- ); **END IF**
- (if (/= nil (ssget "_X" (list '(0 . "INSERT") (cons 2 "TITLE"))))
- (setq TitleBlock "TITLE")
- ); **END IF**
- (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 TitleBlock)))) ; RETURNS SS CODE
- (if (not ss) (quit))
- (setq Edata (entget (setq e (ssname ss 0)))) ; GETS DXF SET FOR SS CODE
- (while (/= (cdr (assoc 0 Edata) "SEQEND"))
- (if (= (cdr (assoc 0 Edata)) "ATTRIB")
- (cond ((= (cdr (assoc 2 Edata)) "DwgNo.") (PutCell (strcat "A" (ITOA CurrentRow)) (cdr (assoc 1 Edata)))) ; COND TO PICK ATTRIBUTES
- ((= (cdr (assoc 2 Edata)) "DwgNo") (PutCell (strcat "A" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- ((= (cdr (assoc 2 Edata)) "wgNo.") (PutCell (strcat "A" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- ((= (cdr (assoc 2 Edata)) "WGNO") (PutCell (strcat "A" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- ((= (cdr (assoc 2 Edata)) "LINE2") (PutCell (strcat "D" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- ((= (cdr (assoc 2 Edata)) "LINE3") (PutCell (strcat "E" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- ((= (cdr (assoc 2 Edata)) "REVNO.") (PutCell (strcat "F" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- ((= (cdr (assoc 2 Edata)) "REVNO") (PutCell (strcat "F" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- ((= (cdr (assoc 2 Edata)) "REV") (PutCell (strcat "F" (ITOA CurrentRow)) (cdr (assoc 1 Edata))))
- )
- )
- (setq Edata (entget (setq e (entnext e))))
- ) ;WHILE
- (close (strcat root DWGitem))
- );ForEach
- (CloseExcel xlFile)
- )
| 
