[编程申请]：从网上查到的块替换命令有问题，寻求帮助！

[复制链接]

redbird

发表于 2007-4-19 21:31:02 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

(defun c:kth(/ en s0 s1 s2 s3 s4);2007年4月修改了一下，但块的插入点不正确。更改块替换命令为kth
(setq s0 nil s1 nil s2 nil s3 nil s4 nil en nil)　
(setq s0(ssget));选择一个块　
(setq en(ssname s0 0));获得实体名称　
(setq s0(entget en))
(setq s1(cdr(assoc 2 s0)));获得块名　
(setq s2(cdr(assoc 10 s0)));获得插入点　
(setq s3(cdr(assoc 41 s0)));获得比例因子
(setq s4(cdr(assoc 50 s0)));获得旋转角度　
(setq s1(getstring "请输入新块的名称:"));输入新块名　
(COMMAND "ERASE" en "");删除旧块　
(COMMAND "INSERT" s1 s2 s3 s3 s4);插入新块完成替换
)

setq, 获得, 替换