田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID

评论列表

tiancao1001
所发表的评论
[26] [27] [28] [29] [30] [31] [32] [33] [34] [35]  ... [37]  
tiancao1001 于 2008-10-31 02:47 PM 发表评论:
实现Flash中一次随机打开15个连接:
http://tiancao.net/qita/webwithinflash2/1.html
查看所评论的日志:田草日志
tiancao1001 于 2008-10-28 10:47 PM 发表评论:
来自晓东CAD的一个方法
也许并不是一个Bug,而是我们没发现罢了

代码:

Sub Example_PickfirstSelectionSet()
    ' This example lists all the objects in the pickfirst selection set.
    ' Before running this example, create some objects in the active
    ' drawing and select those objects. The objects currently selected
    ' in the active drawing will be returned in the pickfirst selection set.
            
    Dim pfSS As AcadSelectionSet
    Dim ssobject As AcadEntity
    Dim msg As String
    msg = vbCrLf
    
    Set pfSS = ThisDrawing.PickfirstSelectionSet
    For Each ssobject In pfSS
        msg = msg & vbCrLf & ssobject.ObjectName
    Next ssobject
    MsgBox "The Pickfirst selection set contains: " & msg
    
End Sub


以上的例子在IDE窗口中运行没问题
调用-vbarun命令运行时不能正确运行
可以用下列方法j解决
定义Lisp函数:

代码:

(defun tls-sub2cmd(filename subname cmdname)
 (eval
  (list 'defun
   (read (strcat "c:" cmdname))
   nil
   '(if (cadr(ssgetfirst)) (sssetfirst nil (ssget)))
   (list 'vla-RunMacro
         '(vlax-get-acad-object)
          (strcat filename "!" subname)
   )
   '(sssetfirst nil nil)
   '(princ)
  )
 )
 (vlax-add-cmd cmdname (strcat "C:" cmdname))
 (princ)
)


调用格式为:
(tls-sub2cmd "文件名" "宏名" "命令名") 
查看所评论的日志:CAD VBA 先选择后操作 PickfirstSelectionSet
tiancao1001 于 2008-10-13 02:55 PM 发表评论:
隐藏日志的评论
查看所评论的日志:CAD VBA 也能画出这样的样条曲线
tiancao1001 于 2008-10-10 05:58 PM 发表评论:
珊瑚虫论坛开放,但是要邀请注册:http://bbs.coralqq.com/
查看所评论的日志:田草日志
tiancao1001 于 2008-10-10 04:22 PM 发表评论:
http://www.ntsjyt.net/crack.htm
建筑软件注册破解
查看所评论的日志:田草日志
tiancao1001 于 2008-10-08 10:56 PM 发表评论:
http://www.ntsjyt.net/随机文字广告.htm
http://www.ntsjyt.net/随机文字广告.htm
查看所评论的日志:田草日志
tiancao1001 于 2008-10-08 10:44 PM 发表评论:
js随机Banner http://ntsjyt.net/suiji_banner/
查看所评论的日志:田草日志
tiancao1001 于 2008-09-22 05:38 PM 发表评论:
<iframe allowTransparency=true src='http://weather.cn.yahoo.com/cframe.html' scrolling=no border=0 frameborder=0 marginwidth=1 marginheight=1 height='80' width='120'></iframe>
查看所评论的日志:yahoo天气预报
[26] [27] [28] [29] [30] [31] [32] [33] [34] [35]  ... [37]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©