用COMMAND就行了吧？好像是个简单的程序。不过我不太懂这个。

什么啊?你们是在论坛上聊天吗?给个问题让大家也一起分享一下啊!!!!!!!!!!!!!

(defun c:inblk()
(command "insert" "c:/1.dwg" pause)
)

好象不行呀

斑竹厉害。高手就是高手。

拿别人的程序要考虑下，路径改掉，改成需要的旧好了。

我在支持文件里面添加了块文件的文件夹，
解决了问题。
如果支持文件里面没有块文件所在的文件夹？
你怎么改也没有用的！

c:/xxx/1.dwg看不见前面有目录吗??
如果在支持目录内就不需写目录了.直接写1.dwg就完了..

我的块文件还真的很少 请问一下你们平时
怎样能记住块代表深抹呢 我一般就是放在一张图纸里面 之后分区排列的

把名字定义的明确一点吗~
就那么简单,
我一般用天正的图库

LISP编成请教
选择部分图元
基点PT1
复制到PT2
并以PT2为基点旋转一个角度
看看以下的程序错在什么地方？？？
(defun C:ffc ()
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 33)
(setq SS nil)
(setq SS (ssget))
(setq PT1 (getpoint "\n 指定复制基点:"))
(setq PT2 (getpoint "\n 指定旋转基点:" PT1))
(setq ANG0 (getangle PT2 "\n 指定旋转角度:"))
(setq ANG (* (/ ANG0 PI) 180))
;
(setq n 0.0)
(setq slen (sslength SS))
(while (< n slen)
(setq ss1 (ssname ss n))
(command "copy" ss1 "" PT1 PT2)
(command "ROTATE" ss1 "" PT2 ANG)
)
(setvar "OSMODE" OM)
(PRINC)
)