制作的lisp文件加载在CAD2014上的问题！

xudi1234

自己制作的lisp文件加载在CAD2014上 出现 “参数类型错误: VLA 对象集合: #<VLA-OBJECT 1479625c>”


加载到CAD08,CAD12都没有出现这样的问题！

求解答！？

ZZXXQQ

啥程序？贴代码上来

xudi1234

(vl-load-com)
(setq dqpzm (getvar "CPROFILE"));当前配置名字
;锁定“电气”图层，只锁当前配置的图层，比如当前配置为天正电气，就只锁天正电气的图层

(defun c:3()(tcqbjs)(tz-sd))   ;锁定电气图层的同时解锁非电气图层
(defun c:1()(tcqbjs)(tz-sf))   ;锁定非电气图层的同时解锁电气图层
(defun c:w()(tcqbxs)(tz-gc))   ;关闭电气图层的同时打开非电气图层
(defun c:q()(tcqbxs)(tz-gf))   ;关闭非电气图层的同时打开电气图层


;解锁“电气”图层

(defun C:js()
(cond
((wcmatch dqpzm "TElec*")(jstc Tel-lst "电气"))
)
)

;打开“电气”图层

(defun C:kc()
(cond
((wcmatch dqpzm "TElec*")(dktc Tel-lst "电气"))
)
)

;锁定“电气”图层

(defun tz-sd()
(cond
((wcmatch dqpzm "TElec*")(sdtc Tel-lst "电气"))
)
)

;锁定非“电气”图层
(defun tz-sf()
(cond
((wcmatch dqpzm "TElec*")(sftc Tel-lst "电气"))
)
)

;关闭“电气”图层
(defun tz-gc()
(cond
((wcmatch dqpzm "TElec*")(gbtc Tel-lst "电气"))
)
)

;关闭非“电气”图层
(defun tz-gf()
(cond
((wcmatch dqpzm "TElec*")(gftc Tel-lst "电气"))
)
)

;电气图层控制
(defun C:sdd()(sdtc Tel-lst "电气"))
(defun C:jsd()(jstc Tel-lst "电气"))
(defun C:sfd()(sftc Tel-lst "电气"))
(defun C:gcd()(gbtc Tel-lst "电气"))
(defun C:kcd()(dktc Tel-lst "电气"))
(defun C:gfd()(gftc Tel-lst "电气"))


;遍历图层子程序
(defun bianlituceng ()
  (defun func (/ Var)
    (if (setq Var (tblnext "Layer"))
      (cons (cdr (assoc 2 Var)) (func))
    )
  )
  (cons (cdr (assoc 2 (tblnext "Layer" T))) (func))
)

;锁定“电气”图层子程序
(defun sdtc (Lay-lst pztcmz / acaddocument acadobject i j lay layersobj laylst lay-tangent m n vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  )
  (setq laylst (bianlituceng))
  (setq m (length laylst))
  (setq j (- m 1))
  (setq n (length Lay-lst))
  (setq i (- n 1))
  (repeat m
    (setq lay (nth j laylst))
    (while (>= i 0)
      (setq lay-tangent (nth i Lay-lst))
      (if (wcmatch lay lay-tangent)
        (progn
          (setq vlay (vla-item LayersObj lay))
          (vla-put-lock vlay :vlax-true)
          (setq i 0)
        )
      )
      (setq i (1- i))
    )
    (setq i (- n 1))
    (setq j (1- j))
  )
  (princ (strcat "\n" pztcmz "图层已锁定"))
        (princ)
)

;解锁“电气”图层子程序
(defun jstc (Lay-lst pztcmz / acaddocument acadobject i j lay layersobj laylst lay-tangent m n vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  )
  (setq laylst (bianlituceng))
  (setq m (length laylst))
  (setq j (- m 1))
  (setq n (length Lay-lst))
  (setq i (- n 1))
  (repeat m
    (setq lay (nth j laylst))
    (while (>= i 0)
      (setq lay-tangent (nth i Lay-lst))
      (if (wcmatch lay lay-tangent)
        (progn
          (setq vlay (vla-item LayersObj lay))
          (vla-put-lock vlay :vlax-false)
          (setq i 0)
        )
      )
      (setq i (1- i))
    )
    (setq i (- n 1))
    (setq j (1- j))
  )
  (princ (strcat "\n" pztcmz "图层已解锁"))
        (princ)
)

