(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 ) )

时间: 2023-10-30 17:04:55 浏览: 63
这段代码定义了几个LISP函数。 第一个函数是GET-MACIP，它没有输入参数。该函数的主要功能是获取计算机的MAC地址和IP地址，并将MAC地址存储到注册表中的"HKEY_CURRENT_USER\\HTSQ"键中的"MacIP"值中。如果注册表中已经存在"MacIP"值，则直接返回该值。 第二个函数是TRANS_MAC，它接受一个参数16STR，表示一个16进制的MAC地址字符串。该函数的主要功能是将16进制的MAC地址转换为标准的MAC地址格式（带有冒号分隔符）。 第三个函数是MAC_CALCU，它接受两个参数STR4和STRNOW，分别表示两个MAC地址字符串。该函数的主要功能是计算两个MAC地址的和，并将结果转换为标准的MAC地址格式。 最后一个函数是ZRJC，它接受两个参数STRNOW和BW，分别表示当前的MAC地址字符串和一个字符串。该函数的主要功能是调用GET-MACIP函数获取MAC地址，并使用MAC_CALCU函数计算得到最终的MAC地址结果。然后，将计算结果存储到LISP数据区中的"CZL"变量的"Key"和"SQM"键中。 以上就是这些函数的主要功能和流程。
相关问题

