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

也许是这个
 
(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))
)
)
 
 
(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%pr0%lu2%ds44>%"))

woohhoo 发表于 2022-7-6 07:20:54

 
是的，问题解决了！！
这很有效。非常感谢你，pBe！！
 
 
同时也感谢所有研究这个问题的人

Tharwat 发表于 2022-7-6 07:23:54

你没有说你已经换到了一个新的操作系统64
 
猜对了pBe

woohhoo 发表于 2022-7-6 07:26:12

 
不，我没有。对不起，我错了。
页: 1 [2]
查看完整版本: Lisp例程不'；t工作