苏源 发表于 2012-9-11 10:54:52

参数太少如何解决?

;; 批量属性块修改 xls→dwg
(defun c:tt ()
(CMDLA0)
(setq lst (xyp-Xls2List)
ss(ssget '((0 . "INSERT") (8 . "控制点")))
i   -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (if (xyp-get-Attibutes s1)
      (progn
(setq lst1 (xyp-get-LispValue (vla-GetAttributes (XYP-E2O s1))))
(setq a (vla-get-TextString (car lst1)))
(foreach b lst
   (if (member a b)
   (setq c b)
   )
)
(if c
   (progn
   (setq t1 (nth 1 c)
    t2 (nth 2 c)
    t3 (nth 3 c)
   )
   (vla-put-TextString (cadr lst1) t1)
   (vla-put-TextString (caddr lst1) t2)
   (vla-put-TextString (cadddr lst1) t3)
   (setq c nil)
   )
)
      )
    )
)
(CMDLA1)
)


http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78854&page=1#pid417812   这是原来其它需求人员的求助帖子,我按照此代码写了,运行提示参数太少。我已经安装了E派工具箱,烦请各位高手解决。

杨如迁 发表于 2012-9-12 08:25:39

顶上去不懂O(∩_∩)O~
页: [1]
查看完整版本: 参数太少如何解决?