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

帮助LISP全部更改（箭头

嗨，团队！
 
任何人都可以帮助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

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

(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)
                ( ....................

谢谢
 
塔瓦特
页: [1]
查看完整版本: 帮助LISP全部更改（箭头