66问答网
所有问题
当前搜索:
lisp语言remove
在
LISP
中,如何删除一个表中指定位置的元素?
答:
删除表中指定的元素 ($xdlsp_list_
remove
'(54 5 67 7) 5)--->(54 67 7)|;(defun $xdlsp_list_remove (el val)(if (member val el)(append (reverse (cdr (member val (reverse el)))(cdr (member val el)))el ))其实,主要是表的操作函数,你用好reverse会解决很多问题。
lisp语言
怎样排除掉list里面的重复元素?
答:
(defun c:tt()(setq l1 '(7 7 1 33 2 6 3))(while(setq l2(cons(car l1)l2) l1(vl-
remove
(car l1)(cdr l1)))(reverse l2))
LISP
用什么函数能提取某字符串里的特定字符的个数
答:
(length (vl-
remove
(ascii Xch) (vl-string->list Xstr)))
怎么用
LISP语言
,提取多段线的端点坐
答:
(setq ss (mapcar 'cdr (vl-
remove
-if '(lambda (X) (/= 10 (car x))) (entget ent)));取得多段线节点坐标集合
哪位大神能帮我改一下
lisp
程序,实现把圆移到矩形中心。
答:
(defun c:dd123(/)(setq re_name(car(entsel"选择一个矩形")))(setq re_content(entget re_name))(setq Lst (mapcar 'cdr(vl-
remove
-if '(lambda (x) (/= (car x) 10)) re_content))s1 (nth 0 Lst)s2 (nth 1 Lst)s3 (nth 2 Lst)s4 (nth 3 Lst))(setq x1(car s1))(...
autolisp vl vlax vlr vla 这几种都用到那里呢?
答:
对于 vl,如下面的几个小函数,是用于
lisp语言
的增强函数(就是lisp函数功能变的厉害一点的意思)(vl-
remove
)(vl-remove-if)(vl-remove-if-not)对于 vlax ,如下面的几个小函数,这是用于对象编程,比如VBA中的对象编程,其实和我们用的vlax好多都是一样的 (vlax-ename->vla-object)(vlax-vla-...
如何使用visual
lisp
编辑器 编辑出查询多段线所有拐点座标的程式_百 ...
答:
(setq ss (mapcar 'cdr (vl-
remove
-if-not '(lambda (x) (= (car x) 10)) (entget ent)));取得多段线属性列表,提取10组码的表,提取座标。如何使用Visual
Lisp
编辑器 工具/原料 AutoCAD 方法/步骤 1 首先开启AutoCAD 2 在选单栏点选工具。3 选择AutoLISP--->Visual
LISP
编辑器 4 LISP...
关于CAD
LISP
参数的问题
答:
可以给你一个程序,给你参考:;快速选择相同的对象(defun c:xz ( / %k2 &kw1 ent ss1 x) (vl-load-com) (if (and (setq ent (entsel "\n请选择参考对象")) (princ "\n请选择对象") (setq ss1 (vl-
remove
-if-not '(lambda (x) (member (car x) '(0 8 62 7))) (...
谁能帮我写个cad的
lisp
程序?
答:
(setq osm (getvar "osmode"))(setvar "cmdecho" 0)(command "undo" "be")(If (progn (princ "请选取矩形:")(setq ssa (ssget":S" '((0 . "lwpolyline") (90 . 4) (70 . 1)))(progn (setq dxf (entget (ssname ssa 0)))(setq pts (mapcar 'cdr (vl-
remove
-if '(lambda...
求助:各位大侠,获取矩形四顶点的
lisp
语句怎么写
答:
(defun c:tt2 (/ EN 坐标)(if (and (setq en (entsel "\n选择矩形:"))(= (cdr (assoc 0 (entget (car en))) "LWPOLYLINE")(= (cdr (assoc 90 (entget (car en))) 4))(setq 坐标 (mapcar 'cdr (vl-
remove
-if '(lambda (x) (/= (car x) 10))(entget (car en)))(...
1
2
3
涓嬩竴椤
其他人还搜
remove removal
prolog语言
lisp语言应用
lisp是解释语言吗
lisp语言能干什么
haskell语言
lisp语言入门
lisp语言经典教材
lisp编译型语言