cxjcqu 发表于 2020-12-11 20:35:42

请问如何获得随层或随块的线型？

(vla-get-linetype (Vlax-Ename->Vla-Object (Car(Entsel))))显示"BYLAYER"，如何获得"BYLAYER"的线型，谢谢~

wzg356 发表于 2020-12-11 21:22:58

本帖最后由 wzg356 于 2020-12-12 21:43 编辑

例如随层的实际线型
(setq ob(Vlax-Ename->Vla-Object (Car(Entsel))))
(setq ltype(vla-get-linetype ob))
(if(= ltype "ByLayer")
      (setq ltype(cdr(assoc 6(tblsearch "Layer" (vla-get-Layer Ob)))))
)

cxjcqu 发表于 2020-12-12 20:23:16

wzg356 发表于 2020-12-11 21:22
例如随层的实际线型
(setq ob(Vlax-Ename->Vla-Object (Car(Entsel))))
(setq ltype(vla-get-linetype ob ...

试了一下，然而显示的还是”BYLAYER“{:1_1:}

wzg356 发表于 2020-12-12 21:44:17

cxjcqu 发表于 2020-12-12 20:23
试了一下，然而显示的还是”BYLAYER“

大小写没注意"ByLayer"，改了

cxjcqu 发表于 2020-12-13 15:18:56

wzg356 发表于 2020-12-12 21:44
大小写没注意"ByLayer"，改了

好了，谢谢哈
页: [1]
查看完整版本: 请问如何获得随层或随块的线型？