ftsg.net
当前位置:首页 >> lisp AssoC >>

lisp AssoC

加循环 (setq el (car (entsel))) (foreach n (entget el) (if (= 10 (car n)) (setq ptlist (cons (cdr n) ptlist)) ) )

AutoLISP语言是在普通的LISP语言基础上,又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言。它是一种解释性求值语言,速度较慢,难以保密,可用任何文字编辑软件编辑,用纯文本的格式保存。例如: (setq i 1);就是代码i值是1 (command ...

(defun C:WZ ( / n ss &kw L ff %k %k1 %k2 %k3 %k4 %k5 %k6);批量选择文字到记事本 (setvar "cmdecho" 0) ;;关闭变量 (setvar "blipmode" 0);;关闭控制点 (vl-load-com) ;;加载vlax扩展函数 (setq n 0 ss '()) ;;取得一个空表 (princ "\n请选择...

(defun c:sd() (setq oldcm (getvar "cmdecho") oldos (getvar "osmode") ) (setvar "cmdecho" 0) (setvar "osmode" 33) (command "_undo" "be") (if (setq p1 (getpoint "\n指定第一点p1:")) (if (setq p2 (getpoint p1 "\n指定第二点p2:")) (p...

当表达式以七个原始操作符中的五个开头时,它的自变量总是要求值的.[2] 我们称这样 的操作符为函数. 接((lambda (...) e) ...)则称为函数调用.它的值计算如下.每一个表达式先求值,然后e再求值.在e的求值过程中,每个出现在e中的的值是相应的在...

;程序写了一个,选择圆,然后选择圆外一点,得到的图形如下 (defun C:tes ( / #k1 #os1 &r1 &tc1 ang1 ent1 ent2 ob1 ob2 pt1 pt2 pt3 x) (setvar "cmdecho" 0) (setvar "blipmode" 0) (vl-load-com) ;;加载vlax扩展函数 (setq #os1 (getvar "os...

文字内容代码为1 (defun c:b1() (setq gj_list_32 (entget (car (entsel))) gj_text_old_32 (assoc 1 gj_list_32) gj_text_new_32 (cons 1 "%%1308@200(2)") ;用于8间距200,一级钢 gj_list_32 (subst gj_text_new_32 gj_text_old_32 gj_list_32...

;求spline,polyline,lwpolyline,arc面积 (defun c:ss () (setq 总面积 0) (setq 总亩数 0) (setq 面积 0) (setq 总周长 0) (setq 周长 0) (setq k 0) (setq a nil) (setq a (ssget)) (setq Len (sslength a)) (repeat Len (setq name (ssname a ...

(cadr (1 . "52.7"))改成 (cdr (1 . "52.7"))试试。。。。。。。。。

写入扩展数据,下面有些自己写的函数,希望对你有用。 (defun regapp-new (appname) (if (tblsearch "appid" appname); Checks if already registered. T (if(= (regapp appname) nil); Some other problem. nil T ) ) ) (defun get-xdata (ent ...

网站首页 | 网站地图
All rights reserved Powered by www.ftsg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com