CAD中如何实现“insert”命令插入块程式化选择？

newbuser

如图所示，输入"insert"之后，每次还得选择（1）插入点<在屏幕上指定>，去掉（2）缩放比例<在屏幕上指定>，选择（3）旋转<在屏幕上指定>，操作完这三个选项之后，还得点击确定。
但如果用(defun c:bb()   (command "insert"))这个简单的lsp，输入bb后还得重新修改比例，插入点和缩放比例还得重新设置，具体如下图所示。

请问哪位仙人能用lsp程序实现块插入简单化？只输入块名就行了的那种

print1985

还是用这个吧
(defun c:bb(/ n p)
(setq n (strcat "*" (getstring "\n请输入块名：")));在块名前自动添加*号
(setq p (getpoint "\n指定插入点："))
(command "-insert" n p "1" "1" "0" )
(princ)
)

print1985

或者在最后加一句(command "EXPLODE" (entlast))

(defun c:bb(/ n p)
(setq n (getstring "\n请输入块名："))
(setq p (getpoint "\n指定插入点："))
(command "-insert" n p "1" "1" "0" )
(command "EXPLODE" (entlast));加这句 炸开图块 免去输入*号
(princ)
)

print1985

块名前面加个*号就行了，比如块名为A，输入块名的时候写成*A

panzhongw

用SCR怎么样

print1985

这个可以吗
(defun c:bb(/ n p)
(setq n (getstring "\n请输入块名："))
(setq p (getpoint "\n指定插入点："))
(command "-insert" n p "1" "1" "0" )
(princ)
)

newbuser

不行啊。出错，找不到块的位置

print1985

dwg块要放到支持文件搜索路径下啊 选项中设置下位置

newbuser

你这条程序里面(command "-insert" n p "1" "1" "0" )，n  p  "1"  "1"  "0"这些参数指的什么意思？

print1985

就是命令-insert中 需要你输入的数据啊 n p是块名和插入点 1是比例 0是角度
你输命令看看就知道了啊

半听可乐

print1985 发表于 2012-3-25 15:35
这个可以吗
(defun c:bb(/ n p)
(setq n (getstring "\n请输入块名："))

[em:3:]朋友你好！我万分激动的看到了你在某帖子中的回复：
(defun c:bb(/ n p)
(setq n (getstring "\n请输入块名："))
(setq p (getpoint "\n指定插入点："))
(command "-insert" n p "1" "1" "0" )
(princ)
)
这个程序我找了好久，比较类似，但具体功能我希望是这样的0[em:3:]：我通过快捷键的方式在图纸的指定位置插入我编辑好的xx.dwg文件，比例为1，旋转为0，但是插入进来后不是图块的形式，而是图块分解后的形式，类似于insert命令对话框勾选“分解”的效果，你能帮我吗？谢谢你！我的QQ274157750，焦急等待大神回复[em:11:]！

半听可乐

print1985 发表于 2012-3-25 15:35
这个可以吗
(defun c:bb(/ n p)
(setq n (getstring "\n请输入块名："))

print1985 你好！我万分激动的看到了你在某帖子中的回复：
(defun c:bb(/ n p)
(setq n (getstring "\n请输入块名："))
(setq p (getpoint "\n指定插入点："))
(command "-insert" n p "1" "1" "0" )
(princ)
)
这个程序我找了好久，比较类似，但具体功能我希望是这样的0[em:3:]：我通过快捷键的方式在图纸的指定位置插入我编辑好的xx.dwg文件，比例为1，旋转为0，但是插入进来后不是图块的形式，而是图块分解后的形式，类似于insert命令对话框勾选“分解”的效果，你能帮我吗？谢谢你！我的QQ274157750，焦急等待大神回复[em:11:]！

e2002

你看一下 insert 命令的帮助就知道如何才能 "插入进来后不是图块的形式，而是图块分解后的形式"