Lisp例程不'；t工作

Tyke · 发表于 2022-7-6 07:01:10

2013年或2014年不在这里工作。我把它保存到2004年，但在2012年或2011年仍然不起作用。

你的操作系统使用什么语言。我有德语，我知道戴夫有英语，但我不知道塔尔瓦有什么。

woohhoo · 发表于 2022-7-6 07:07:49

你好

这是2010年的版本

sample_arc_error_2010。图纸

谢谢

woohhoo · 发表于 2022-7-6 07:08:21

我有Windows和7，语言是英语。我以前的Autocad版本是2010年，我使用的是Windows XP。
新电脑新版本的Autocad，但我和以前一样有更多的问题

dbroada · 发表于 2022-7-6 07:12:32

是的，Windows XP上的英语2013（显然是16位）。

pBe · 发表于 2022-7-6 07:16:18

也许是这个

copy

(defun LM:GetObjectID ( doc obj )
 (if (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))
   (vlax-invoke-method (vla-get-Utility doc) 'GetObjectIdString obj :vlax-false)
   (itoa (vla-get-Objectid obj))
 )
)

copy

(setq id (LM:GetObjectID
              (vla-get-activedocument
                    (vlax-get-acad-object))
              arcobj))
(setq radstr (strcat "R=%<\\AcObjProp Object(%<\\_ObjId "
                    id
                    ">%).Radius \\f "%pr2%lu2%ds44>%"))
(setq lenstr
          (strcat "\\PL=%<\\AcObjProp Object(%<\\_ObjId "
                  id
                  ">%).ArcLength \\f "%ct8[1000]%pr0%lu2%ds44>%"))