LISP中 remove-if-not 及 remove-if

最新推荐文章于 2024-01-15 00:15:09 发布
原创 最新推荐文章于 2024-01-15 00:15:09 发布 · 1.7k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。 



CL-USER> (remove-if-not #'evenp '(1 2 3 4 ))
(2 4)



CL-USER> (remove-if #'evenp '(1 2 3 4 ))
(1 3)

lisp将jpg放入sld图库_图库 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
weixin_39566593的博客
02-01 758
;20150401 增加删除确认.(defun c:tk ();(setvar "cmdecho" 0)(vl-load-com)(setq path "D:\\百度云同步盘\\CAD\\程序\\研究衍伸\\自制幻灯片\\");可不用设置搜索目录(setq keylst '("a1" "a2" "a3" "a4" "a5" "a6" "a7" "a8" "a9"));将image key 设置成表...
老古董Lisp实用主义入门教程（6）：好奇先生在Lisp的花园里挖呀挖呀挖
withstand的博客
08-27 1120
这就是Lisp最为独特的地方，Lisp的运行环境（REPL）中的符号都是动态的，可以被修改，可以被重新定义，可以被删除。这里有一个Lisp的核心概念，一个运行的环境中所有的符号、绑定都可以很容易的存成一个文件，然后在另一个环境中重新加载，这就是Lisp的强大之处。可以看到这个函数的签名，以及参数列表，返回值的类型，文档描述，函数的源代码文件位置。文档字符串内的搜索是可选的。好奇先生还没来得及按下回车，挠痒痒先生的手从很远的地方伸过来，挠了一下好奇先生的咯吱窝，然后还按了一下键盘，好奇先生的命令就被执行了。
cad加载tif影像说无效_晓东CAD家园-论坛-A/VLISP-批量加载TIF格式影像文件-autolisp根据tfw文件，自动判断影像坐标，加载影像。(文件选择程序来自网络） - Powered...
weixin_39740737的博客
12-20 1379
(defun AddTif ( msg def ext / *error* dch dcl des dir dirdata lst rtn )(defun *error* ( msg )(if (= 'file (type des))(close des))(if (and (= 'int (type dch)) (< 0 dch))(unload_dialog dch))(if (and ...
remove_if用法
zhongkeli的专栏
11-05 3649
remove_if function template template ForwardIterator remove_if ( ForwardIterator first, ForwardIterator last, Predicate pred ); Remove e
remove_if的误区
编程资料大全
08-21 99
template&lt;class ForwIter, class Predicate&gt; ForwIter std::remove_if(ForwIter beg, ForwIter end, Predicate op) { beg=find_if(beg,end,op); if(beg==end){ return beg; } else ...
remove_if 的用法
明了的博客
04-18 1万+
remove_if 是一个有很欺骗性的函数。 我们进入它的源码看看它的内部实现remove_if(_ForwardIterator __first, _ForwardIterator __last, _Predicate __pred) { __first = _VSTD::find_if<_ForwardIterator, typename add_lvalue_reference<_P
删除-2-remove-if
嗑盐工作室
09-23 134
#include&lt;iostream&gt; #include&lt;string&gt; #include&lt;list&gt; #include&lt;set&gt; #include&lt;algorithm&gt; #include&lt;functional&gt; using namespace std; void print(list&lt;int&gt; &amp
lisp判断选区是否有对象_cad如何快速删除矩形框之外的图形?比如:
weixin_35931648的博客
01-12 1163
使用AutoCAD命令【ERASE】->空格->输入【ALL】->空格->输入【R】->空格。选择对象，回车，那么除了被选择的对象，其它的对象会被删除。如果使用小插件的话，选择矩形【多段线】或其它的封闭多段线，就可以删除矩形框以外的对象。代码如下：(defun C:TES ( / #g1 &kw &ss1 ent x) (if (and (setq ...
(defun c:OrthoDim ( / *error* ss plObj closedPts refPt dir dimLayer dimStyle upperPts lowerPts leftPts rightPts) (vl-load-com) ;; 错误处理函数 (defun *error* (msg) (if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*")) (princ (strcat "\n错误: " msg)) ) (setvar "CMDECHO" 1) (princ) ) ;; 选择闭合多段线 (princ "\n选择闭合多段线: ") (setq ss (ssget ":S" '((0 . "LWPOLYLINE")))) (if (null ss) (progn (alert "未选择对象或选择无效!") (exit)) ) (setq plObj (vlax-ename->vla-object (ssname ss 0))) ;; 检查是否闭合 (if (not (vlax-get-property plObj 'Closed)) (progn (alert "所选多段线未闭合!") (exit)) ) ;; 获取顶点坐标 (setq closedPts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (vlax-vla-object->ename plObj)) ) ) ) ;; 移除重复的闭合点 (if (equal (car closedPts) (last closedPts) 1e-6) (setq closedPts (reverse (cdr (reverse closedPts)))) ) ;; 获取参照点 (setq refPt (getpoint "\n在轮廓线上拾取参照点: ")) (if (null refPt) (exit)) ;; 选择标注方向 (initget "H V") (setq dir (getkword "\n选择标注方向 [H水平/V垂直]: ")) (if (not dir) (setq dir "H")) ;; 获取当前标注样式和图层 (setq dimLayer (getvar "CLAYER")) (setq dimStyle (getvar "DIMSTYLE")) (setvar "CMDECHO" 0) (cond ((= dir "H") ; 水平方向标注 ;; 分组点集: 上方点(Y ≥ refPt Y) 和 下方点(Y ≤ refPt Y) (setq upperPts (vl-sort (vl-remove-if-not '(lambda (pt) (>= (cadr pt) (cadr refPt))) closedPts ) '(lambda (a b) (< (car a) (car b))) ) ) (setq lowerPts (vl-sort (vl-remove-if-not '(lambda (pt) (<= (cadr pt) (cadr refPt))) closedPts ) '(lambda (a b) (< (car a) (car b))) ) ) ;; 去重处理 (setq upperPts (LM:Unique upperPts)) (setq lowerPts (LM:Unique lowerPts)) ;; 计算标注位置 (setq upperY (apply 'max (mapcar 'cadr upperPts))) (setq lowerY (apply 'min (mapcar 'cadr lowerPts))) (setq upperDimLineY (+ upperY 30)) (setq lowerDimLineY (- lowerY 30)) ;; 创建上方标注 (if (> (length upperPts) 1) (progn (command "_.DIMLINEAR" (car upperPts) (cadr upperPts) (list (car (car upperPts)) upperDimLineY) ) (command "_.DIMCONTINUE") (foreach pt (cddr upperPts) (command pt) ) (command "") ) ) ;; 创建下方标注 (if (> (length lowerPts) 1) (progn (command "_.DIMLINEAR" (car lowerPts) (cadr lowerPts) (list (car (car lowerPts)) lowerDimLineY) ) (command "_.DIMCONTINUE") (foreach pt (cddr lowerPts) (command pt) ) (command "") ) ) ) ((= dir "V") ; 垂直方向标注 ;; 分组点集: 右侧点(X ≥ refPt X) 和 左侧点(X ≤ refPt X) (setq rightPts (vl-sort (vl-remove-if-not '(lambda (pt) (>= (car pt) (car refPt))) closedPts ) '(lambda (a b) (< (cadr a) (cadr b))) ) ) (setq leftPts (vl-sort (vl-remove-if-not '(lambda (pt) (<= (car pt) (car refPt))) closedPts ) '(lambda (a b) (< (cadr a) (cadr b))) ) ) ;; 去重处理 (setq rightPts (LM:Unique rightPts)) (setq leftPts (LM:Unique leftPts)) ;; 计算标注位置 (setq rightX (apply 'max (mapcar 'car rightPts))) (setq leftX (apply 'min (mapcar 'car leftPts))) (setq rightDimLineX (+ rightX 30)) (setq leftDimLineX (- leftX 30)) ;; 创建右侧标注 (if (> (length rightPts) 1) (progn (command "_.DIMLINEAR" (car rightPts) (cadr rightPts) (list rightDimLineX (cadr (car rightPts))) ) (command "_.DIMCONTINUE") (foreach pt (cddr rightPts) (command pt) ) (command "") ) ) ;; 创建左侧标注 (if (> (length leftPts) 1) (progn (command "_.DIMLINEAR" (car leftPts) (cadr leftPts) (list leftDimLineX (cadr (car leftPts))) ) (command "_.DIMCONTINUE") (foreach pt (cddr leftPts) (command pt) ) (command "") ) ) ) ) (setvar "CMDECHO" 1) (princ "\n正交标注创建完成!") (princ) ) ;; 辅助函数: 列表去重 (defun LM:Unique (l / x r) (while l (setq x (car l) l (vl-remove x (cdr l)) r (cons x r) ) ) (reverse r) )
最新发布
06-29
(vl-remove-if-not '(lambda (x) (= (car x) 10)) ; 筛选组码10(顶点坐标) (entget (vlax-vla-object->ename plObj)) ) ) ) ``` - 使用AutoLISP图元数据处理函数提取多段线顶点 ```lisp ;; 水平标注分组逻辑 ...
lisp调用dcl单选框_晓东CAD家园-论坛-A/VLISP-[求助]：请问如何实现点击dcl对话框中按钮执行lisp程序!-请问如何实现点击dcl对话框中按钮执行lisp程序!我想把积累的lisp...
weixin_39585795的博客
12-21 264
似水无痕 ,你好,你能帮我写个范例吗?因本人愚昧,很喜欢这个.代码:加宽直线(defun c:lw()(progn(write-line"\n 选择实体：")(setq selet (ssget)))(setq pw (getreal "\n输入线宽："))(setq n 0)(if(/= selet nil)(repeat(sslength selet)(setq entname(ssname ...
visual lisp/autolisp dcl对话框开发 --列表框（list_box）
06-18
### Visual Lisp/AutoLISP中DCL对话框列表框（list_box）的用法示例 以下是一个关于如何在Visual Lisp/AutoLISP中使用DCL文件定义和操作列表框（`list_box`）的详细示例。 #### DCL文件定义 ```dcl listbox_...
lisp不是函授型语言_lisp函数大全详解
weixin_39964869的博客
12-21 858
lisp函数大全详解AutoLISP提供了大量的预定义函数。若将函数名(大小写都可)作为表中的第一个元素函数变元(若有的话)作为表中后面的元素，就可以调用那个函数。本章按字母顺序列出AutoLISP所有基本函数。用户会发现其中许多函数都是标准函数，可在LISP程序设计语言中找到。还有一些函数是由 AutoCAD提供的且专用于交互图形环境。1 FLATLAND 系统变量－－与老版本的兼容性AutoL...
lisp块改色_lisp函数(删除带颜色图元)
weixin_39804329的博客
12-21 1439
以下程序在别人的贴子里贴过.为了说明问题,今天再贴一次.改颜色的LISP程序(defun c:c1()(ssget)(command "chprop" "p" "" "c" "1" "") (princ))(defun c:c2()(ssget)(command "chprop" "p" "" "c" "2" "") (princ))(defun c:c3()(ssget)(command "ch...
lisp 删除编组中图元_2013-09-05 明经 AutoLISP 编程(102918348) 群聊记录：删除列表中第N个元素是用哪个函数？vl-remove 是把列表里相同都会删掉...
weixin_39938522的博客
12-21 759
[LC100]建筑设计 16:03:09(defunc:test(/ssneelp21p22p23p24tcbl)(setqss(ssget))(setqn0);序号的初值为0(repeat(sslengthss);重复执行，执行的次数等于所选对象的个数(setqe(ssnamessn));得到选择集内第n个对象的图元名(setqel(entge...
std:;remove_if用法讲解
热门推荐
KFLING的博客
05-03 4万+
remove_if(begin,end,op); remove_if的参数是迭代器，前两个参数表示迭代的起始位置和这个起始位置所对应的停止位置。最后一个参数：传入一个回调函数，如果回调函数返回为真，则将当前所指向的参数移到尾部。返回值是被移动区域的首个元素。remove_if在头文件algorithm中，故要使用此函数，需添加#include &lt;algorithm&gt;由于remove_...
AutoLisp的扩展函数记录
Cronus Z的博客
11-21 5806
(vl-load-com) 加载AutoLISP反应器支持函数和其他 AutoLISP 扩展 表操作函数 (vl-remove 1 '(1 2 3 4)) 返回值:’(2 3 4) ,函数从列表删除指定数 (vl-position 1 '(2 3 1)) 返回值:2 ,函数获得数在列表中位置 (vl-sort '(1 1 2 2 3 3) 返回值:’(1 2 3) ,自动去重 (vl-l...
cad剪裁地形图lisp_晓东CAD家园-论坛-A/VLISP-关于如何计算XClip剪裁边界顶点坐标的研究-我们知道，对于图块的边界剪裁，可以使用XClip命令，使得剪裁边界之外的部分不可见！我们可...
weixin_35794072的博客
03-05 680
;;修改XCLIP边界(defun c:tt ()(while(and(setq e (car(entsel "\n选择剪裁块:")))(setq Poly (car(entsel "\n选择剪裁边界:"))))(gxl-EditXclipBoundary e poly))(princ));;(gxl-EditXclipBoundary ENAME BOUNDARY) 重构XCLip的剪裁边界,参...
lisp判断cad简体或繁体,如何判断文字的内容相同 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
weixin_42185419的博客
03-16 391
比较简单，希望有所帮助！(defun C:ss (/ text_1 text_2 v1 v2 vv a)(setq s1 (ssget '((0 . "TEXT"))))(setq s2 (ssget '((0 . "TEXT"))))(setq N1 (sslength s1 ))(setq N2 (sslength s2 ))(setq i 0j 0text_1 ()text_2 ())(wh...
CAD-autolisp（一）——数据结构、函数、图元
chucksun0426的博客
01-15 6370
简介：cad 二次开发语言，后缀名*.lsp适用于编写小工具，不适用大量数据或者需要大量计算的场景，编译后后缀名为*.vlx优点：所有cad版本均通用，不像arx或者其他只针对固定版本缺点：不适合处理大量计算或图元场景，超过1000个单元即有轻微等待卡顿，软件加密困难定义：每个可视cad元素均为一个图元，图元之间以链表形式互相连接，可以用(entsel “提示文字，选填”)命令选择，返回：（图元名，点选处的坐标）示例如下图。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值