戻り値は Unicode 文字をサポートするように修正されており、旧リリースと異なる場合があります。旧リリースでは、Unicode 文字の長さが正しく計算されませんでした。たとえば、以前(vl-string-search "€" "€abc中€" 1)は 11 を返しましたが、現在は 5 を返します。
vl-prin1-to-string (vl-prin1-to-string data) 返回LISP数据的字符串表示形式,就好像它是由prin1函数输出的一样 vl-princ-to-string (vl-princ-to-string data) 返回LISP数据的字符串表示形式,就好像它是由princ函数输出的一样 vl-propagate (vl-propagate 'symbol) 将变量的值复制到所有打开的文档命名空间...
vl-string-elt (AutoLISP) vl-string-left-trim (AutoLISP) vl-string-mismatch (AutoLISP) vl-string-position (AutoLISP) vl-string-right-trim (AutoLISP) vl-string-search (AutoLISP) vl-string-subst (AutoLISP) vl-string-translate (AutoLISP) vl-string-trim (AutoLISP) vl-symbol-name (AutoLISP) vl-...
( vl-string-search delim str ) ) ( setq outstr ( append outstr ( list ( substr str 1 emps ) ) ) ) ( setq str ( substr str ( + 2 emps ) ) ) ) (if ( > ( strlen str ) 0 ) ( append outstr ( list str ) ) outstr ) ) ;;;*** ;;;*** ;;;*** 发布于 2022-05...
autolisp函数 +(加)返回所有数的和 –(减)将第一个数减去其他数的和并返回差值 *(乘)返回所有数的乘积 /(除)将第一个数除以其他数的乘积并返回商 =(等于)比较参数是否相等 /=(不等于)比较参数是否值不相等 <(小于)如果每个参数值都小于它右边的参数则返回T，否则返回nil <=(小于或等于)如果每个参数值都...
(while (setq po (vl-string-search strkey string))(setq strlst (cons (substr string 1 po) ...
@lisp 函数库是一个开源、共享、可云端加载的 autolisp 函数库。由像您一样热爱开源共享的爱好者所构筑并维护。可依据开放许可协议自由使用。 @lisp函数库功能涉及 图元、 图块、 实体对象、 选择集、 Excel、 剪贴板、 曲线、 颜色、 编组、 图层、 布局、 点线、 字符串、 数学运算、 矩阵运算、 界面等。
通过(vl—registry—read)函数提取默认打印机在注 册表中的信息,采用(vl—string—search)及(substr)函数 进一步提取默认打印机的名称。实现语句如下: (setqPstr(vl—registry—read(strcat”HKEY _CUR— RENr_USER\\Soflware\\Microsofl\\⋯’Windows ...
AutoLisp基本函数 计算 + 格式：(+ x y z ...)作用：x+y+z+...x+y+z+...- 格式：(- x y z ...)作用：x−y−z−...x−y−z−...* 格式：(* x y z ...)作用：x∗y∗z∗...x∗y∗z∗.../ 格式：(/ x y z ...)作用：x/y/z/...x/y/z/...1+...
AutoLisp基础AutoLisp 基本函数 计算 + 格式：(+ x y z ...)作⽤：x+y+z+...x+y+z+...- 格式：(- x y z ...)作⽤：x?y?z?...x?y?z?...* 格式：(* x y z ...)作⽤：x?y?z?...x?y?z?.../ 格式：(/ x y z ...)作⽤：x/y/z/...x/y/z/...1+ 格式...