求助ssget的问题

Linhay

前两天有个哥们儿在论坛上问分图层保存文件的问题,我试着编了个,结果遇到了问题,自己研究了半天,觉着问题是出在了ssget选择那块,自己比较笨,基础没学好,解决不了了,求助各位大大,谢过

2. (defun c:tt (/ dwgname path lname ss)
   
3.   (VL-LOAD-COM)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq path (getvar "DWGPREFIX"))
   
6.   (vlax-for n(vla-get-layers(vla-get-ActiveDocument(vlax-get-acad-object)))
   
7.         (setq lname (vla-get-name n))
   
8.         (setq dwgname (strcat path lname ".dwg"))
   
9.         (setq ss (ssget ＂X＂ '(8 . lname)))
   
10.         (command "-wblock" dwgname "" "0,0,0" ss)
    
11.    )
    
12.   (setvar "cmdecho" 1)
    
13.   (princ)
    
14. )

(defun c:tt (/ dwgname path lname ss)<br />   (VL-LOAD-COM)<br />   (setvar "cmdecho" 0)<br />   (setq path (getvar "DWGPREFIX"))<br />   (vlax-for n(vla-get-layers(vla-get-ActiveDocument(vlax-get-acad-object)))<br />         (setq lname (vla-get-name n))<br />         (setq dwgname (strcat path lname ".dwg"))<br />         (setq ss (ssget ＂X＂ '(8 . lname)))<br />         (command "-wblock" dwgname "" "0,0,0" ss)<br />    )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

Linhay

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

springwillow

试试

2. (setq ss (ssget "X" (list(cons 8 lname))))
   

(setq ss (ssget "X" (list(cons 8 lname))))<br />

不过我觉得你这么写不行，考虑不周全

Linhay

springwillow 发表于 2015-12-3 15:48
试试不过我觉得你这么写不行，考虑不周全

试了,可以了,我command命令编的有一点儿问题
我觉得还是我的方向有问题,这么做不对,我再想想

hbgsw

1. (command "-wblock" dwgname "" "0,0,0" ss "")

(command "-wblock" dwgname "" "0,0,0" ss "")

少空格

Linhay

hbgsw 发表于 2015-12-3 16:37
少空格

对,我也发现了,谢谢 :D