 - ;|
- 函数: SubUpd
- 功能: 更改图元DXF组码以修改实体属性
- 方式: (SubUpd 实体名 DXF码 新值)
- 实例1 : 改圆半径为500 (SubUpd (car(entsel"\n选择圆 : ")) 40 500)
- 实例2 : 改文本为"明经通道" (SubUpd (car(entsel"\n选择文本 : ")) 1 "明经通道")
- 实例3 : 改块的插入点为(0 0 0) (SubUpd (car(entsel"\n选择块 : ")) 10 '(0 0 0))
- |;
- (defun SubUpd (ename code newvalue)
- (entmod (subst (cons code newvalue)
- (assoc code (entget ename))
- (entget ename)
- )
- )
- (entupd ename)
- ename
- )
|