明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2339|回复: 9

怎样用putxdata 输入扩展数据

[复制链接]
发表于 2011-6-8 19:46 | 显示全部楼层 |阅读模式
本帖最后由 jfxia 于 2011-6-8 19:54 编辑

       向各位大大请教:

   (defun PutXDa3()
  (setq comptype "3")
  (ax:PutXData VlaObj '((1001 . "my_prg") (1000 . "GAME") (1000 . (strcat comptype " Upper  40.00 "))))
  )
;---------------
(defun ax:PutXData (vlaObj XData)
   (setq XData
      (ax:BuildFilter
        (mapcar
         '(lambda (item / key)
            (setq key (car item))
            (if (<= 1010 key 1033)
              (cons key
                   (vlax-variant-value
                     (vlax-3d-point
                      (cdr item)
                     )
                    )
                   )
                  item
                 )
                 )
                 XData
               )
              )
  )
(vla-setXData vlaObj (car XData) (cadr XData))
)

;----------------
(defun ax:BuildFilter (filter)
  (vl-load-com)
  (mapcar '(lambda (lst typ)
      (vlax-make-variant
        (vlax-safearray-fill
   (vlax-make-safearray
     typ
     (cons 0
    (1- (length lst))
     )
   )
   lst
        )
      )
    )
   (list (mapcar 'car filter) (mapcar 'cdr filter))
   (list vlax-vbInteger vlax-vbVariant)
  )
)




        不知什么原因,    在PutXDa3 的时候老是中断,,请教,谢
是输入的数据类型不对吗






发表于 2011-6-8 20:10 | 显示全部楼层
这也是我所需要的,坐等,最好有以操作ActiveX对象方式的代码。
发表于 2011-6-8 23:14 | 显示全部楼层
不知道什么东东,帮顶。
 楼主| 发表于 2011-6-9 12:04 | 显示全部楼层
      龙版主好心人,麻烦帮纠正下啦,先谢
发表于 2011-6-9 13:22 | 显示全部楼层
Try this

  1. (defun PutXDa3()
  2.   (setq comptype "3")
  3.   (ax:PutXData VlaObj
  4.    (list
  5.      '(1001 . "my_prg")
  6.      '(1000 . "GAME")
  7.      (cons 1000 (strcat comptype " Upper  40.00 "))
  8.   ))
  9. )
发表于 2011-6-9 16:58 | 显示全部楼层
感谢楼主分享程序
 楼主| 发表于 2011-6-11 20:55 | 显示全部楼层
Andyhon 发表于 2011-6-9 13:22
Try this

      谢 Andyhon  版主
发表于 2011-6-19 20:26 | 显示全部楼层
感谢楼主分享程序
发表于 2011-12-13 21:39 | 显示全部楼层
看着羡慕的留口水,就是不不会用啊
发表于 2013-3-13 07:57 来自手机 | 显示全部楼层
学习,值得参考。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 08:04 , Processed in 0.189572 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表