求一个写块小程序

111118528 · 发表于 2012-11-26 13:15:04

我想发个贴都不可以

weiqi · 发表于 2012-11-28 23:47:00

哇空军酒店

海盗曹 · 发表于 2012-11-29 15:07:17

学习一下好程序~

mp3_2004 · 发表于 2012-11-29 18:29:25

留个记号,以后学习用

adc · 发表于 2012-12-6 17:47:20

phoenixdjq 发表于 2012-11-26 09:58
4.写块的内容在原图上被删除了~~~
这个我不是很清楚，你的意思

请教如果是在dwg文件当前目录下建一个指定的文件夹要怎样做？

phoenixdjq · 发表于 2012-12-6 19:43:46

(setq nowdwg (getvar "dwgname"))       ;取得当前文件的名称
(setq len (strlen nowdwg))             ;当前文件的长度
(setq path (findfile nowdwg))          ;寻找当前文件的路径
(setq path1 (- len1 len ))             ;当前文件路径的长度
(setq bak1 (substr path 1 path1))       ;真实路径
(vl-mkdir (strcat bak1 "文件夹"))       ;创建文件夹

账号		自动登录	找回密码
密码			注册