为何缺少参数呢？

hwt99 · 发表于 2003-4-25 13:08:00

小弟弄不明白这个，请各位给点意见了！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

efan2000 · 发表于 2003-4-25 13:57:00

1、应该使用内部参数。
2、逻辑比较时有错误，多了70。
(defun c:isclosed( / en el flag)
(setq en (car (entsel "\n选择查询的对象："))
   el (entget en)
   flag (cdr (assoc 70 el))
      )
  (if ( = (logand flag 1) 1)
   (print "多段线闭合")
   )
  (princ)
  )

为何缺少参数呢？

发表回复

精选推荐