Linhay 发表于 2015-12-3 15:07:12

求助ssget的问题

前两天有个哥们儿在论坛上问分图层保存文件的问题,我试着编了个,结果遇到了问题,自己研究了半天,觉着问题是出在了ssget选择那块,自己比较笨,基础没学好,解决不了了,求助各位大大,谢过(defun c:tt (/ dwgname path lname ss)
(VL-LOAD-COM)
(setvar "cmdecho" 0)
(setq path (getvar "DWGPREFIX"))
(vlax-for n(vla-get-layers(vla-get-ActiveDocument(vlax-get-acad-object)))
      (setq lname (vla-get-name n))
      (setq dwgname (strcat path lname ".dwg"))
      (setq ss (ssget ＂X＂ '(8 . lname)))
      (command "-wblock" dwgname "" "0,0,0" ss)
   )
(setvar "cmdecho" 1)
(princ)
)

Linhay 发表于 2015-12-3 15:46:28

不对不对,好像这么做就不对

springwillow 发表于 2015-12-3 15:48:41

本帖最后由 springwillow 于 2015-12-3 15:52 编辑

试试(setq ss (ssget "X" (list(cons 8 lname))))
不过我觉得你这么写不行，考虑不周全

Linhay 发表于 2015-12-3 16:01:16

本帖最后由 Linhay 于 2015-12-3 16:18 编辑

springwillow 发表于 2015-12-3 15:48 static/image/common/back.gif
试试不过我觉得你这么写不行，考虑不周全
试了,可以了,我command命令编的有一点儿问题
我觉得还是我的方向有问题,这么做不对,我再想想

hbgsw 发表于 2015-12-3 16:37:09

(command "-wblock" dwgname "" "0,0,0" ss "")
少空格

Linhay 发表于 2015-12-3 17:02:01

hbgsw 发表于 2015-12-3 16:37 static/image/common/back.gif
少空格

对,我也发现了,谢谢 :D
页: [1]
查看完整版本: 求助ssget的问题