DOS

1291500406

@echo off&color 11&set c=0123456789abcdefghijklmnopqrstuvwxyz
title 必强工具-批量替换文件(文件夹)名
echo 此批处理可批量替换本文件所在文件夹下所有文件的文件名。
echo.&set /p strtemp1= 请输入要替换的文件(文件夹)名字符串（可替换空格）：
echo.&set /p strtemp2= 请输入替换后的文件(文件夹)名字符串（删除则直接回车）：
for /f "delims=" %%i in ('dir /s /b') do (
setlocal enabledelayedexpansion
set "f=%%~nxi"
set "f1=!f:%strtemp1%=%strtemp2%!"
if not "%%i"==%0 (
if not "!f!"=="!f1!" (
if exist "!f1!" (
echo 由于!f1!存在同名，!f! 文件名未改 ) else ren "!f!" "!f1!"
)
endlocal
)
)



@echo off
set workingDir=%~dp0
set file=allbook.txt
if exist %file%  del %file%
setlocal enabledelayedexpansion
for /r %workingDir% %%i in (. *) do (
set "bookname=%%i"
set "bookNameFile=%%~nxi"
  
if "!bookname:\.=!" equ "!bookname!" (
  rem file
  echo !bookNameFile!>>%file%
) else (
  rem dir
  echo= >>%file%
  echo !bookname!>>%file%
)
   
)
setlocal disabledelayedexpansion











(defun c:bb( / bbdist bbpt bbfristpline a b c bbfristpline2lst bbfristpline1 bbfristpline2)

(set ' bbdist(getreal "\n必强提示:请输入偏移距离"))
(while
(set 'bbpt(getpoint))
(if(set ' bbfristpline(bpoly bbpt))(progn
(entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")(cons 8 "楼板加腋")(cons 6 "Continuous")(cons 90 4))(mapcar '(lambda (pt) (cons 10 pt))
(if(and(vlax-method-applicable-p (vlax-ename->vla-object (entlast)) 'getboundingbox)(not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list (vlax-ename->vla-object bbfristpline) 'a 'b))))
(setq c(mapcar 'vlax-safearray->list (list a b))))(mapcar '(lambda ( a )(mapcar '(lambda ( b ) ((eval b) c)) a)) '((caar   cadar)(caadr  cadar)(caadr cadadr)(caar  cadadr)(caar   cadar))))
)))
(Set ' bbfristpline2lst(mapcar(function(lambda (x) (nth x (mapcar 'cdr(vl-remove-if-not(function(lambda (x)(= 10 (car x))))(entget bbfristpline))))))'(1 4 7 10)))
(set ' bbfristpline1 (entlast))
(vl-catch-all-apply 'vla-offset (list (vlax-ename->vla-object bbfristpline1) (- bbdist)))
(set ' bbfristpline2 (entlast))
(entdel bbfristpline1)(entdel bbfristpline )
(mapcar(function(lambda (x)(entmake (list '(0 . "LINE") (cons 8 "楼板加腋")(cons 6 "Continuous")(cons 10 x) (cons 11 (vlax-curve-getClosestPointTo bbfristpline2 x T))))))bbfristpline2lst))
))
(princ)
)

彳余

必强同志到底是哪个专业的，电气还是结构？

1291500406

彳余 发表于 2020-3-4 09:15
必强同志到底是哪个专业的，电气还是结构？

都不是，现在是无人机行业

彳余

可以的:D，什么时候给我们来个4g远传的教程

江南十笑

要支持不规则四边形 应该如何修改？