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

seafree101300

:lol: 求CAD二次开发的经验或资料

哥哥很善良

.如何在让VBA程序在命令行运行

* a+ Z! \" E7 E 在命令行输入(COMMAND "VBARUN" "路径+文件名称+!+工程名称+模块名称+宏名称")
# p0 P. R$ m& y& Z
        如果宏已经加载可以只输入宏名称,(可以参照VBA命令帮助)
9 a9 }/ A2 `* V/ Q
( r/ R9 Q% ^$ }: j9 u% c5 T3 V" ~8 J2.经常查看CAD帮助文件,即使只编写LISP程序建议也多看一下VBA的帮助,VBA的所有方法和属性都可以采用VLA-开头的函数实现,比如要想获得打印机列表(打印机介质列表、以及打印样式列表）就可以采用参照LAYOUT。GETPLOTDEVICENAMES的方法获得，相应的VLA函数为RET=VLA-GETPLOTDEVICENAMES（LAYOUT），但需要注意VLA函数返回的数组都是安全数组或者变体，需要用VLAX-VARIANT-VALUE和VLAX-SAFEARRAY->LISP函数来转变为列表以下为获得打印机列表的程序，

(defun c:test()
  (setq acad (vlax-get-acad-object);;;;;获得ACAD程序对象
) N$ a/ x9 W2 \9 ]" [           doc  (vla-get-activedocument acad);;获得当前活动文挡对象
; O4 e/ W5 }. ?5 q$ O           layout(vla-get-activelayout doc);;获得当前布局对象
          deviceName-var(vla-getPlotDeviceNames layout);;获得打印机列表的变体对象
          deviceName-safe(vlax-variant-value deviceName-var);;转换为安全数组
         deviceName-list(vlax-safearray->list deviceName-safe);;转换为lisp的列表
9 Y$ p) h* W9 U  g$ J% {  )
+ p$ M/ Z/ b8 m! o/ t* ]+ u! m)
# n& E! I$ b$ R- w9 [+ Y
vla函数包括3类vla-函数，vla-get-函数，vla-put-函数，分别对应VBA的方法、获得属性、设置属性，

a。vla-get-函数对应VBA的属性，比如object.endpoint属性采用VLA转换为(vla-get-endpoint object)，
" Q7 @4 Y, q* t+ M. ]/ f/ p
b。VLA-函数对应VBA的方法，比如object.getboundingbox 转换为VLA函数为（vla-getboundingbox object),
5 |1 Q9 q0 Y+ ]9 R" A: l8 e9 ~
c。vla-put函数对应设置对象属性，比如设置圆的圆心采用即更改circle.center属性转换为vla则为(vla-put-center circle pt_safearray)

* L* s  l$ e+ N* Vd.使用一部分属性的获得和设置没有相应的vla函数，你可以采用(vlax-put-property object '属性名称 属性值）(vlax-get-property object '属性名称 )例如设置当前打印机采用(vlax-put-property layout 'deviceNames "打印机名称")
: R* M8 C: k+ e3 t
e,使用vla函数前别忘记运行(vl-load-com)函数啊！！！！

yucpp

你这太笼统了吧。
, ~- C6 }* }$ l0 d我现在的经验是：数据要和程序分离，这样数据更新后，不用修改源程序。

ysryc99001

我也需要这方面资料，

lioney

你这太笼统了吧。
& T  C" k1 M$ z/ {' o我现在的经验是：数据要和程序分离，这样数据更新后，不用修改源程序。
) P' e3 d- W! Z! i$ U9 X4 ]yucpp 发表于 2009-11-10 23:49 http://www.3dportal.cn/discuz/images/common/back.gif

; o- C3 |+ k& e- P2 U- Z这个就需要VBA和数据库结合起来编程,查一查VB编程的书籍,里面都有的.

lioney

或者用VBA和EXCEL 结合也行,或者干脆用TXT文件存放数据