插入来自另一fil的块

asos2000 · 发表于 2022-7-6 10:46:30

你能上传这些Lisp程序吗
并将这些块包含在lisp中，然后再次为您上传。

Agent 31 · 发表于 2022-7-6 10:51:28

以下是3个文件（XBlock.lsp、ddxblock.dcl、terminal.dwg）。正如我提到的，我将它们都保存在支持目录中。

在你把一切都安排好之后，有几件事要记住。名称是任意的。出于所有目的，请将其保留为“CC”。你可以把它命名为ABCDEFGHIJK。。。。。如果你这样选择，但这并不重要。默认起点为1，只需输入2作为终点。同样，只要终点高于起点，这是任意的。1-10、11-12、22-99，都无关紧要。

要查看我的问题，请打开文件“terminal.dwg”，运行LISP和VIOLA！现在打开一个空白图形并尝试。祝你好运

我还不习惯这些论坛，因为在我还是一个新手海报，所以让我知道如果这不上传。

干杯
XBLOCK。LSP
终端。图纸
ddxblock。dcl

Lee Mac · 发表于 2022-7-6 10:54:13

嗨，代理，

使现有代码工作的快速方法是确保其使用的所有块（即Terminal.dwg）都位于AutoCAD支持路径中。

可以通过在命令行键入“Options”，然后转到“Files”选项卡来找到支持路径。

李

Agent 31 · 发表于 2022-7-6 10:58:01

谢谢你，李，但是他们。。。请参阅我上一篇文章的第一行。。。

Lee Mac · 发表于 2022-7-6 10:59:06

嗨，代理，

我看了一下你发布的代码，并重写了它，希望能为你提供更强大的功能（它也应该运行得更快）。

如果你有任何问题，请告诉我。

李
xblock LM。lsp
ddxblock LM。dcl

Se7en · 发表于 2022-7-6 11:05:16

李，如果找不到障碍物，我相信你的常规动作会摇摆不定。

当我不打算在我的例程中进行用户交互（允许用户选择文件夹、文件等）时（即使这样，我在大多数情况下也会考虑过度杀戮，即我通常会尽可能快地使例程失败。如下面最后一个示例所示）。然而，当我设计一个用于用户交互的应用程序时，你可以指望至少还有100行左右，只是为了让它有点防爆。

copy

(defun blockp ( bn )
 ;;   
 ;; blockp
 ;; return ``location'' for a block search. 
 ;;
 ;; if block is in dwg. returns ``dwg''
 ;; if block is found in paths returns
 ;;    ``path to dwg''
 ;; if not found, returns ``nil''
  (cond 
    ((tblsearch "BLOCK" bn) 'dwg)
    ((findfile (strcat bn ".dwg")))) )

copy

( (lambda ( block-to-insert file-to-get-block-from )
    (cond
      ( (or
          (tblsearch "BLOCK" block-to-insert)
          (ObjectDBX-copyblockfromdrawing file-to-get-block-from block-to-insert)
          )
       (command "insert" block-to-insert PAUSE "" "")
       (while (eq (logand (getvar "CMDACTIVE")) 1)
         (command PAUSE))
       )
      ( T
         (princ "\n\nUnable to locate block"))))
  "BlockThatDoesntExistInDrawing"
  "c:\\Drawing.dwg")