QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2726|回复: 6
收起左侧

[求助] 求CAD二次开发的经验或资料

[复制链接]
发表于 2009-10-31 14:03:14 | 显示全部楼层 |阅读模式 来自: 中国北京

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
:lol: 求CAD二次开发的经验或资料
发表于 2009-11-8 17:53:15 | 显示全部楼层 来自: 中国广东汕头
.如何在让VBA程序在命令行运行: l7 o' f# m. }! Q# \* Z8 Z: u

; m' h8 y' g: Z6 ^. ]/ E 在命令行输入(COMMAND "VBARUN" "路径+文件名称+!+工程名称+模块名称+宏名称")( p) W: P% j7 j' k4 ~

8 O, y4 x0 `3 x        如果宏已经加载可以只输入宏名称,(可以参照VBA命令帮助)
; \$ g# d5 [; K4 [! N
1 F9 ?. d/ R0 S* o% Y2.经常查看CAD帮助文件,即使只编写LISP程序建议也多看一下VBA的帮助,VBA的所有方法和属性都可以采用VLA-开头的函数实现,比如要想获得打印机列表(打印机介质列表、以及打印样式列表)就可以采用参照LAYOUT。GETPLOTDEVICENAMES的方法获得,相应的VLA函数为RET=VLA-GETPLOTDEVICENAMES(LAYOUT),但需要注意VLA函数返回的数组都是安全数组或者变体,需要用VLAX-VARIANT-VALUE和VLAX-SAFEARRAY->LISP函数来转变为列表以下为获得打印机列表的程序,
" f; h! {& J6 a8 @! `( l! i. o1 u: _5 a
(defun c:test()
  d* c, k- N9 c9 [2 v  (setq acad (vlax-get-acad-object);;;;;获得ACAD程序对象! J7 t3 K9 H& X% j
           doc  (vla-get-activedocument acad);;获得当前活动文挡对象
2 ]$ f1 K9 n2 Y+ A& ?# Q0 \8 h  d           layout(vla-get-activelayout doc);;获得当前布局对象9 M8 V" r/ m9 |, S! |9 M
          deviceName-var(vla-getPlotDeviceNames layout);;获得打印机列表的变体对象$ o; t4 w5 N5 e/ I% K4 J. ?# B
          deviceName-safe(vlax-variant-value deviceName-var);;转换为安全数组 ) E* f/ i3 p5 @1 U' m" i
         deviceName-list(vlax-safearray->list deviceName-safe);;转换为lisp的列表/ _2 }2 x+ p7 P' h: w! P
  )
$ k7 {8 Q6 E+ g! M)- j' M3 E5 [5 I0 G1 O6 s

: n5 k9 m% t! x: ?: zvla函数包括3类vla-函数,vla-get-函数,vla-put-函数,分别对应VBA的方法、获得属性、设置属性,0 |; }5 E8 E* n& z
2 k  P% q3 s' l! j8 R- c$ J" c5 A
a。vla-get-函数对应VBA的属性,比如object.endpoint属性采用VLA转换为(vla-get-endpoint object),+ d8 d4 o; G8 G7 o0 A+ @1 |8 n9 |
" j5 }0 K+ C2 m
b。VLA-函数对应VBA的方法,比如object.getboundingbox 转换为VLA函数为(vla-getboundingbox object),
5 `8 X0 Y9 `0 X+ H1 X
& S% W  E+ I7 A' c4 Q: W% ?* vc。vla-put函数对应设置对象属性,比如设置圆的圆心采用即更改circle.center属性转换为vla则为(vla-put-center circle pt_safearray)$ z  F; |7 j1 ]# ~& B/ c1 `6 R5 @4 {$ t
' \" k* }9 g, q( T4 O
d.使用一部分属性的获得和设置没有相应的vla函数,你可以采用(vlax-put-property object '属性名称 属性值)(vlax-get-property object '属性名称 )例如设置当前打印机采用(vlax-put-property layout 'deviceNames "打印机名称"). @7 a8 }2 o6 g& |, D4 H. {
' X, A( }5 C7 E+ k
e,使用vla函数前别忘记运行(vl-load-com)函数啊!!!!

评分

参与人数 1三维币 +5 收起 理由
woaishuijia + 5 技术讨论

查看全部评分

发表于 2009-11-10 23:49:49 | 显示全部楼层 来自: 中国上海
你这太笼统了吧。
. Y2 k- C3 d4 ^& |' E' G我现在的经验是:数据要和程序分离,这样数据更新后,不用修改源程序。
头像被屏蔽
发表于 2009-12-10 18:43:33 | 显示全部楼层 来自: 中国浙江台州
提示: 该帖被管理员或版主屏蔽
发表于 2010-7-19 13:15:20 | 显示全部楼层 来自: 中国广东深圳
我也需要这方面资料,
发表于 2010-7-21 11:55:26 | 显示全部楼层 来自: LAN
你这太笼统了吧。
( c# R, b! P& i我现在的经验是:数据要和程序分离,这样数据更新后,不用修改源程序。; t/ H: P' t: \/ z+ C7 M
yucpp 发表于 2009-11-10 23:49 http://www.3dportal.cn/discuz/images/common/back.gif

# G; X5 j2 y0 X3 D$ u* N. v5 ^这个就需要VBA和数据库结合起来编程,查一查VB编程的书籍,里面都有的.
发表于 2010-7-21 11:57:02 | 显示全部楼层 来自: LAN
或者用VBA和EXCEL 结合也行,或者干脆用TXT文件存放数据
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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