请教一个图层编写LISP，谢谢！

abtjy

例如：我有图层0、DB、DBHID、DBTH、DBDIM、SP、SPHID、SPTH、SPDIM(PP、BP......每个都有相应的HID、TH、DIM)等等.
就拿HID层来说我现在想编一个LISP:
假如当前层为0层，输入命令后选取像素(不管像素本身是什么层)就变到HID层;
假如当前层是DB、DBTH、DBDIM输入命令后选取像素就变到DBHID层;
假如当前层是PP、PPTH、PPDIM输入命令后选取像素就变到PPHID层，
提示除了0层外其它图层前两个字符相同，请各位帮帮忙，谢谢！

ljpnb

你说的意思还是有点不太明白，比如当前层是DB或DBTH或DBDIM，输入命令后，选取像素就变到DBHID层;这当中选取像素（或物体）有什么作用，如果说物体是DB、DBTH、DBDIM这3个图层的任一图层，选取之后就变成DBHID层，这个倒可以，不知道是不是这个意思？？？

zyh0726

里面有一个命令“chprop”
我看你的层名是lifecad的层名吧？我们公司也在用这个。我写的那段在公司里面了。大概思路就是先选取一个对象(ssget)存为"a",然后调入"chprop"la""hid" ""你自己试一下吧，具体的语句我忘记了。

piaoge1981

你试试俺的

(defun c:DB ()
    (ssget)
    (command "chprop" "p" "" "la" "DB" ""))
(defun c:DBD ()
    (ssget)
    (command "chprop" "p" "" "la" "DBDIM" ""))
(defun c:DBT ()
    (ssget)
    (command "chprop" "p" "" "la" "DBTH" ""))

lenlenq

写了个程序，补上
(defun c:cha()
  (setq dqc (getvar"clayer"))
  (setq ss (ssget))

  (if (= dqc "0")
    (progn
      (setq nla "HID")
      (command"change" ss  "" "p" "la" nla "" ))
    (progn
      (setq la (substr dqc 1 2))
      (setq nla (strcat la "HID"))
      (command"change" ss "" "p" "la" nla ""  ))))

360555401

好好哦！！！！！！！！！！！！！！！！

scmjl

此功能一般外挂都有啊......

hb8378

呵呵 学习了