社区 › Auto Lisp › 连续到虚线

teknomatika 发表于 2022-7-6 08:03:36

连续到虚线

我想将最后绘制的图元（圆弧）的线型从连续更改为虚线。什么是失败？
 

...
(command "_.arc" "c" "_non" pt1 "_non" pt3 "_non" pt2 "")
(setq ent1 (entlast))
(setq ent2 (entget ent1))
(setq ent2 (subst (cons 6 "dashed") (assoc 6 entdados) ent2 ))
(entmod ent2)

MSasu 发表于 2022-7-6 08:12:08

如果线型按图层关联，则DXF代码6不可用；因此，您的代码应该是：

(if (assoc 6 ent2)
(setq ent2 (subst (cons 6 "DASHED") (assoc 6 ent2) ent2))
(setq ent2 (append ent2(list (cons 6 "DASHED"))))
)
(entmod ent2)

teknomatika 发表于 2022-7-6 08:13:00

米尔恰，谢谢你的帮助。但是，正确，但似乎没有更新。也许，我又做错了什么。
 
 
...(command "_.arc" "c" "_non" pt1 "_non" pt3 "_non" pt2 "")
(setq ent1 (entlast))
(setq ent2 (entget ent1))
(if (assoc 6 ent2)
(entmod (subst (cons 6 "DASHED") (assoc 6 ent2) ent2))
(entmod (append ent2(list (cons 6 "DASHED"))))
)

MSasu 发表于 2022-7-6 08:20:27

您是否检查过LTSCALE系统变量是否有合适的值？
要验证图元的线型，应在图形中选择该图元并检查其特性，或打印其关联列表。

pBe 发表于 2022-7-6 08:24:52

如果没有在图形中加载虚线类型，这对您没有好处。。（我想）

MSasu 发表于 2022-7-6 08:28:51

观察得好，pBe！

MSasu 发表于 2022-7-6 08:31:49

要确保所需线型在当前图形中可用，请执行以下操作：
(if (not (tblsearch "LTYPE" "DASHED"))
(vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) "DASHED" "ACAD.LIN")
)

pBe 发表于 2022-7-6 08:37:51

 
这真的没什么，有时我们没有注意到显而易见的事情和小事（只有人）
 
干杯Mirea

teknomatika 发表于 2022-7-6 08:40:54

他们是对的。实际上，预加载线型可以确保更新。
谢谢你的课。
已更新。。。
 
...(command "_.arc" "c" "_non" pt1 "_non" pt3 "_non" pt2 "")
(if (not (tblsearch "LTYPE" "DASHED"))
(vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) "DASHED" "ACAD.LIN")
)
(setq ent1 (entlast))
(setq ent2 (entget ent1))
(if (assoc 6 ent2)
(entmod (subst (cons 6 "DASHED") (assoc 6 ent2) ent2))
(entmod (append ent2(list (cons 6 "DASHED"))))
)

 
 
顺便说一句，在练习中，我不仅需要更改设计的最后一个实体，还需要更改倒数第二个实体吗？在本例中，是一条线。

MSasu 发表于 2022-7-6 08:45:15

其他两种线型更改解决方案：
(vla-put-LineType (vlax-ename->vla-object (entlast)) "DASHED")和
(command "_CHPROP" (entlast) "" "_LT" "DASHED" "")

查看完整版本: 连续到虚线