飒路紫 发表于 2018-4-17 17:15:24

我的这个思路怎么转化成代码呢？求助

1、手动输入一个名称：A2、判定本图纸设计中心内是否有叫：A 的块
3、如果有则调用插入块命令插入块：A
4、如果没有把最后一个图元创建成块：A


现在搞不懂步骤2，如何能实现呢？求高手指点。

Linhay 发表于 2018-4-17 17:48:42

(setq n (getstring "\n图块名: "))
(if (tblsearch "BLOCK" n)
    (command "-insert" n ...)
    (command "-block" n ... (entlast))
)

大致是这样 自己根据需要完善一下command里的“...“部分

飒路紫 发表于 2018-4-17 18:06:15

Linhay 发表于 2018-4-17 17:48
(setq n (getstring "\n图块名: "))
(if (tblsearch "BLOCK" n)
    (command "-insert" n ...)


我试试，万分感谢。:victory:
页: [1]
查看完整版本: 我的这个思路怎么转化成代码呢？求助