wngxb 发表于 2015-8-5 13:18:17

请帮我看看这个LSp:插入块不认根目录

本帖最后由 wngxb 于 2015-8-5 13:23 编辑

下面的代码可以把D盘的dwg文件插入快速CAD


;$$$$$$$$$$$$
(DEFUN C:ck( )
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 0);关闭捕捉
(COMMAND "_INSERT" "D:\22.dwg" (getpoint "\n图块插入点:"))
(princ);静默退出
)


但当我深入根目录的时候就不行了,请帮我看看哪里出了问题。另外插入的希望不要成块,因为我需要插入动态块,不想插入了还需要炸开一次。谢谢指点。

;$$$$$$$$$$$$
(DEFUN C:ck( )
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 0);关闭捕捉
(COMMAND "_INSERT" "D:\000\新建文件夹\22.dwg" (getpoint "\n图块插入点:"))
(princ);静默退出
)

llsheng_73 发表于 2015-8-5 13:27:51

本帖最后由 llsheng_73 于 2015-8-5 13:29 编辑

不想插入了还需要炸开一次;;;

(commnad"insert" (strcat"*" dwgfilename) (getpoint "\n图块插入点:")));;;dwgfilename dwg文件全路径文件名,比如 "D:\\000\\新建文件夹\\22.dwg"或者"D:/000/新建文件夹/22.dwg"
文件名前边加入"*"后会在图块插入时对图块进行分解,所以插入后不会是一个图块,相当于对插入的图块进行了explode

wngxb 发表于 2015-8-5 13:54:24

本帖最后由 wngxb 于 2015-8-5 14:05 编辑

llsheng_73 发表于 2015-8-5 13:27 http://bbs.mjtd.com/static/image/common/back.gif
不想插入了还需要炸开一次;;;

(commnad"insert" (strcat"*" dwgfilename) (getpoint "\n图块插入点:"))) ...

不好意思,因为是白菜,能不能帮我编辑哈整个代码。刚刚试了,不但提示坐标/旋转,还要炸开一次才能用动态块

llsheng_73 发表于 2015-8-5 21:42:40

本帖最后由 llsheng_73 于 2015-8-5 21:48 编辑

wngxb 发表于 2015-8-5 13:54 http://bbs.mjtd.com/static/image/common/back.gif
不好意思,因为是白菜,能不能帮我编辑哈整个代码。刚刚试了,不但提示坐标/旋转,还要炸开一次才能用动 ...

后边的比例因子什么的照样写在寻句COMMAND后边不就行了么?
至于白菜,估计相当部分人都是从白菜开始一句句啃代码,一行行测试过来的
相对来说通过command调用cad内部命令的程序还是比较容易的,对照帮助里边的命令,在命令行一步步运行它,注意命令过程中的各种提示经及你输入的东东,完了把你输入的内容依顺序写入命令后边一般情况下就可以了

wngxb 发表于 2015-8-5 23:01:49

llsheng_73 发表于 2015-8-5 21:42 static/image/common/back.gif
后边的比例因子什么的照样写在寻句COMMAND后边不就行了么?
至于白菜,估计相当部分人都是从白菜开始一 ...

我能流汗吗?很深奥,不知道什么时候能理解,73,虽然无法马上解决问题,但还是非常非常的谢谢你的2次回复。

楚留香 发表于 2015-8-8 23:48:42

D:\000\新建文件夹\22.dwg" (getpoint "\n图块插入点:"))
个人觉得路径还是全英文的比较好,你可以试试;
也遇到过中文的有时就会莫名其妙的出问题;供参考;

wngxb 发表于 2015-8-9 17:28:39

楚留香 发表于 2015-8-8 23:48 static/image/common/back.gif
D:\000\新建文件夹\22.dwg" (getpoint "\n图块插入点:"))
个人觉得路径还是全英文的比较好,你可以试试;
...

虽然还是有问题,对你的指导我非常感谢!
页: [1]
查看完整版本: 请帮我看看这个LSp:插入块不认根目录