Tharwat 发表于 2022-7-6 00:27:14

 
使用Lee编写的这些迭代中的一个，使用我前面向您指出的函数。
例如
 

(vla-put-ArrowheadBlock <Vla-Object> "")

shailujp 发表于 2022-7-6 00:31:01

以下是我所能做的事情，它很管用。
它可以工作，但不确定为什么我有“ldr”和“o”这两个变量。
有什么建议吗？
 
 

(defun C:ARWFIX (/ ldr)
(if (setq ldr (ssget "_x" '((0 . "LEADER")(8 . "CONSTRUCTION"))))
       (progn
         (vlax-for o (setq ldr (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
         (vla-put-ArrowheadBlock o "")
         )
         (vla-delete ldr)
       )
   )
   (princ)
)
(vl-load-com) (princ)

Tharwat 发表于 2022-7-6 00:37:09

第一个变量是ldr，因为您选择使用vla get activeselectionset函数，而另一个变量“o”用于通过选择集实体进行计数，不应像之前那样进行本地化。

shailujp 发表于 2022-7-6 00:41:04

这是我头顶上的一条路。你能帮我修改代码吗？

Tharwat 发表于 2022-7-6 00:44:45

 
除了不必要的重复变量外，没有任何错误，因此如果您想修改它，只需删除变量“ldr”，如下所示。
 
(if (ssget "_x" '((0 . "LEADER")(8 . "CONSTRUCTION")))
         ( ..................

shailujp 发表于 2022-7-6 00:47:26

非常感谢塔瓦。感谢你的帮助。

Tharwat 发表于 2022-7-6 00:50:59

随时欢迎你。
页: 1 [2]
查看完整版本: 强制打开箭头为实心