几何尺寸与公差论坛------致力于产品几何量公差标准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=12304)

yang686526 2009-04-27 10:14 AM

求助高手帮忙
 
求助高手帮忙
www.dimcax.com
求助高手帮忙在lisp编程中由于绘图需要 对in_pk0至in_pk40共有41个点存储了坐标的值。我想在绘图完毕后用一个循环语句把in_pk0至in_pk40都设置为nil。这样就可以释放空间。请高手帮帮我编一个小程序,十分感谢!
d
(defun c:tt (/ i str)
(setq i 0 str "in_pk")
(repeat 42
(set (read (strcat str (itoa i))) nil)
(setq i (1+ i))
)
)
d
谢谢版主的帮助,向你致敬!
d


所有的时间均为北京时间。 现在的时间是 05:14 AM.