[Александр Ривилис]

Код C++

Код:

[Выделить все]

 //-----------------------------------------------------------------------------
CDocReactor::~CDocReactor () {
  Detach () ;
  for (ReactIter iter = reactors.begin(); iter != reactors.end(); iter++) {
    if (iter->second) delete iter->second; iter->second = NULL;
  }
  reactors.clear();
}

Работает!

Код C#

Код:

[Выделить все]

 
// (C) Copyright 2010 by GSS 
//
using System;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;

// This line is not mandatory, but improves loading performances
[assembly: CommandClass(typeof(TestErase.MyCommands))]

namespace TestErase
{

    public class MyCommands
    {
        [CommandMethod("MyGroup", "MyCommand", "MyCommandLocal", CommandFlags.Modal)]
        public void MyCommand() // This method can have any name
        {
            // Put your command code here
        }

        // Modal Command with pickfirst selection
        [CommandMethod("MyGroup", "MyPickFirst", "MyPickFirstLocal", CommandFlags.Modal | CommandFlags.UsePickSet)]
        public void MyPickFirst() // This method can have any name
        {
            PromptSelectionResult result = Application.DocumentManager.MdiActiveDocument.Editor.GetSelection();
            if (result.Status == PromptStatus.OK)
            {
                // There are selected entities
                // Put your command using pickfirst set code here
            }
            else
            {
                // There are no selected entities
                // Put your command code here
            }
        }
        // LispFunction is similar to CommandMethod but it creates a lisp 
        // callable function. Many return types are supported not just string
        // or integer.
        [LispFunction("MyLispFunction", "MyLispFunctionLocal")]
        public int MyLispFunction(ResultBuffer args) // This method can have any name
        {
            // Put your command code here

            // Return a value to the AutoCAD Lisp Interpreter
            return 1;
        }

    }
}

Работает!

[bargool]

Александр Ривилис, а как вы такую красоту получили? Как это встроить в блог - я понимаю, а вот как в сообщение на форуме - не догадался
update: Уже понял, просто и без выкрутасов обернуть в теги [ CODE ][ CPP ][ /CPP ][ /CODE ]

[gomer]

а вот лисп не работает

Код:

[Выделить все]

 
(vla-get-ActiveDocument (vlax-get-acad-object))
(vlax-get-property (vlax-get-acad-object) 'ActiveDocument ))
((lambda (x / a b c) x) pi)
((lambda (ss / a b c) x) pi)
(read-line fd)
(defun *error* (msg)
  (princ)
)
(vl-list* 0 '(1 2 3))
(setq i (1+ i))
(/ 10 6.5)
(vl-cmdf pause)
(initget 6); коммент
(if piket_list; Если piket_list не имеет элементов то
	                              "Завершить";Введите пикет <Завершить>:
	                              "Выход";Иначе Введите пикет <Выход>:
	                            ) ;_ end of if

[Кулик Алексей aka kpblc]

gomer, попробуй отделять комментарии хотя бы одним пробелом:

Код:

[Выделить все]

  
(vla-get-ActiveDocument (vlax-get-acad-object))
(vlax-get-property (vlax-get-acad-object) 'ActiveDocument ))
((lambda (x / a b c) x) pi)
((lambda (ss / a b c) x) pi)
(read-line fd)
(defun *error* (msg)
  (princ)
)
(vl-list* 0 '(1 2 3))
(setq i (1+ i))
(/ 10 6.5)
(vl-cmdf pause)
(initget 6) ; коммент
(if piket_list ; Если piket_list не имеет элементов то
	                              "Завершить" ;Введите пикет <Завершить>:
	                              "Выход" ;Иначе Введите пикет <Выход>:
	                            ) ;_ end of if