对inser的条件Lisp调用

ishka · 发表于 2022-7-5 20:02:54

我错过什么了吗？我有一个原始的代码，我想让它基于用户的选择，但它似乎并没有像预期的工作条件时使用。
因此，原始代码为：

（定义c:esd\u gcid（/GRDREF MAPPATH）
（setvar“cmdecho”1）
（setvar“filedia”0）
（setvar“cmddia”0）
（命令“layer”“M”“G-NPLT”“））
（命令“rectang”PAUSE PAUSE）
（princ“\nCAD数据…”）
（setq GRDREF（getstring“输入数据类型：”））
（setq MAPPATH（strcat“M:\\GIS-CAD\\地籍\\TCAD\\DWG\\TCAD”GRDREF））
（位于“MAPPATH”X的命令“adedrawings”）
（命令“adequery”“C”“D”“L”“L”“P”“C”PAUSE“X”“E”“D”）
（命令“adedrawings”“DE”“*”“X”）
（setvar“cmddia”1）
（setvar“filedia”1）
（普林斯）
)

修改后的条件代码为

（定义c:esd\u gcid（/GRDREF MAPPATH）
（setvar“cmdecho”1）
（setvar“filedia”0）
（setvar“cmddia”0）
（命令“layer”“M”“G-NPLT”“））
（命令“rectang”PAUSE PAUSE）
（princ“\nCAD数据…”）
（setq GRDREF（getstring“输入数据类型：”））
（条件
（=GRDDEF“TCAD”）（setq MAPPATH（strcat“M:\\GIS-CAD\\地籍\\TCAD\\DWG\\”GRDREF）））
（=GRDDEF“TCAD-TEXT”）（setq MAPPATH（strcat“M:\\GIS-CAD\\地籍\\TCAD\\DWG\\”GRDREF）））
)
（位于“MAPPATH”X的命令“adedrawings”）
（命令“adequery”“C”“D”“L”“L”“P”“C”PAUSE“X”“E”“D”）
（命令“adedrawings”“DE”“*”“X”）
（setvar“cmddia”1）
（setvar“filedia”1）
（普林斯）
)

我在这个过程中失去了什么？GRDREF在传递到条件之前是否未存储在任何位置？我试图实现的是基于用户使用mapattach加载特定数据的答案。我不想为每种类型的数据生成单独的lisp命令。