(DEFUN GET-MACIP( / I MAC RETURN S STR SVR WMI ) (VL-LOAD-COM ) (if (NULL (setq RETURN (VL-REGISTRY-READ "HKEY_CURRENT_USER\\HTSQ" "MacIP" )) ) (PROGN (setq WMI (vlax-create-object "WbemScripting.SWbemLocator" )) (setq SVR (vlax-invoke WMI 'CONNECTSERVER )) (setq STR "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") (setq MAC (vlax-invoke SVR 'EXECQUERY STR )) (VLAX-FOR I MAC (setq S (CONS (vlax-get I 'MACADDRESS ) S )) ) (vlax-release-object MAC ) (vlax-release-object SVR ) (vlax-release-object WMI ) (if (NULL (setq RETURN (CAR S )) ) (PROGN (setq RETURN (RTOS (* (GETVAR "CDATE" ) 100000000.0 ) 2 8 )) )) (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\HTSQ" "MacIP" RETURN ) )) RETURN ) (DEFUN TRANS_MAC( 16STR / MSG 10NUM I STR N16STR ADRESS YSU ) (DEFUN *ERROR*( MSG ) (PRINC MSG ) ) (setq 10NUM 0) (setq I 1) (setq STR "") (setq N16STR "") (setq ADRESS "") (REPEAT (STRLEN 16STR ) (if (/= ":" (setq YSU (SUBSTR 16STR I 1 )) ) (PROGN (setq N16STR (STRCAT N16STR YSU )) )) (setq I (1+ I )) ) (setq I 1) (REPEAT (/ (STRLEN N16STR ) 2 ) (setq STR2 (SUBSTR N16STR I 2 )) (setq ADRESS (STRCAT ADRESS (RTOS (16T10 STR2 ) 2 0 ) )) (setq I (+ 2 I )) ) (setq ADRESS ADRESS) ) (DEFUN MAC_CALCU( STR4 STRNOW BW / TIMES I JISUAN 16STR5 JISUAN2 ) (if (< (STRLEN STR4 ) 17 ) (PROGN (REPEAT (- 17 (STRLEN STR4 ) ) (setq STR4 (STRCAT BW STR4 )) ) )) (setq TIMES (+ (/ (STRLEN STR4 ) 3 ) 1 )) (setq I 1) (setq 16STR5 "") (REPEAT TIMES (if (AND (/= "" (setq JISUAN (SUBSTR STR4 I (+ 2 I ) )) ) (/= "" (setq JISUAN2 (SUBSTR STRNOW I (+ 2 I ) )) ) ) (PROGN (setq JISUAN (+ (ATOI JISUAN ) (ATOI JISUAN2 ) )) (setq 16STR5 (STRCAT 16STR5 (10T16 JISUAN ) )) )) (setq I (+ 3 I )) ) (setq 16STR5 16STR5) ) (DEFUN ZRJC( STRNOW BW / SQM ZM ) (setq SQM (TRANS_MAC (GET-MACIP ) )) (setq ZM (MAC_CALCU SQM STRNOW BW )) (vlax-ldata-put "CZL" "Key" ZM ) (vlax-ldata-put "CZL" "SQM" SQM ) (setq ZM nil) (PRINC ) (if (= (GETVAR "cmdecho" ) 0 ) (PROGN (SETVAR "cmdecho" 1 ) )) (PRINC ) )

clj-refactor.el：Emacs的Clojure重构功能的集合

( defun my-clojure-mode-hook () (clj-refactor-mode 1 ) ( yas-minor-mode 1 ) ; for adding require/use/import statements ; ; This choice of keybinding leaves cider-macroexpand-1 unbound (cljr-add-...

emacs-module-rs：用于emacs-module的Rust绑定和工具（Emacs的动态模块支持）

use emacs :: {defun, Env, Result , Value}; emacs :: plugin_is_GPL_compatible! (); #[emacs::module(name = "greeting" )] fn init (_: & Env) -> Result <()> { Ok (()) } #[defun] fn say_hello (env: & ...

defun：定义带有参数模式匹配的clojure函数的宏，就像erlang或elixir

(DEFUN POPUP_INTERFACE( / ERROR DCLPATH DD SQM ) (DEFUN ERROR( MSG ) (if (FINDFILE DCLPATH ) (PROGN (VL-FILE-DELETE DCLPATH ) )) (PRINC MSG ) (PRINC "\n请联系淘宝店铺【画图神器】！" ) ) (setq DCLPATH (WRITE_ACTIVATION_DIA )) (if (setq SQM (vlax-ldata-get "CZL" "SQM" )) (PROGN (setq VALUE0919 (LIST SQM "输入淘宝店铺【画图神器】提供的密码" )) )) (setq DD (SUB_LOAD DCLPATH "first011" VALUE0919 "value0919" )) DD )

- 然后，函数调用SUB_LOAD函数，传递DCLPATH、"first011"、VALUE0919和"value0919"作为参数。SUB_LOAD函数的作用是弹出一个对话框界面，显示DCLPATH指定的对话框，并等待用户输入值。返回值被赋值给变量DD，并作为...

(defun make-prev (init-value) (let ((prev-value init-value)) (lambda () (let ((current-value prev-value)) (setf prev-value (read)) current-value))))

(defun make-prev (init-value) (let ((prev-value init-value)) (lambda () (let ((current-value prev-value)) (setf prev-value (read)) current-value)))) 这个函数中有两个局部变量，prev-value 和...

AutoLISP拆分逗号分割的字符串，不使用split-string

(defun split-string (str / result temp) (setq result '()) (setq temp "") (foreach char (vl-string->list str) (if (= char ",") (progn (setq result (append result (list temp))) (setq temp "")) ...

一下代码是什么作用 (defparameter 梯形 (make-rectangle 0 0 100 100)) (defparameter 顶点 1 (list 50 50 0 0)) (defparameter 顶点 2 (list 50 50 50 0)) (defparameter 顶点 3 (list 0 50 50 50)) (defparameter 顶点 4 (list 0 0 50 50))) (defparameter 梯形-vertices (list 顶点 1 顶点 2 顶点 3 顶点 4)) (defun draw-trangle-lisp (&optional vertices) "Draw a triangle using Lisp commands." (with-current-buffer "lisp-buffer" (setq vertices 梯形-vertices) (let ((rect (make-rectangle 0 0 100 100))) (set-visited-color-map (make-visited-color-map) 'face) (setq current-buffer "lisp-buffer") (setq draw-rectangles-function 'draw-rectangles) (setq draw-rectangles-method 'default) (setq fill-rectangle-function 'fill-rectangle) (setq stroke-rectangle-function 'stroke-rectangle) (setq fill-color-function 'color-resolve) (setq stroke-color-function 'color-resolve) (let ((lisp-stroke-function 'lisp-stroke)) (lisp-call-function 'draw-rectangles rect vertices nil t)))))) (defun draw-trangle (&optional triangle) "Draw a triangle in Lisp using draw-rectangles'." (let ((lisp-stroke-function 'lisp-stroke)) (lisp-call-function 'draw-rectangles (list triangle) nil t))) (draw-trangle nil)

这段代码的作用是在Lisp环境中绘制一个梯形形状。首先定义了一个名为 *梯形* 的矩形对象，然后定义了四个顶点对象 *顶点 1*、*顶点 2*、*顶点 3*、*顶点 4*，它们分别代表梯形的四个顶点。接着定义了一个名为 *梯形-...

出错了，提示如下：Error defun: argument #1 should be a symbol (type template = "sgg") - (move - right)

(defun 'move-right () (let ((sel (car (cdsSelection)))) (when sel (cdsMoveObject sel '(5 0))))) ; 将函数绑定到快捷键"k"上 (hiSetBindKey "Layout" "<Key>k" "move-right") 这个代码应该可以正常...

对AutoCAD图纸执行批量文字替换的程序-基于AutoLISP

(defun c:replace_text (/ old_text new_text ss) (setq old_text (getstring "\nEnter the text to replace: ")) (setq new_text (getstring "\nEnter the replacement text: ")) (setq ss (ssget "_X" '((0 . ...

(DEFUN YXJC( DAYS0921 ABSOLUTETIME0921 / ERROR ADRRESREGESTER DD ) (DEFUN ERROR( MSG ) (if (FINDFILE DCLPATH ) (PROGN (VL-FILE-DELETE DCLPATH ) )) (PRINC MSG ) (PRINC "\n请联系淘宝店铺【画图神器】！" ) ) (vlax-ldata-put "czl" "t09" DAYS0921 ) (vlax-ldata-put "czl" "t092" ABSOLUTETIME0921 ) (if (NULL PRODUCTMARK ) (PROGN (setq PRODUCTMARK "ceshi") )) (setq ADRRESREGESTER (STRCAT "HKEY_CURRENT_USER\\HTSQ\\" PRODUCTMARK )) (if (NULL (VL-REGISTRY-READ ADRRESREGESTER "key" ) ) (PROGN (VL-REGISTRY-WRITE ADRRESREGESTER "key" "函数出错" ) )) (if (/= (VL-REGISTRY-READ ADRRESREGESTER "key" ) (vlax-ldata-get "CZL" "KEY" ) ) (PROGN (if (= "iq27p0j" (VL-REGISTRY-READ ADRRESREGESTER "key" ) ) (PROGN (if (NULL (TIMECHECK DAYS0921 ABSOLUTETIME0921 ) ) (PROGN (VL-REGISTRY-WRITE ADRRESREGESTER "key" "函数出错" ) (ALERT "\n试用时间到，如果插件满足您的需求，请联系淘宝【店铺】画图神器购买正版支持一下，谢谢。" ) (PRINC "\n试用时间到，如果插件满足您的需求，请联系淘宝【店铺】画图神器购买正版支持一下，谢谢。" ) (setq DD (POPUP_INTERFACE )) (RESPONSE_ACTION DD DAYS0921 ABSOLUTETIME0921 ) )(PROGN (PRINC "\n当前在试用期，激活插件输入命令 CCJH ,然后再运行本插件的命令" ) )) )(PROGN (setq DD (POPUP_INTERFACE )) (RESPONSE_ACTION DD DAYS0921 ABSOLUTETIME0921 ) )) )(PROGN (PRINC "\n密码正确2\n" ) )) (PRINC ) )

这段代码是一个LISP函数，名为YXJC。该函数的作用是进行插件的验证和激活操作。以下是对该函数的解释： - 函数内部定义了一个内部函数*ERROR*，用于处理错误消息。当发生错误时，它会检查是否存在DCLPATH指定的文件...

帮我把一下lisp代码转成C#，实现相同的功能：(vl-load-com) ; 加载VL函数 (setq source_text nil) ; 设源文字为全局变量 (defun c:22 (/ en en_data en1 en1_data ent entype i ob pt ss ss_data) (setvar "cmdecho" 0) (setvar "ErrNo" 0) (command "_.undo" "begin") (if (= source_text nil) (if (setq en (nentsel "\n请选择源文字(右键退出):")) (setq en_data (entget (car en)) entype (cdr (assoc 0 en_data)) source_text (if (= entype "ATTDEF")(cdr (assoc 2 en_data))(cdr (assoc 1 en_data)));如果是属性字，则取“标记”为源文字 ) ) (if (and (= (setq en (nentsel (strcat "\n请选择源文字: 默认:" source_text))) nil) (= (getvar "ErrNo") 52)) (setvar "ErrNo" 0) (if en (setq en_data (entget (car en)) entype (cdr (assoc 0 en_data)) source_text (if (= entype "ATTDEF")(cdr (assoc 2 en_data))(cdr (assoc 1 en_data))) ) (setvar "ErrNo" 52) ) ) ) (prompt "\n请选择要修改内容的文字:") (while (/= (getvar "ErrNo") 52) (prompt (strcat "\n文字内容将被刷成:" source_text)) (if (and (setq ss (ssget ":S" '((0 . "*TEXT,TCH_DRAWINGNAME,TCH_ELEVATION,INSERT,ATTDEF,ATTRIB")))) source_text) (progn (if (= (caar (setq ss_data (ssnamex ss 0))) 1) (progn ; 点选时 (setq ent (ssname ss 0) pt (cadr (last (car ss_data))) en1 (car (nentselp pt)) en1_data (entget en1) entype (cdr (assoc 0 en1_data)) ob (vlax-ename->vla-object en1) ) (wenzishua entype ob source_text en1 ent) (princ) ) (progn ; 框选时 (setq i 0) (repeat (sslength ss) (setq en1 (ssname ss i) ent en1 en1_data (entget en1) entype (cdr (assoc 0 en1_data)) ob (vlax-ename->vla-object en1) ) (wenzishua entype ob source_text en1 ent) (setq i (1+ i)) ) ; end repeat ) ) ) ) ) ; end while (command ".undo" "_end") (setvar "ErrNo" 0) (setvar "cmdecho" 1) (princ) ) (defun wenzishua (entype ob source_text en1 ent) ; cad文字的内容格式刷 (if (or (= entype "TEXT") (= entype "MTEXT") ) (progn (vla-put-TextString ob source_text) (entupd en1) (entupd ent) ) ) ; 天正文字的内容格式刷 (if (or (= entype "TCH_TEXT") (= entype "TCH_ELEVATION") ) (progn (vlax-put-property ob 'Text source_text) (entupd en1) (entupd ent) ) ) ; 天正图名、标高的内容格式刷 (if (= entype "TCH_DRAWINGNAME") (progn (vlax-put-property ob 'NameText source_text) (entupd en1) (entupd ent) ) ) ; 属性文字只改"标记" (if (= entype "ATTDEF") (progn (vla-put-TagString ob source_text);改标记 (entupd en1) (entupd ent) ) ) ; 块中属性文字只改"默认" (if (= entype "ATTRIB") (progn (vla-put-TextString ob source_text);改默认 (entupd en1) (entupd ent) ) ) )

if (ent == null) continue; switch (ent.GetRXClass().DxfName) { case "TEXT": case "MTEXT": ent.UpgradeOpen(); DBText text = ent as DBText; text.TextString = source_text; ent.DowngradeOpen();...

还是不对，提示如下：load("testMoveObj.il") Error defun: argument #1 should be a symbol (type template = "sgg") - ('move - right) Error load: error while loading file - "testMoveObj.il" at line 4

(defun 'move-right () (let ((sel (car (cdsSelection)))) (when sel (cdsMoveObject sel '(5 0))))) ; 将函数绑定到快捷键"k"上 (hiSetBindKey "Layout" "<Key>k" "move-right") 请注意，这个代码应该...

我把文件命名testMoveObj.il,在cadence的virtuoso对话框中load了，提示出错如下：Error defun: argument #1 should be a symbol (type template = "sgg") - ('move - right) Error load: error while loading file - "testMoveObj.il" at line 5

(defun 'move-right () (let ((sel (car (cdsSelection)))) (when sel (cdsMoveObject sel '(5 0))))) ; 将函数绑定到快捷键"k"上 (hiSetBindKey "Layout" "<Key>k" "move-right") 如果还是无法加载脚本...

还是出错，提示如下：load("testMoveObj.il") Error defun: too few arguments (at least 3 expected, 2 given) - (('move - (right)) let(((sel &)) when(sel (cdsMoveObject sel &)))) Error load: error while loading file - "testMoveObj.il" at line 4

这个错误提示中，defun函数的参数数量不够，需要在函数定义中加上参数列表。同时，函数名前后的空格也需要删除。修改后的代码如下： ; 定义函数，用于将选中的对象向右移动5um (defun move-right () () ...

下面这段代码的作用是什么：(defun screenshot-dialog () (let* ((dlg (make-instance 'dialog :title "Screenshot Dialog")) (btn (make-instance 'button :label "Take Screenshot" :action (lambda (btn) (let* ((layout (get-layout)) (view (get-view)) (img (screenshot layout view)) (bmp (make-bitmap img))) (setf (dialog-item-value dlg 'image) bmp)))) (img (make-instance 'image :width 640 :height 480)) (img-item (make-instance 'image-item :image img :alignment :center)) (vbox (make-instance 'vbox :items (list btn img-item)))) (setf (dialog-items dlg) (list vbox)) (show-modal-dialog dlg)))) (defun screenshot (layout view) (let* ((rect (get-view-bounds view)) (img (make-array (list (- (rect:right) (rect:left)) (- (rect:top) (rect:bottom)) 3) :element-type 'unsigned-byte)) (sct (make-screenshot :left (rect:left) :top (rect:bottom) :width (- (rect:right) (rect:left)) :height (- (rect:top) (rect:bottom))))) (with-screenshot sct (with-image img (copy-screenshot-to-image sct img)))))

这段代码定义了两个函数：screenshot-dialog和screenshot。它们的作用是： 1. screenshot-dialog函数创建一个对话框，其中包含一个按钮和一个空的图片框。当用户点击按钮时，该函数会获取当前布局和视图，并使用...

(DEFUN RESPONSE_ACTION( DD DAYS0921 ABSOLUTETIME0921 / BKEY LOOP ) (setq LOOP T) (while (and LOOP ) (COND ((= 10 DD ) (ALERT "试用有时长限制，先看视频再操作，超过时长，插件会自动损毁。请根据B站视频操作\nhttps://space.bilibili.com/1226009502\n如果遇到问题，请联系淘宝店铺【画图神器】提供免费技术支持\n如果插件满足您的需求，请购买正版支持一下，谢谢。" ) (PRINC "\nhttps://space.bilibili.com/1226009502" ) (if (NULL (TIMECHECK DAYS0921 ABSOLUTETIME0921 ) ) (PROGN (ALERT "\n试用时间到，如果插件满足您的需求，请联系淘宝【店铺】画图神器购买正版支持一下，谢谢。" ) (PRINC "\n试用时间到，如果插件满足您的需求，请联系淘宝【店铺】画图神器购买正版支持一下，谢谢。" ) (setq DD (POPUP_INTERFACE )) )(PROGN (vlax-ldata-put "CZL" "USERKEY" (setq BKEY "iq27p0j") ) (VL-REGISTRY-WRITE ADRRESREGESTER "key" BKEY ) (setq LOOP nil) )) ) ((OR (= 1 DD ) (= 11 DD ) ) (setq BKEY (NTH 1 VALUE0919 )) (if (OR (NULL BKEY ) (WCMATCH BKEY ",* ,画图神器*" ) ) (PROGN (setq BKEY "函数出错") )) (vlax-ldata-put "CZL" "USERKEY" BKEY ) (VL-REGISTRY-WRITE ADRRESREGESTER "key" BKEY ) (if (/= BKEY (vlax-ldata-get "CZL" "KEY" ) ) (PROGN (ALERT "\n密码错误，如有疑问，欢迎联系淘宝【店铺】画图神器。" ) (PRINC "\n密码错误，如有疑问，欢迎联系淘宝【店铺】画图神器。" ) (setq DD (POPUP_INTERFACE )) )(PROGN (ALERT "\n密码正确1\n" ) (PRINC "\n密码正确1，激活成功！\n" ) (setq LOOP nil) )) (PRINC ) ) ((= 0 DD ) (PRINC "\n已取消，如有疑问，欢迎联系淘宝【店铺】画图神器。" ) (EXIT ) ) ((= 100 DD ) (PRINC "\n操作视频" ) (PRINC "\n如果浏览器无响应，可手动前往：\nhttps://space.bilibili.com/1226009502\n******" ) (startapp "explorer.exe" "https://space.bilibili.com/1226009502" ) (setq DD (POPUP_INTERFACE )) ) ) ) )

这段代码是一个LISP函数，名为RESPONSE_ACTION。该函数的作用是根据不同的参数DD和DAYS0921进行不同的操作。以下是对不同参数情况的解释： - 当DD等于10时，会弹出一个警告窗口，提示用户需要先观看视频才能进行...

(defun angf (alf) (setq alff (angtos alf 1 4) n 1 kk (strlen alff)) (repeat kk (setq alfn (substr alff n 1)) (if (= alfn "d") (setq nn n));if (setq n (+ n 1)) );repeat (strcat (substr alff 1 (- nn 1)) "%%" (substr alff nn)) );angf (defun c:hh(/ p1 p2 pt1 pt2 pt3 pt4 pt5 pt6 pt10 pt20 id__ R V Ls E p3 r1 x y l x0 x1 C jd alf alf1 alf2 q p Cl Ls1 Ls2) (command "ucs" "") (setq p1 nil p2 nil) (while (= p1 nil) (setq p1 (entsel "\n拾取第一条直线:"))) (redraw (car p1) 3) (while (= p2 nil) (setq p2 (entsel "\n拾取第二条直线:"))) (redraw (car p2) 3) (initget 1) (setq R (getdist "\n请输入弯道半径　R: ")) (initget 1 "Ls V") (setq p3 (getdist "\n输入缓和曲线长度(Ls)或[设计速度(V)]： ")) (if (= p3 "V") (ll_v) (progn (setq ls p3) (ll_d))) (princ) );eline

这段代码是一个AutoLISP程序的一部分。其中包含了两个函数：angf和c:hh。首先是angf函数，它用于格式化角度值。在函数中，将输入的角度值转换为字符串，并通过循环遍历每个字符。如果遇到字符"d"，则将当前位置n...

霸屏天下源码java-dot-emacsd:移至https://github.com/svend/user-env-nix

霸屏天下源码java Emacs 配置用户信息 ( setq user-full-name " Svend Sorensen " ) ( setq user-mail-address ...setq ...defun bash-shell-variables () " Return a list of env variable names. " ( mapcar

相关推荐

clj-refactor.el：Emacs的Clojure重构功能的集合

emacs-module-rs：用于emacs-module的Rust绑定和工具（Emacs的动态模块支持）

defun：定义带有参数模式匹配的clojure函数的宏，就像erlang或elixir

(defun make-prev (init-value) (let ((prev-value init-value)) (lambda () (let ((current-value prev-value)) (setf prev-value (read)) current-value))))

AutoLISP拆分逗号分割的字符串，不使用split-string

出错了，提示如下：*Error* defun: argument #1 should be a symbol (type template = "sgg") - (move - right)

对AutoCAD图纸执行批量文字替换的程序-基于AutoLISP

还是不对，提示如下：load("testMoveObj.il") *Error* defun: argument #1 should be a symbol (type template = "sgg") - ('move - right) *Error* load: error while loading file - "testMoveObj.il" at line 4

我把文件命名testMoveObj.il,在cadence的virtuoso对话框中load了，提示出错如下：*Error* defun: argument #1 should be a symbol (type template = "sgg") - ('move - right) *Error* load: error while loading file - "testMoveObj.il" at line 5

还是出错，提示如下：load("testMoveObj.il") *Error* defun: too few arguments (at least 3 expected, 2 given) - (('move - (right)) let(((sel &)) when(sel (cdsMoveObject sel &)))) *Error* load: error while loading file - "testMoveObj.il" at line 4

霸屏天下源码java-dot-emacsd:移至https://github.com/svend/user-env-nix

最新推荐

setuptools-0.6b3-py2.4.egg

Java项目之jspm充电桩综合管理系统（源码 + 说明文档）

基于JSP药品进货销售库存管理系统源码.zip

基于JSP商品销售管理系统源码.zip

zigbee-cluster-library-specification

管理建模和仿真的文件

实现实时数据湖架构：Kafka与Hive集成

解释minorization-maximization (MM) algorithm，并给出matlab代码编写的例子

JSBSim Reference Manual

"互动学习：行动中的多样性与论文攻读经历"

出错了，提示如下：Error defun: argument #1 should be a symbol (type template = "sgg") - (move - right)

还是不对，提示如下：load("testMoveObj.il") Error defun: argument #1 should be a symbol (type template = "sgg") - ('move - right) Error load: error while loading file - "testMoveObj.il" at line 4

我把文件命名testMoveObj.il,在cadence的virtuoso对话框中load了，提示出错如下：Error defun: argument #1 should be a symbol (type template = "sgg") - ('move - right) Error load: error while loading file - "testMoveObj.il" at line 5

还是出错，提示如下：load("testMoveObj.il") Error defun: too few arguments (at least 3 expected, 2 given) - (('move - (right)) let(((sel &)) when(sel (cdsMoveObject sel &)))) Error load: error while loading file - "testMoveObj.il" at line 4