gaics 发表于 2012-9-12 11:57:29

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

想要提取属性块里的两个属性，可怎么弄都不对。本人新手，真心求教！
(defun c:tqtk ()
(setvar "cmdecho" 0)
(setvar "filedia" 0)
(setq file (open "c:\\样板文件.txt" "w"))
(write-line "图名 C020000" file)
(write-line "图号 C010000" file)
(close file)
(setq ss (ssget '((0 . "*insert"))))
(setq yb "c:\样板文件.txt")
(setq ml "c:\图纸目录.txt")
(vl-cmdf "-attext" "e" ss "sdf" yb "" ml "")
(setvar "filedia" 1)
(princ)
)


gaics 发表于 2012-9-14 07:55:25

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

gaics 发表于 2012-9-14 07:56:44

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

434939575 发表于 2014-10-1 11:00:18

谢谢啦！
页: [1]
查看完整版本: 新手求教！怎样给attext命令的各项赋值？