程序出错,请高手指点

zxy9108

我编了一个简单的小程序,作用是选择一个物体,当物体所在层是锁上的,就打开这个层,如果这个层是打开的,就锁上它,目的是把锁和开用一个程序.这个程序在运行到倒数第二句的时候出错,意思是lay的数据类型不对,这种问题该如何解决:

(defun ToF(msg)

  (if (= msg :vlax-true)

    (setq msg :vlax-false)

    (setq msg :vlax-true)

  )
  msg

)

(defun c:aa()
  (setq hh(entsel "\nSelect an entity:"))
  (setq hh (car hh)
 hh (vlax-ename->vla-object hh)
 lay(vla-get-layer hh)
 )
 
 
(vla-put-Lock lay (ToF (vla-get-Lock Lay)))
  )

yshf

lay值是字符串，(vla-get-Lock Lay)的参数要求是VAL对象。上锁层中的园元是不显示的，用“entsel ”怎能进行选择？

zsh8012

你的对象属性搞错了,要实现你要的功能,要如下:

(defun ToF(msg)

  (if (= msg :vlax-true)

    (setq msg :vlax-false)

    (setq msg :vlax-true)

  )
  msg

)
(defun c:aa( / hh lay layers n i en)
  (setq hh(entsel "\nSelect an entity:"))
  (setq hh (car hh)
 hh (vlax-ename->vla-object hh)
 lay(vla-get-layer hh)
 )
  (setq layers(vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
  (setq n(vla-get-count layers))
  (setq i 0)
  (while (< i n)
    (setq en(vla-item layers i)
   i(1+ i))
    (if (= lay (vla-get-name en))
  (vla-put-Lock en (ToF (vla-get-Lock en)))
      )
  )
  )

zxy9108

谢谢楼上的兄弟,按照你的修改完全没问题了,