Re: ACAD 2005 ANG VBA, LISP ile zakładek (Layouts)

Article View: pl.comp.cad

Article #41350

#41350

From: User of Internet
Date: Wed, 06 Apr 2005 10:45

17 lines
1475 bytes

tu masz banalny przykład dla zdarzenia "koniec polecenia"

(defun ReactionDefun (IdReactor Name)
 (alert (strcat "Zakładek w rysunku: " (itoa (1- (vla-get-count
(vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))))))))
);end ReactionDefun

 (defun RemoveReactor (IdReactor IdDataBase)
   (vlr-remove _*VariableForReactor*_)
 );end RemoveReactor


(setq _*VariableForReactor*_
  (VLR-editor-reactor nil '((:VLR-commandEnded . ReactionDefun)
(:VLR-beginClose . RemoveReactor))
  )
)

Technical Details

Message-ID: <d30es1$orn$1@nemesis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.tpinternet.pl!nemesis.news.tpi.pl!news.tpi.pl!not-for-mail

References: <d30aai$f2q$1@nemesis.news.tpi.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.tpinternet.pl!nemesis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "User of Internet" <Userofnet@wp.pl>
Newsgroups: pl.comp.cad
Subject: Re: ACAD 2005 ANG VBA, LISP ile zakładek (Layouts)
Date: Wed, 6 Apr 2005 12:45:57 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 19
Message-ID: <d30es1$orn$1@nemesis.news.tpi.pl>
References: <d30aai$f2q$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: jesionowa.zab.zigzag.pl
X-Trace: nemesis.news.tpi.pl 1112784577 25463 217.11.139.58 (6 Apr 2005 10:49:37 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Wed, 6 Apr 2005 10:49:37 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1437
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message