几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   求老师帮忙 (http://www.dimcax.com/hust/showthread.php?t=12358)

yang686526 2009-04-27 10:42 AM

求老师帮忙
 
求老师帮忙
www.dimcax.com
求老师帮忙
我用vb编了一段斜齿圆柱齿论的程序,现在需要在vb中调用编的lisp语言进行画图,
private sub command2_click()
open "chilun.dat" for output as #10
print #10, 100, 100
print #10, mn, z1, b
close 10
end sub
这个已经好了,那么在lisp中怎么读 阿,程序是什么?
单独做 lisp时是这样的开始
(defun c:chilun ()
(setq p (getpoint "\n enter point"))
(setq m (getreal "\n enter m"))
(setq z (getreal "\n enter z"))
(setq b (getreal "\n enter b"))
现在怎么改一下阿,p为点,坐标100,100
m为上面做出来的mn的值,z为z1的值,b为b的值
请问老师怎么做阿
d


所有的时间均为北京时间。 现在的时间是 10:10 PM.