什么'；s不见了？

CadFrank · 发表于 2022-7-5 22:35:30

好的，我想做的是修改动态块“CARTOUCHE LU”中查找的值，它位于所有布局中。


(setq nomBloc "Cartouche LU")
(setq obj
  (vla-get-effectivename
    Nombloc
    (vla-get-layouts
      (vla-get-activedocument (vlax-get-acad-object))
    )
  )
)

现在它回来了

copy

; error: bad argument type: VLA-OBJECT ("CARTOUCHE LU")

我不知道为什么我想要一些解释。

不胜感激。

谢谢

Tharwat · 发表于 2022-7-5 22:50:09

您必须将代码从例程复制并粘贴到另一个例程，而不了解代码的去向和作用。

这篇文章不是做了与你在这篇文章中尝试做的相同的事情吗？

CadFrank · 发表于 2022-7-5 22:55:14

嗯，这不完全是一回事。

在我想更改属性文本之前，现在它是动态块中的查找。

问题是我想理解。但我需要人们有时给我的代码解释，这有助于我理解

有些人确实帮了我的忙，比如你，还有一些人只是发帖子，这确实管用，但我不知道为什么呵呵！

这并不是说我还没有准备好，我有很多关于它的Autodesk PDF，我发现它们很难理解。这可能只是无法用我理解的方式来解释。

就是这样

Tharwat · 发表于 2022-7-5 22:58:59

你想做什么？

CadFrank · 发表于 2022-7-5 23:06:06

好的，从我在另一个帖子上得到的图纸中的同一块。

我想根据版本更改查找1。

现在，当我在旧版本中传递它时，它工作了：

copy

(vlax-for lt (vla-get-layouts adoc)
   ;(vla-put-activelayout adoc lt) ; optionnel
   (vlax-for obj (vla-get-block lt)
     (if (and (= "AcDbBlockReference" (vla-get-objectname obj))
             (member (vla-get-effectivename obj) Nombloc) 
             (= :vlax-true (vla-get-hasattributes obj) ))
       (progn
         (setq atts (vlax-invoke obj 'getattributes))
         (foreach x atts
     
    (if (= Tag#Pg (vla-get-tagstring x))
               (vla-put-textstring x Tnumtabs)
    )
        (setq  N-E-dbp (nth 2 (vlax-invoke obj 'GetDynamicBlockProperties)))
        (vla-put-value  N-E-dbp TRev)
         )
       )
     )
   )
 )

但现在它无法从其他代码中获取VLA对象。

所以当我通过这个密码时：

copy

[/code]
现在我的代码是这个，它不工作了
[code](defun _Revision (/ TRev TDesc Tdate TPar TApp
          TagRev TagNRev TagDesc TagDat TagPar TagApp
          lt obj atts x DynBP)
 ;| Élénment de text |;
 (if (= choix "N")
     (setq TRev "0"))
 (if (= choix "R")
   (setq TRev (itoa (fix (getreal "\n Numéro de révision : ")))))          
 (setq TDesc (strcase (getstring T "\n Donner la raison de la révision. : "))
       Tdate (_Today)
 )
        
 (initget 1 "C F J S")
 (setq        TPar (getkword "\n Qui a fait les changements sur le plan? [Charle/François/Julieta/Simon]: "))
       (if (= TPar "C")(setq TPar "C.L"))
(if (= TPar "F")(Setq TPar "F.L"))        
(if (= TPar "J")(setq TPar "J.L"))
(if (= TPar "S")(setq TPar "S.D"))
 
 (initget 1 "J S")
 (setq        TApp (getkword "\n Qui a approuvé les changement [Julieta/Simon]: "))
       (if (= TApp "J")(setq TApp "J.L"))
       (if (= TApp "S")(setq TApp "S.D"))
 ;| Élénment des TAG |;        
 (setq TagRev "REV"
       TagNRev (strcat "N°REV" TRev)
       TagDesc (strcat "DESCRITION" TRev)
       TagDat (strcat "DATE" TRev)
       TagPar (strcat "PAR" TRev)
       TagApp (strcat "APP" TRev)
 )
;Inscrit le texte dans chacun des attributs
 
(mapcar '_Text->Attribute->Layout
(list TagRev TagNRev TagDesc TagDat TagPar TagApp)
(list TRev TRev TDesc Tdate TPar TApp)
)
    
)

hanhphuc · 发表于 2022-7-5 23:14:52

丢失的
（vl load com）
（setq adoc（vla get activedocument（vlax get acad object）））

CadFrank · 发表于 2022-7-5 23:22:32

谢谢你的帮助，但在第一条评论中，我想知道遗漏了什么，并解释一下如何到达那里。

hanhphuc · 发表于 2022-7-5 23:30:56

我不是导师，只是分享我的理解（所以如果我错了，我希望前辈能给我建议）
vb activex就像“浏览器扩展树”序列。。。
假设应用程序是“我的电脑”，所以我们必须扩展有效路径“目录”和“子文件夹”，以达到我们正在寻找的其他内容，例如：布局等。。
（vla get布局adoc）
?? --> ?? --> 布局，缺少路径为adoc=文档和应用程序（对象）
（setq adoc（vla get activedocument（vlax get acad object））；

登录/注册后可看大图

CadFrank · 发表于 2022-7-5 23:38:24

好吧，我很理解。

当我需要改变一个值时，我就被搞糊涂了。我如何知道要使用什么功能。即使我使用“vla get block”，它也不会得到所需的块。

[编程交流] 什么'；s不见了？

发表回复

精选推荐