PDA

View Full Version : LISP Syntax for OSDM 2005 2DCOPILOT Commands


VINIT
11-23-2005, 08:46 PM
Can anyone please help me on how to call line,circle,arc etc. commands using lisp ? For example - In AutoCAD it's

(command "line" <from_pt> <To_pt> <To_pt> <To_pt> .... "")
(command "circle" "TTR" tan_pt1 tan_pt2 varRadiusValue)

. and so on.

Regards
Vinit

dorothea
11-23-2005, 10:11 PM
Hello Vinit,

Just make the standard procedure:
(load "recorder") -> new toolbox button
run recorder and perform the action you want to call
=> everything is recorded (text file)

Regards,
Dorothea

VINIT
11-24-2005, 01:06 AM
Hi dorothea,

Actually, I am developing a small program which accepts two 3d-edges(straight) and circle diameter. The program needs to draw the circle using tangent-tangent and radius option. I have achieved upto projecting the selected edges onto a workplane and at the end when I call (circle :tan_2pt pt1 pt2 someRadiusValue), The program triggers an error "Could not create Circle !".

I did try with macro solution to find out actual syntax for circle command for using in lisp, but it didn't work out.

Please do suggest if any other solution is there.

Regards
Vinit

Hello Vinit,

Just make the standard procedure:
(load "recorder") -> new toolbox button
run recorder and perform the action you want to call
=> everything is recorded (text file)

Regards,
Dorothea

dorothea
11-24-2005, 01:15 AM
Hello Vinit,

The second parameter for your circle command doesn't exist as far as I can see. Did you mean CIRCLE :TAN_PT_PT?

Dorothea

stefano_ME30
01-01-2006, 10:17 PM
Hello Vinit,

did you get a solution on your problem?
If it worked out, it could be interesting to all us to know how it works.

Many thanks in advance.

Stefano

VINIT
01-02-2006, 02:56 AM
Hello Vinit,

did you get a solution on your problem?
If it worked out, it could be interesting to all us to know how it works.

Many thanks in advance.

Stefano

Dear Stefano,

Here's how I draw the circle in Annotation
(sd-call-cmds (AM_GEO_CIRCLE_TANBY2 tanedge1 tanedge2 radiusval))

Regards
Vinit