设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区 › 日志

日志

分享整数规划求解: mahuan1279 2014-10-11 03:11; X、Y、Z均为非负整数，abc0且满足L-min(a,b,c)a*X+b*Y+c*Z=L，求X、Y、Z的整数解？ (setq a 9 b 8 c 7 L 100 nlist nil) (defun ff (n / llist i) (setq llist '() i 0) (while (= i n) (setq llist (cons i llist)) ...; 个人分类: LISP|965 次阅读|0 个评论

分享三角形外接圆反应器: mahuan1279 2014-10-11 02:59; (vl-load-com) (defun swq(notifier-object reactor-object parameter-list / pt1 pt2 pt3 d1 d2 d3 a b c x y dd) (setq cen (handent (vlr-data reactor-object) ) ) (setq len (vlax-vla-object-ename notifier-object) &nbs ...; 个人分类: LISP|745 次阅读|0 个评论

分享在word里创建表格: mahuan1279 2014-10-11 02:49; (vl-load-com) (setq msw (vl-catch-all-apply 'vlax-create-object '("Word.Application") )) (vlax-put-property msw 'visible 1) (setq docs (vla-get-documents msw)) (setq doc (vlax-invoke-method docs 'add )) (setq ran (vlax-invoke-method doc 'range Start:=16, End:=29)) (setq tabs (vlax-get-p ...; 个人分类: LISP|829 次阅读|0 个评论

分享创建word: mahuan1279 2014-10-11 02:25; (vl-load-com) (cond ((null msw-wd100Words) (setq a 1)) ) (if (= a 1) (princ "设置失败！") (princ "设置成功！")) (setq sysdrv (getenv "systemdrive")) (setq tlbfile (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office12\\msword.olb"))) (vlax-import-type-library &nb ...; 个人分类: LISP|606 次阅读|0 个评论

分享创建EXCEL: mahuan1279 2014-10-10 21:53; (vl-load-com) (cond ((null msxl-xl24HourClock) (setq a 1)) ) (if (= a 1) (princ "设置失败！") (princ "设置成功！")) (setq sysdrv (getenv "systemdrive")) (setq tlbfile (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office12\\Excel.exe"))) (vlax-import-type-library ...; 个人分类: LISP|863 次阅读|0 个评论

分享读取CAD中的文字: mahuan1279 2014-10-10 20:28; (vl-load-com) (setq ss (ssget "X" '((0 . "*text")))) (setq i 0 ) (setq data '()) (while ( i (sslength ss)) (setq data (append data (list i))) (setq i (+ i 1)) ) (foreach x data (setq sstr (vlax-ename-vla-ob ...; 个人分类: LISP|1104 次阅读|3 个评论热度 1

分享写入word: mahuan1279 2014-10-10 19:20; (vl-load-com) (defun c:ptest (/ msw doc paragraphs pg range) (setq sysdrv (getenv "systemdrive")) (setq tlbfile (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office12\\msword.olb"))) (if (equal nil mswc-wd100Words) (vlax-import-type-library &n ...; 个人分类: LISP|601 次阅读|0 个评论

分享四边形（由polyline构成）批量标注: mahuan1279 2014-10-10 18:02; (defun bz (el) (setq ptlist nil) (foreach n el (if (= 10 (car n)) (setq ptlist (append ptlist (list (cdr n)))) ) ) (setq pt1 (car ptlist)) (setq pt2 (cadr ptlist)) (setq pt3 (caddr ptl ...; 个人分类: LISP|457 次阅读|0 个评论

分享列表元素前添加序号: mahuan1279 2014-10-10 17:44; 如列表'(6 3 5 6 8 6 2 5 6 8 6)，元素有重复，希望保持元素位置不变但在每个元素前加上该元素在列表中依次出现的序号，输出结果’((1 . 6) (1 . 3) (1 . 5) (2 . 6) (1 . 8) (3 . 6) (1 . 2) (2 . 5) (4 . 6) (2 . 8) (5 . 6))。 (defun lmax (lst num) (setq i 0) (foreach e lst &nb ...; 个人分类: LISP|426 次阅读|0 个评论

分享约瑟夫数圈问题lisp实现: mahuan1279 2014-10-10 00:31; 标号为1、2、3、……n的n个人围成一个圆圈，现在从标号为1的人开始按1、2、3……m的循环报数，报1的人出圈，求依次出圈人的标号？ ;|构造由大到小的列表|; (defun f (n) (if (= n 1) '(1) (cons n (f (- n 1))) &nb ...; 个人分类: LISP|482 次阅读|0 个评论

12 / 2 页

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )
©2000-2023 明经通道版权所有本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-4-29 20:23 , Processed in 0.350554 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部