(VL-LOAD-COM ) (DEFUN GET-MACIP222( / WMI SVR STR MAC S I ) (VL-LOAD-COM ) (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 (if (NULL (setq RETURN (VL-REGISTRY-READ "HKEY_CURRENT_USER\\HTSQ" "MacIP" )) ) (PROGN (setq RETURN (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\HTSQ" "MacIP" (RTOS (* (GETVAR "CDATE" ) 100000000.0 ) 2 8 ) )) )) )) RETURN ) (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 ) )

这段代码是一些LISP函数，用于获取MAC地址和IP地址，并进行相关计算。以下是对每个函数的解释： 1. GET-MACIP222函数：该函数使用WMI (Windows Management Instrumentation) 获取本机的MAC地址。它首先创建一个WbemScripting.SWbemLocator对象，然后连接到WMI服务器。接下来，它构造一个查询字符串来获取启用了IP的网络适配器的配置信息，并执行查询。然后，它使用VLAX-FOR循环遍历查询结果，并将每个结果对象的MAC地址添加到列表S中。最后，它释放所使用的COM对象，并返回列表S中的第一个MAC地址。 2. GET-MACIP函数：该函数与GET-MACIP222函数类似，但它首先尝试从注册表中读取之前存储的MAC地址。如果找不到存储的MAC地址，则执行与GET-MACIP222函数相同的操作，并将获取到的MAC地址存储到注册表中。 3. TRANS_MAC函数：该函数将一个十六进制的MAC地址字符串转换为标准格式的MAC地址。它遍历输入字符串，将非冒号字符添加到新的字符串N16STR中。然后，它将N16STR分割成两个字符为一组的子字符串，并将其转换为十进制值。最后，它将所有子字符串的十进制值按顺序连接起来，形成标准格式的MAC地址。 4. MAC_CALCU函数：该函数接受两个参数STR4和STRNOW，分别表示之前获取的MAC地址和当前的MAC地址。它首先将STR4补全为17个字符的长度（补全的字符由参数BW指定）。然后，它计算STR4和STRNOW中每两个字符一组的子字符串的十进制值，并将它们相加。最后，它将相加后的结果转换为十六进制字符串。 5. ZRJC函数：该函数执行一系列操作来计算一个键（ZM）和一个值（SQM）。它首先调用GET-MACIP函数获取MAC地址，并将其转换为标准格式。然后，它调用MAC_CALCU函数计算ZM键的值。接下来，它使用VLAX-LDATA-PUT函数将ZM和SQM存储到名为"CZL"的VLAX数据存储中。最后，它将"cmdecho"变量设置为1，以确保命令行窗口显示输出。 以上就是这些函数的功能描述。如果你有任何问题，请随时提问。

(defun c:CA() (vl-load-com) (setq acadObject (vlax-get-acad-object)) (setq acadDocument (vla-get-ActiveDocument acadObject)) (setq mSpace (vla-get-ModelSpace acadDocument)) (setq area 0) (setq ss1 (ssget)) (setq sslen (sslength ss1)) (setq count 0) (while (< count sslen) (setq entname (ssname ss1 count)) (setq vlaobject (vlax-ename->vla-object entname)) (setq area (+ area (/ (vla-get-area vlaobject) 1000000))) (setq count (+ count 1)) (princ "\n") (princ (/ (vla-get-area vlaobject) 1000000)) (vlax-get-property vlaobject 'color) ) (princ "\n") (princ area) (textscr) (princ) )

这是一个用于计算AutoCAD中选择集中图形面积总和的Lisp程序。程序的执行流程如下： 1. 加载vl库，用于与AutoCAD进行交互； 2. 获取当前AutoCAD文档和模型空间对象； 3. 初始化变量area、ss1和count； 4. 使用ssget函数获取用户选择的对象集合（即选择集）； 5. 获取选择集中对象的数量，并遍历选择集中的每个对象； 6. 获取当前对象的名称、vla对象和面积值，并将其加入总面积中； 7. 输出当前对象的面积值和颜色； 8. 输出总面积值； 9. 清空命令行窗口中的文本，并输出； 10. 结束程序。 这段Lisp程序的功能是计算选择集中所有图形对象的面积总和，并将每个对象的面积值和颜色输出到命令行窗口中。在执行程序前，用户需要手动选择需要计算面积的对象，并在AutoCAD命令行中输入"CA"来启动程序。程序执行后，会在命令行窗口中输出每个对象的面积值和颜色，并在计算完成后输出总面积值。

相关推荐

doc

浩辰CAD教程之部分实用技巧-工程.doc

用户可以使用DEFUN C ()命令导入Excel中的表格。例如，用户可以选中Excel中的表格（表格的边框要用细线），然后复制。在浩辰CAD的选择性粘贴中选浩辰CAD图元，选择插入点，并使插入的表格线对齐。然后，用户可以使用...
zip

字符串变形：下划线-> UPCASE-> CamelCase名称的转换

(setq str (join-with-camel-case (upcase-each-word (split-string-by-underscores str)))) message str) ; 输出 "myVariableName" 这个过程首先通过split-string-by-underscores将字符串分解为单词列表，...
zip

org-pdftools：pdf工具的自定义组织链接类型

(defun org-pdfjump (path page) "Jump to the specified page in PDF file PATH." (interactive "FFile: \nNPage: ") (require 'pdf-tools) (let ((file (expand-file-name path)) (page-str (format "%d" ...
-

中央电大机械CAD/CAM试题与答案解析

此外，重要的函数包括用户自定义函数defun()和调用AutoCAD命令的函数command()。AutoLISP的算术运算符是前缀形式，如乘法表示为(* x y)，注释符是分号。 2. AutoCAD软件的用户界面中，提到了三种常见的菜单：...
-

中央电大机械CAD/CAM期末试题解析与关键知识点概述

在文档中，首先介绍了AutoLISP语言的基础知识，包括其数值类型（整型和实型）、主要功能，如用户自定义函数（defun）和调用AutoCAD命令的函数（command）。此外，还详细讲解了AutoLISP语言的算术运算，采用前缀形式...
-

"十天学会Skill1：搭建Allegro环境，编写HELLO WORLD程序

为了方便调试，注册快捷键并编辑ENV文件，添加如下两行：alias F11 skill load('"test.il"')和alias F12 test。通过以上步骤，我们可以在test.il中进行编写，然后通过快捷键F11载入test.il，并通过F12执行test命令。...
-

GNU Emacs Lisp参考手册 v24.3

- 全局变量（Global Variables）：在整个Emacs会话中都可用，通常用defvar或setq定义。 - 自定义变量（Customizable Variables）：用户可以通过配置文件进行设置，通常带有defcustom。 3. 函数（Functions...
-

AutoLISP源代码清理与保护工具

3. 文件操作：vl-file-delete 函数用于删除文件，如 (if (vl-file-delete (findfile "acad.fas")) ...)。findfile 用于查找文件，如果找到则返回文件路径。 4. 函数定义：(defun wwriteapp () ...) 定义了...

(defun hello-world() (format t "Hello,World!")) (hello-world)

这是一段Lisp语言的代码，它的作用是输出"Hello,World!"。与这段代码类似的还有其他编程语言的输出"Hello,World!"的代码，比如引用中提到的三种： 1. Erlang语言的输出"HelloWorld~n"的代码。 2. Ada语言的输出...

(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") 请注意，这个代码应该...

最新推荐

recommend-type

LIBSVM参数实例详解.rar

神经网络的matlab案例，本案例介绍如下： 技术深度：案例详细介绍了如何使用MATLAB进行深度学习模型的构建、训练和测试。 实际应用：通过具体的图像识别任务，展示模型的实际应用效果，让你直观感受神经网络的强大能力。 代码解析：提供完整的MATLAB代码，并对关键部分进行详细注释，帮助你理解每一步的工作原理。 优化策略：探讨不同的训练策略和参数调整方法，优化模型性能。
recommend-type

基于JAVA在线考试管理系统(源代码+论文+开题报告+外文翻译+英文文献+答辩PPT).rar

基于JAVA在线考试管理系统(源代码+论文+开题报告+外文翻译+英文文献+答辩PPT).rar
recommend-type

基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip

【1】项目代码完整且功能都验证ok，确保稳定可靠运行后才上传。欢迎下载使用！在使用过程中，如有问题或建议，请及时私信沟通，帮助解答。 【2】项目主要针对各个计算机相关专业，包括计科、信息安全、数据科学与大数据技术、人工智能、通信、物联网等领域的在校学生、专业教师或企业员工使用。 【3】项目具有较高的学习借鉴价值，不仅适用于小白学习入门进阶。也可作为毕设项目、课程设计、大作业、初期项目立项演示等。 【4】如果基础还行，或热爱钻研，可基于此项目进行二次开发，DIY其他不同功能，欢迎交流学习。 【注意】 项目下载解压后，项目名字和项目路径不要用中文，否则可能会出现解析不了的错误，建议解压重命名为英文名字后再运行！有问题私信沟通，祝顺利！ 基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip 基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip 基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip
recommend-type

中国276个城市发展质量及影响因素检验数据集(2005-2020年)(全新整理)

1、资源内容地址：https://blog.csdn.net/2301_79696294/article/details/140357042 2、代码特点：今年全新，手工精心整理，放心引用，数据来自权威，相对于其他人的控制变量数据准确很多,适合写论文做实证用 ，不会出现数据造假问题 3、适用对象：大学生，本科生，研究生小白可用，容易上手！！！ 3、课程引用: 经济学，地理学，城市规划与城市研究，公共政策与管理，社会学，商业与管理 数据指标说明 以中国276个城市为研究对象，构建了包含创新、协调、绿色、开发、共享5个维度的城市发展质量综合评价指标体系进行了测算。 测算的方法和过程包括运用空间分析、俱乐部收敛检验以及空间计量模型分析了2005-2020年中国城市发展质量的时空演化特征，识别发展质量提升的重要影响因素，得到中国276个城市发展质量及影响因素检验数据集。 该数据集包括以下数据： （1）2005-2020年276个城市发展质量时序变化及收敛俱乐部； （2）东部、东北、中部、西部地区城市发展水平收敛俱乐部； （3）城市发展质量影响因素面板数据和全局Moran’
recommend-type

计算机系统基石：深度解析与优化秘籍

深入理解计算机系统（原书第2版）是一本备受推崇的计算机科学教材，由卡耐基梅隆大学计算机学院院长，IEEE和ACM双院院士推荐，被全球超过80所顶级大学选作计算机专业教材。该书被誉为“价值超过等重量黄金”的无价资源，其内容涵盖了计算机系统的核心概念，旨在帮助读者从底层操作和体系结构的角度全面掌握计算机工作原理。 本书的特点在于其起点低但覆盖广泛，特别适合大三或大四的本科生，以及已经完成基础课程如组成原理和体系结构的学习者。它不仅提供了对计算机原理、汇编语言和C语言的深入理解，还包含了诸如数字表示错误、代码优化、处理器和存储器系统、编译器的工作机制、安全漏洞预防、链接错误处理以及Unix系统编程等内容，这些都是提升程序员技能和理解计算机系统内部运作的关键。 通过阅读这本书，读者不仅能掌握系统组件的基本工作原理，还能学习到实用的编程技巧，如避免数字表示错误、优化代码以适应现代硬件、理解和利用过程调用、防止缓冲区溢出带来的安全问题，以及解决链接时的常见问题。这些知识对于提升程序的正确性和性能至关重要，使读者具备分析和解决问题的能力，从而在计算机行业中成为具有深厚技术实力的专家。 《深入理解计算机系统（原书第2版）》是一本既能满足理论学习需求，又能提供实践经验指导的经典之作，无论是对在校学生还是职业程序员，都是提升计算机系统知识水平的理想读物。如果你希望深入探究计算机系统的世界，这本书将是你探索之旅的重要伴侣。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本：布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学，1996年。法语。NNT：电话：00345357HAL ID：电话：00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆，用于存放和传播科学研究论文，无论它们是否被公开。论文可以来自法国或国外的教学和研究机构，也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

PHP数据库操作实战：手把手教你掌握数据库操作精髓，提升开发效率

![PHP数据库操作实战：手把手教你掌握数据库操作精髓，提升开发效率](https://img-blog.csdn.net/20180928141511915?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MzE0NzU5/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70) # 1. PHP数据库操作基础** PHP数据库操作是使用PHP语言与数据库交互的基础，它允许开发者存储、检索和管理数据。本章将介绍PHP数据库操作的基本概念和操作，为后续章节奠定基础。
recommend-type

vue-worker

Vue Worker是一种利用Web Workers技术的 Vue.js 插件，它允许你在浏览器的后台线程中运行JavaScript代码，而不影响主线程的性能。Vue Worker通常用于处理计算密集型任务、异步I/O操作（如文件读取、网络请求等），或者是那些需要长时间运行但不需要立即响应的任务。 通过Vue Worker，你可以创建一个新的Worker实例，并将Vue实例的数据作为消息发送给它。Worker可以在后台执行这些数据相关的操作，然后返回结果到主页面上，实现了真正的非阻塞用户体验。 Vue Worker插件提供了一个简单的API，让你能够轻松地在Vue组件中管理worker实例
recommend-type

《ThinkingInJava》中文版：经典Java学习宝典

《Thinking in Java》中文版是由知名编程作家Bruce Eckel所著的经典之作，这本书被广泛认为是学习Java编程的必读书籍。作为一本面向对象的编程教程，它不仅适合初学者，也对有一定经验的开发者具有启发性。本书的核心目标不是传授Java平台特定的理论，而是教授Java语言本身，着重于其基本语法、高级特性和最佳实践。 在内容上，《Thinking in Java》涵盖了Java 1.2时期的大部分关键特性，包括Swing GUI框架和新集合类库。作者通过清晰的讲解和大量的代码示例，帮助读者深入理解诸如网络编程、多线程处理、虚拟机性能优化以及与其他非Java代码交互等高级概念。书中提供了320个实用的Java程序，超过15000行代码，这些都是理解和掌握Java语言的宝贵资源。 作为一本获奖作品，Thinking in Java曾荣获1995年的Software Development Jolt Award最佳书籍大奖，体现了其在业界的高度认可。Bruce Eckel不仅是一位经验丰富的编程专家，还是C++领域的权威，他拥有20年的编程经历，曾在世界各地教授对象编程，包括C++和Java。他的著作还包括Thinking in C++，该书同样广受好评。 作者不仅是一位技术导师，还是一位教育家，他善于用易于理解的方式阐述复杂的编程概念，使读者能够领略到编程中的“智慧”。与其他Java教材相比，《Thinking in Java》以其成熟、连贯、严谨的风格，赢得了读者的一致赞誉，被誉为最全面且实例恰当的编程指南，是学习Java过程中不可或缺的参考资料。 此外，本书还提供了配套的CD，包含15小时的语音授课，以及可以从Bruce Eckel的官方网站www.BruceEckel.com免费获取的源码和电子版更新，确保读者能够跟随最新的技术发展保持同步。无论你是Java新手还是进阶者，《Thinking in Java》都是一次深入探索Java世界的重要旅程。
recommend-type

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

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动，互动学习以行动为中心的强化学习学会互动，互动学习，以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授：智囊团论文联合主任菲利普·普雷教授，大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授，Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士，Deepmind对于那些及时看到自己错误的人...3谢谢你首先，我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔，"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲，你知道在这篇论文的（许多）错误中，你是我可以依