强制打开箭头为实心

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

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


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

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

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

copy

 
(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”，如下所示。

copy

(if (ssget "_x" '((0 . "LEADER")(8 . "CONSTRUCTION")))
         ( ..................

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

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

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

随时欢迎你。

[编程交流] 强制打开箭头为实心

发表回复

精选推荐