我写的替换图层lisp有问题 麻烦各位大师帮忙看一下

wushixlm

RT
根据论坛上大师以前的写的lisp和我的目的：读取txt文件，把图层A替换为图层B，并将图层B删掉，写了以下lisp，可是运行有问题，麻烦各位大师帮我看以下。不胜感激！！！
(defun tcth (tucengxin tucengjiu / aaa bbb ccc)
  (setvar "cmdecho" 1)
  (setq aaa (tblsearch "layer" tucengxin))
  (if (= aaa nil)
    (command "-layer" "n" tucengxin "")
  )
  (command "-layer" "s" tucengxin "")
  (setq bbb (ssget "x" '((8 . tucengjiu))))
  (if bbb
    (command "change" bbb "" "p" "la" tucengxin "")
  )
  (setq ccc (tblsearch "layer" tucengjiu))
  (if ccc
    (command "laydel" "n" tucengjiu "" "Y")
  )
  (prin1)
)
(defun c:111 ( / data ff num)
  (setvar "cmdecho" 1)
  (setq ff (open "d:/替换表.txt" "r"))
  (setq data (read-line ff))
  (while data
    (setq num (vl-string-position (ascii ",") data))
    (setq tcjiu (substr data 1 num))
    (setq tcxin (substr data (+ num 2)))
    (tcth tcxin tcjiu)
    (setq data (read-line ff))
  )
)
d:/替换表.txt的内容如下：
S-0-TEMP,S-0-TEXT
C-DOTE,S-0-TEXT

bori

不知道你的txt是什么内容的 ，读取出来是什么。
tcth 里面已经写出了图层名。
替换的话我给你一个不用command调用的方法。

取得旧图层的选择集后：

1. (if bbb
   
2.   (vlax-for bbb
   
3.     (vla-get-activeselectionset
   
4.       (vla-get-activedocument
   
5.         (vlax-get-acad-object)
   
6.       )
   
7.     )
   
8.     (vla-put-Layer bbb "tucengxin")
   
9.   )
   
10. )

复制代码

wushixlm

bori 发表于 2015-11-13 11:22
不知道你的txt是什么内容的 ，读取出来是什么。
tcth 里面已经写出了图层名。
替换的话我给你一个不用com ...

感谢 我试一下 谢谢哈

xyp1964

2. (defun c:tt ()
   
3.   (defun ChLa (la-new la-old / ss)
   
4.     (if (not (tblsearch "layer" la-new))(command "layer" "n" la-new ""))
   
5.     (command "layer" "s" la-new "")
   
6.     (if(setq ss (ssget "x" (list (cons 8 la-old))))(command "chprop" ss “” "la" la-new ""))
   
7.   )
   
8.   (setvar "cmdecho" 0)
   
9.   (setq lst '(("S-0-TEMP" "S-0-TEXT") ("C-DOTE" "S-0-TEXT")))
   
10.   (foreach a lst  (ChLa (car a) (cadr a)))
    
11.   (VLA-PurgeAll (vla-get-ActiveDocument (vlax-get-acad-object)))
    
12.   (princ)
    
13. )

(defun c:tt ()<br />   (defun ChLa (la-new la-old / ss)<br />     (if (not (tblsearch "layer" la-new))(command "layer" "n" la-new ""))<br />     (command "layer" "s" la-new "")<br />     (if(setq ss (ssget "x" (list (cons 8 la-old))))(command "chprop" ss “” "la" la-new ""))<br />   )<br />   (setvar "cmdecho" 0)<br />   (setq lst '(("S-0-TEMP" "S-0-TEXT") ("C-DOTE" "S-0-TEXT")))<br />   (foreach a lst  (ChLa (car a) (cadr a)))<br />   (VLA-PurgeAll (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (princ)<br /> )

wushixlm

xyp1964 发表于 2015-11-14 02:30

感谢版主的回复，我自己昨天晚上研究了一下，发现时因为获得图层所有对象时 （ssget "x" '((8 . “图层” ))） 而不能是(SETQ A "图层") （ssget "x" '((8 . A))） 但可以用  (SETQ A "图层")(setq ss (ssget "x" (list (cons 8 A))))
(defun tcth (tucengxin tucengjiu / aaa ccc)
  (setvar "cmdecho" 1)
  (setq aaa (tblsearch "layer" tucengxin))
  (if (= aaa nil)
    (command "-layer" "n" tucengxin "")
  )
  (command "-layer" "s" tucengxin "")
  (setq ss (ssget "x" (list (cons 8 tucengjiu))))
  (if SS
    (command "change" SS "" "p" "la" tucengxin "")
  )
  (setq ccc (tblsearch "layer" tucengjiu))
  (if ccc
    (command "laydel" "n" tucengjiu "" "Y")
  )
  (prin1)
)
(defun c:111 ()
  (setvar "cmdecho" 1)
  (setq ff (open "d:/ì&#230;&#187;&#187;±í.txt" "r"))
  (setq data (read-line ff))
  (while data
    (setq num (vl-string-position (ascii ",") data))
    (setq tcjiu (substr data 1 num))
    (setq tcxin (substr data (+ num 2)))
    (tcth tcxin tcjiu)
    (setq data (read-line ff))
  )
)
这是我最新的 是可以用的了
我再试试版主您的