;锁定非“电气”图层子程序
(defun sftc (Lay-lst pztcmz / acaddocument acadobject i j lay layersobj laylst lay-tangent m n k vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  )
  (setq laylst (bianlituceng))
  (setq m (length laylst))
  (setq j (- m 1))
  (setq n (length Lay-lst))
  (setq i (- n 1))
  (setq k 0)
  (repeat m
    (setq lay (nth j laylst))
    (while (>= i 0)
      (setq lay-tangent (nth i Lay-lst))
      (if (wcmatch lay lay-tangent)
        (progn
          (setq i 0
                k 0
          )
        )
        (setq k (1+ k))
      )
      (setq i (1- i))
    )
    (if (= k n)
      (progn
        (setq vlay (vla-item LayersObj lay))
        (vla-put-lock vlay :vlax-true)
        (setq k 0)
      )
    )
    (setq i (- n 1))
    (setq j (1- j))
    (setq k 0)
  )
  (princ (strcat "\n非" pztcmz "图层已锁定"))
        (princ)
)

;关闭“电气”图层子程序
(defun gbtc (Lay-lst pztcmz / acaddocument acadobject i j lay layersobj laylst lay-tangent m n vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  )
  (setq laylst (bianlituceng))
  (setq m (length laylst))
  (setq j (- m 1))
  (setq n (length Lay-lst))
  (setq i (- n 1))
  (repeat m
    (setq lay (nth j laylst))
    (while (>= i 0)
      (setq lay-tangent (nth i Lay-lst))
      (if (wcmatch lay lay-tangent)
        (progn
          (setq vlay (vla-item LayersObj lay))
          (vla-put-layeron vlay :vlax-false)
          (setq i 0)
        )
      )
      (setq i (1- i))
    )
    (setq i (- n 1))
    (setq j (1- j))
  )
  (princ (strcat "\n" pztcmz "图层已关闭"))
        (princ)
)

;打开“电气”图层子程序
(defun dktc (Lay-lst pztcmz / acaddocument acadobject i j lay layersobj laylst lay-tangent m n vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  )
  (setq laylst (bianlituceng))
  (setq m (length laylst))
  (setq j (- m 1))
  (setq n (length Lay-lst))
  (setq i (- n 1))
  (repeat m
    (setq lay (nth j laylst))
    (while (>= i 0)
      (setq lay-tangent (nth i Lay-lst))
      (if (wcmatch lay lay-tangent)
        (progn
          (setq vlay (vla-item LayersObj lay))
          (vla-put-layeron vlay :vlax-true)
          (setq i 0)
        )
      )
      (setq i (1- i))
    )
    (setq i (- n 1))
    (setq j (1- j))
  )
  (princ (strcat "\n" pztcmz "图层已打开"))
        (princ)
)

;关闭非“电气”图层子程序
(defun gftc (Lay-lst pztcmz / acaddocument acadobject i j lay layersobj laylst lay-tangent m n k vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  )
  (setq laylst (bianlituceng))
  (setq m (length laylst))
  (setq j (- m 1))
  (setq n (length Lay-lst))
  (setq i (- n 1))
  (setq k 0)
  (repeat m
    (setq lay (nth j laylst))
    (while (>= i 0)
      (setq lay-tangent (nth i Lay-lst))
      (if (wcmatch lay lay-tangent)
        (progn
          (setq i 0
                k 0
          )
        )
        (setq k (1+ k))
      )
      (setq i (1- i))
    )
    (if (= k n)
      (progn
        (setq vlay (vla-item LayersObj lay))
        (vla-put-layeron vlay :vlax-false)
        (setq k 0)
      )
    )
    (setq i (- n 1))
    (setq j (1- j))
    (setq k 0)
  )
  (princ (strcat "\n非" pztcmz "图层已关闭"))
        (princ)
)

(defun c:2 () (tcqbjs)(princ "\n已解锁全部图层")(princ));全部解锁
(defun c:qw () (tcqbxs)(princ "\n已打开全部图层")(princ));全部打开

;[图层全部解锁]
(defun tcqbjs ( / acaddocument acadobject layersobj vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  );end setq
  (vlax-for vlay LayersObj (vla-put-lock vlay :vlax-false));end vlax-for
)

;[图层全部显示]
(defun tcqbxs ( / acaddocument acadobject layersobj vlay)
  (setq AcadObject (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        LayersObj (vla-get-layers AcadDocument)
  );end setq
  (vlax-for vlay LayersObj (vla-put-layeron vlay :vlax-true));end vlax-for
  ;(vla-regen AcadDocument AcAllViewPorts) 图形较大有时需要重生成才显示 可把这句加上
  (princ "\n已打开全部图层")
  (princ)
)


CAD有问题！！不麻烦大家了