这段代码谁翻译一下

gh0012 · 发表于 2019-8-15 10:05:40

是个LISP文件二次开发的(defun c:set()
(setvar "cmdecho" 0)
(setvar "mirrtext" 0)
(setq tz (getstring"\nDrawing parrten(A0/A1\/A2\/A3/A4/B4):"))
(if(= tz "") (setq tz "A3"))
(setq bl (getreal"Scale:"))
(if(= bl nil) (setq bl 1.0))
(setq p (list 0 0))
(setq zt (* 5 bl))
(setq zg (* 3 bl))
(setq tzg (* 0.7 zg))
(setq lt (* 10 bl))
(command "insert" tz p bl "" "")
(command "zoom" "e")
(setvar "dimscale" bl)
(setvar "dimgap" 1)
(setvar "dimtxt" 3)
(setvar "dimasz" 2.5)
(setvar "dimexe" 1)
'(setvar "dimdli" 7)
;(setvar "dimzin" 12)
(setvar "ltscale" lt)
(command "style" "st" "romans" zt "0.7" "0" "" "" "")
(command "style" "romans" "romans" zg "0.7" "0" "" "" "")
)

(VMON)
(DEFUN c:A8() (COMMAND "APERTURE" "8"))
(DEFUN d:A4() (COMMAND "APERTURE" "4"))
(DEFUN c:A () (COMMAND "ARRAY"))
(DEFUN c:B () (COMMAND "BLOCK"))
(DEFUN c:BH() (COMMAND "BHATCH"))
(DEFUN c:BI() (COMMAND (LOAD "BI")))
(DEFUN c:BK() (COMMAND "BREAK"))
(DEFUN c:CA() (COMMAND "CHAMFER"))
(DEFUN c:CC() (COMMAND "CIRCLE"))
(DEFUN c:C () (COMMAND "COPY"))
(DEFUN c:CF() (COMMAND "CHAMFER"))
(DEFUN c:CG() (COMMAND "CHANGE"))
(DEFUN c:CH () (COMMAND "CHAMFER"))
(DEFUN c:CW() (COMMAND "COPY" "W"))
(DEFUN c () (COMMAND "DIST"))
(DEFUN cZ () (COMMAND (LOAD "DDHZ")))
(DEFUN c:E () (COMMAND "ERASE"))
(DEFUN c:EC() (COMMAND "ERASE" "C"))
(DEFUN c:EC() (COMMAND "ERASE" "CROSSING"))
(DEFUN c:EX() (COMMAND "EXPLODE"))
(DEFUN c:EL() (COMMAND "ERASE" "L" ""))
(DEFUN c:EP() (COMMAND "EXPLODE"))
(DEFUN c:ET() (COMMAND "EXTEND"))
(DEFUN c:EW() (COMMAND "ERASE" "W"))
(DEFUN c:FL() (COMMAND "FILLET"))
(DEFUN c:G () (COMMAND "GRID"))
(DEFUN c:HT() (COMMAND "HATCH"))
(DEFUN c:I () (COMMAND "INSERT"))
(DEFUN cS() (COMMAND "LAYER" "S"))
(DEFUN c0() (COMMAND "LAYER" "S" "0" ""))
(DEFUN c1() (COMMAND "LAYER" "S" "1" ""))
(DEFUN c:L2() (COMMAND "LAYER" "S" "2" ""))
(DEFUN c:L3() (COMMAND "LAYER" "S" "3" ""))
(DEFUN c:L4() (COMMAND "LAYER" "S" "4" ""))
(DEFUN c:L5() (COMMAND "LAYER" "S" "5" ""))
(DEFUN c:L6() (COMMAND "LAYER" "S" "6" ""))
(DEFUN c:L7() (COMMAND "LAYER" "S" "7" ""))
(DEFUN c:L8() (COMMAND "LAYER" "S" "8" ""))
(DEFUN c:L () (COMMAND "LINE"))
(DEFUN c:LR() (COMMAND "LINE" "@"))
(DEFUN c:LD() (COMMAND "LAYER" "S" "D" ""))
(DEFUN c:LH() (COMMAND "LAYER" "S" "H" ""))
(DEFUN c:MR() (COMMAND "MIRROR"))
(DEFUN c:M () (COMMAND "MOVE"))
(DEFUN c:MC() (COMMAND "MOVE" "C"))
(DEFUN c:ML() (COMMAND "MOVE" "L" ""))
(DEFUN c:MN() (COMMAND "MVSETUP" "N"))
(DEFUN c:MV() (COMMAND "SCRIPT" "MV"))
(DEFUN c:MW() (COMMAND "MOVE" "W"))
(DEFUN c:MXB () (COMMAND (LOAD "MXB")))
(DEFUN c:NT() (COMMAND (LOAD"NDIM.LSP")))
(DEFUN c:O () (COMMAND "OOPS"))
(DEFUN c:OF() (COMMAND "OFFSET"))
(DEFUN c () (COMMAND &quotAN"))
(DEFUN cHZ () (COMMAND (LOAD &quotPHZ")))
(DEFUN cL() (COMMAND &quotLINE"))
(DEFUN c:PT() (COMMAND (LOAD "PTEXT" )))
(DEFUN c:PU() (COMMAND "PURGE"))
(DEFUN c:RW() (COMMAND "REDRAW"))
(DEFUN c:R () (COMMAND "ROTATE"))
(DEFUN c:RE() (COMMAND "RECTANG"))
(DEFUN c:RT() (COMMAND "RECTANG"))
(DEFUN c:S1() (COMMAND "SCRIPT" "SET1"))
(DEFUN c:S2() (COMMAND "SCRIPT" "SET2"))
(DEFUN c:S3() (COMMAND "SCRIPT" "SET3"))
(DEFUN c:S4() (COMMAND "SCRIPT" "SET4"))
(DEFUN c:S5() (COMMAND "SCRIPT" "SET5"))
(DEFUN c:S6() (COMMAND "SCRIPT" "SET6"))
(DEFUN c:ST() (COMMAND "SCRIPT" "SET10"))
(DEFUN c:S () (COMMAND "SAVE" ""))
(DEFUN c:SL() (COMMAND "SCALE"))
(DEFUN c:SC() (COMMAND "SCRIPT"))
(DEFUN c:SD() (COMMAND "STYLE" "S" "" "" "" "" "" "" ""))
(DEFUN c:SF() (COMMAND "SCRIPT" "FAM0"))
(DEFUN c:SN() (COMMAND "SNAP"))
(DEFUN c:SO() (COMMAND "SOLID"))
(DEFUN c:ST() (COMMAND "STYLE" "ST" "" "" "" "" "" "" ""))
(DEFUN c:STR () (COMMAND "STRETCH" "CROSSING"))
(DEFUN c:STY () (COMMAND "STYLE"))
(DEFUN c:T () (COMMAND "TEXT"))
(DEFUN c:TA() (COMMAND "TEXT" "A"))
(DEFUN c:TM() (COMMAND "TEXT" "M"))
(DEFUN c:TF() (COMMAND "TEXT" "F"))
(DEFUN c:TP() (COMMAND (LOAD "PTEXT")))
(DEFUN c:TR() (COMMAND "TRIM"))
(DEFUN c:UO() (COMMAND "UCS" "O"))
(DEFUN c:UE() (COMMAND "UCS" "E"))
(DEFUN c:UP() (COMMAND "UCS" "P"))
(DEFUN c:VD() (COMMAND "VIEW" "D"))
(DEFUN c:VR() (COMMAND "VIEW" "R"))
(DEFUN c:V1() (COMMAND "VIEW" "R" "1"))
(DEFUN c:V2() (COMMAND "VIEW" "R" "2"))
(DEFUN c:V3() (COMMAND "VIEW" "R" "3"))
(DEFUN c:V4() (COMMAND "VIEW" "R" "4"))
(DEFUN c:V5() (COMMAND "VIEW" "R" "5"))
(DEFUN c:V6() (COMMAND "VIEW" "R" "6"))
(DEFUN c:V7() (COMMAND "VIEW" "R" "7"))
(DEFUN c:V8() (COMMAND "VIEW" "R" "8"))
(DEFUN c:V9() (COMMAND "VIEW" "R" "9"))
(DEFUN c:V10 () (COMMAND "VIEW" "R" "10"))
(DEFUN c:VS() (COMMAND "VIEW" "S"))
(DEFUN c:VW() (COMMAND "VIEW" "W"))
(DEFUN c:VP() (COMMAND "VIEWPORTS"))
(DEFUN c:VJ() (COMMAND "VIEWPORTS" "J"))
(DEFUN c:W () (COMMAND "WBLOCK"))
(DEFUN c:WB() (COMMAND (LOAD "WB")))
(DEFUN c:XH() (COMMAND (LOAD "XH.LSP")))
(DEFUN c:Z () (COMMAND "ZOOM"))
(DEFUN c:ZA() (COMMAND "ZOOM" "A"))
(DEFUN c:ZD() (COMMAND "ZOOM" "D"))
(DEFUN c:ZE() (COMMAND "ZOOM" "E"))
(DEFUN c:ZL() (COMMAND "ZOOM" "L"))
(DEFUN c:ZP() (COMMAND "ZOOM" "P"))
(DEFUN c:ZW() (COMMAND "ZOOM" "W"))
(DEFUN c:VI() (COMMAND "VIEWRES"))
(DEFUN c:LT() (COMMAND "LTSCALE"))

laoxiu00 · 发表于 2019-10-6 21:57:04

说正经的，Lisp国内玩的人可不多，圈子很窄的，这个圈子里再接触机械的就更少之又少了。

wuwangbin · 发表于 2019-10-15 23:12:56

C语言里面还能有表情吗，涨知识了。。。

jacketandf · 发表于 2019-11-6 16:17:54

当然没有啊是论坛里的表情代码自动识别显示出来啦

sc54188 · 发表于 2019-11-8 18:18:45

经典案例图书

有没有会的呀？

haq013826 · 发表于 2023-8-30 17:03:30

这段代码是用于定义AutoCAD命令的LISP函数集合。每个函数都对应一个特定的AutoCAD命令，可以通过调用这些函数来执行相应的命令操作。

这些函数包括了一些常见的AutoCAD命令，比如画线、画圆、复制、移动、旋转等等。每个函数都以"c:"开头，后面跟着命令的缩写或名称。例如，函数"c

()"对应的命令是"LINE"，函数"c:C ()"对应的命令是"COPY"，依此类推。

这段代码还定义了一些其他的函数，如"c:Set()"，它用于设置绘图的一些参数，比如图纸尺寸、比例尺、文字大小等。还有一些函数如"c:A8()"、"c:A4()"等，它们执行一些特定的操作，比如设置孔的尺寸或加载一些自定义的LISP程序。

总的来说，这段代码是为了在AutoCAD中创建一组自定义的命令函数，以便简化和加速绘图操作。

		自动登录	找回密码
密码			立即注册

这段代码谁翻译一下

最佳新人

活跃会员

热心会员

宣传达人