帮助LISP全部更改（箭头

cadamrao · 发表于 2022-7-6 10:51:12

嗨，团队！

任何人都可以帮助LISP更改整个图形中的所有（箭头）线起始段宽度。

Plz查找样本图纸jpg

谢谢

amr公司

alanjt · 发表于 2022-7-6 11:06:15

逐步浏览实体列表（entget）并查看dxf 40代码。

cadamrao · 发表于 2022-7-6 11:22:49

我只需要（单侧）PLINE起始段宽度；非全局宽度
从PLINE起始段宽度0.700的附件安装到另一个值

再次感谢！

amr公司
仅PLINE起始段宽度。图纸

alanjt · 发表于 2022-7-6 11:37:23

我知道，dxf代码40和41处理单独的段宽度。43是全局宽度。

cadamrao · 发表于 2022-7-6 11:47:41

对不起，我不明白；逐步浏览实体列表（entget）并查看dxf 40代码

amr公司

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

你好
你可以从这样的事情开始

copy


(setq ent1 (car(entsel"\nSelect a POLYLINE:"))
     ent2 (entget ent1)
     poly (cdr(assoc 0 ent2))
     )
     (setq entNew (getint"\nSpecify New width of Polyline first Segment:")
  sgOld (assoc 40 ent2)
  sg1 (cons 40 entNew)
                ( ....................

谢谢

塔瓦特

[编程交流] 帮助LISP全部更改（箭头

发表回复

精选推荐