一个块的问题---龙斑主,高手请进!

att

我想通过lisp编程实现输入一个命令,指定插入点就可以完成块的输入(不需要输入比例,和角度):



我写的lisp 程序如下:


(defen C:InBlock()


                                 (setq F1"c:\1.dwg")


                                 (comand "insert"F1)


)


这样可以调入块,除了要指定输入点,还要指定比例和角度!


请教问题:输入inblock命令指定插入点就可以完成块的插入(要lisp中给定比例为1,角度为0),我是新手,望龙斑住和各位高手给指点一下!

alin

(defen C:InBlock()


                                 (setq F1 "c:\\1.dwg")


                                 (comand "insert" F1 PAUSE "" "" "")


)

CADghost

看看你的程序,全是错误,肯定对不了


(defun C:InBlock()





                                 (setq F1 "c:\\1.dwg")


                                 (command "insert" F1 PAUSE "" "1" "0")


                                 (princ)


)

att

小弟是刚入门的新手，还望个位大侠多多指点！小弟在此谢过了！

att

程序执行后信息: insert 输入块名或 [?] <1>: c:/1.dwg 指定插入点或
[比例(S)/X/Y/Z/旋转(R)/预览比例(PS)/PX/PY/PZ/预览旋转(PR)]:
输入 X 比例因子，指定对角点，或 [角点(C)/XYZ] <1>: 输入 Y 比例因子或 <使用 X
比例因子>: 1 指定旋转角度 <0>: 0 但是我想让他的提示信息为下所显示,请问各位大侠怎么写: 请选择插入点:insert 输入块名或 [?] <1>: c:/1.dwg 指定块的插入点: 指定XYZ轴的比例因子:1 指定旋转角度<0>:0