帮忙看下是什么原因导致的错误

惜惜2

2. <div class="blockcode"><blockquote>(DEFUN C:SS (/ ES EN EL A getv getv2 getv3 str )
   
3.   (setq ES (SSGET "x" '((8 . "0"))))
   
4.   (command "LAYER")
   
5.   (command "off")
   
6.   (command "*")
   
7.   (command "y")
   
8.   (command "on")
   
9.   (command "0")
   
10.   (command "")
    
11.   (setvar "cmdecho" 0)
    
12.   (princ "\n功能 [自动存DXF档]")
    
13.   (setq getv  (getvar "DWGPREFIX")
    
14.       getv2 (getvar "DWGNAME")
    
15.       getv3 (getvar "FILEDIA")
    
16.       )
    
17.   (setq str (strcat getv (vl-filename-base getv2) ".dxf"))
    
18.   (setvar "FILEDIA" 0)
    
19.   (vl-cmdf "_.dxfout" str "V" "2004" "O" (ssget) "" "16" "Y")
    
20.   (setvar "FILEDIA" getv3)
    
21. (princ)
    
22. )

<div class="blockcode"><blockquote>(DEFUN C:SS (/ ES EN EL A getv getv2 getv3 str )<br />   (setq ES (SSGET "x" '((8 . "0"))))<br />   (command "LAYER")<br />   (command "off")<br />   (command "*")<br />   (command "y")<br />   (command "on")<br />   (command "0")<br />   (command "")<br />   (setvar "cmdecho" 0)<br />   (princ "\n功能 [自动存DXF档]")<br />   (setq getv  (getvar "DWGPREFIX")<br />       getv2 (getvar "DWGNAME")<br />       getv3 (getvar "FILEDIA")<br />       )<br />   (setq str (strcat getv (vl-filename-base getv2) ".dxf"))<br />   (setvar "FILEDIA" 0)<br />   (vl-cmdf "_.dxfout" str "V" "2004" "O" (ssget) "" "16" "Y")<br />   (setvar "FILEDIA" getv3)<br /> (princ)<br /> )

gzcsun

不明白这是什么。
应该一句话就可以。
(vl-cmdf "_.dxfout"(strcat (getvar "dwgprefix")(vl-filename-base(getvar "dwgname")) ".dxf")"o"(ssget "x" '((8 . "0")))"""v""lt2000""16")

惜惜2

gzcsun 发表于 2025-7-14 19:45
不明白这是什么。
应该一句话就可以。
(vl-cmdf "_.dxfout"(strcat (getvar "dwgprefix")(vl-filename-ba ...

那个地方预留有变量 可以自己想要的拼接文件名