新手求教！怎样给attext命令的各项赋值？

gaics

想要提取属性块里的两个属性，可怎么弄都不对。本人新手，真心求教！

1. (defun c:tqtk ()
   
2.   (setvar "cmdecho" 0)
   
3.   (setvar "filedia" 0)
   
4.   (setq file (open "c:\\样板文件.txt" "w"))
   
5.   (write-line "图名 C020000" file)
   
6.   (write-line "图号 C010000" file)
   
7.   (close file)
   
8.   (setq ss (ssget '((0 . "*insert"))))
   
9.   (setq yb "c:\样板文件.txt")
   
10.   (setq ml "c:\图纸目录.txt")
    
11.   (vl-cmdf "-attext" "e" ss "sdf" yb "" ml "")
    
12.   (setvar "filedia" 1)
    
13.   (princ)
    
14. )
    

(defun c:tqtk ()<br />   (setvar "cmdecho" 0)<br />   (setvar "filedia" 0)<br />   (setq file (open "c:\\样板文件.txt" "w"))<br />   (write-line "图名 C020000" file)<br />   (write-line "图号 C010000" file)<br />   (close file)<br />   (setq ss (ssget '((0 . "*insert"))))<br />   (setq yb "c:\样板文件.txt")<br />   (setq ml "c:\图纸目录.txt")<br />   (vl-cmdf "-attext" "e" ss "sdf" yb "" ml "")<br />   (setvar "filedia" 1)<br />   (princ)<br /> )<br />

gaics

自己解决  (vl-cmdf "-attext" "e" ss  "" "sdf" yb ml ")

2. (defun c:tqtk ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setvar "filedia" 0)
   
5.   (setq file (open "c:\\样板文件.txt" "w"))
   
6.   (write-line "图名 C020000" file)
   
7.   (write-line "图号 C010000" file)
   
8.   (close file)
   
9.   (setq ss (ssget '((0 . "*insert"))))
   
10.   (setq yb "c:\样板文件.txt")
    
11.   (setq ml "c:\图纸目录.txt")
    
12.   (vl-cmdf "-attext" "e" ss  "" "sdf" yb ml ")
    
13.   (setvar "filedia" 1)
    
14.   (princ)
    
15. )
    

(defun c:tqtk ()<br />   (setvar "cmdecho" 0)<br />   (setvar "filedia" 0)<br />   (setq file (open "c:\\样板文件.txt" "w"))<br />   (write-line "图名 C020000" file)<br />   (write-line "图号 C010000" file)<br />   (close file)<br />   (setq ss (ssget '((0 . "*insert"))))<br />   (setq yb "c:\样板文件.txt")<br />   (setq ml "c:\图纸目录.txt")<br />   (vl-cmdf "-attext" "e" ss  "" "sdf" yb ml ")<br />   (setvar "filedia" 1)<br />   (princ)<br /> )<br />

gaics

(vl-cmdf "-attext" "e" ss  "" "sdf" yb ml)

434939575

谢谢啦！