[求助]：怎么将自己编写的程序在打开ＣＡＤ时候就自动加载

icefire006

各位高手，我是个菜鸟，怎样才可以在ＣＡＤ的时候，自动加载我已经编写的程序，而不用（ＬＯＡＤ　＂＂）这麻烦的语句？

自由的鱼

把你的程序加到启动组中！

das

用记事本打开acad.rx，加入你要加载的arx程序

阿土

两大高手都出马了，感觉鱼的比较方便些

azxq

对CAD加载程序还是不大了解。能写计算式，让CAD自己画吗？

liufd

当然可以了。你想画什么？

心愿

请问怎么能让它 自己画?

自由的鱼

最初由 心愿 发布
[B]请问怎么能让它 自己画? [/B]

当然要写程序来画了！比如画个圆

Sub Example_AddCircle()
    ' This example creates a circle in model space.
   
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
   
    ' Define the circle
    centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 5#
   
    ' Create the Circle object in model space
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
    ZoomAll
   
End Sub