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 static/image/common/back.gif
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 "文件夹"))         ;创建文件夹
页: 1 2 [3]
查看完整版本: 求一个写块小程序