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 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 ...

可以用反应器实现,前提是画线和输入文字必须用定义的函数一次性操作完成.LISP代码如下: (VL-Load-Com) (defun c:Line_Txt(/ Pt Pt1 Pt2 EntLine HandTxt VlaObj Tmp) (setq Pt1 (getpoint "\n指定第一点:")) (setq Pt2 (getpoint "\n指定下一...

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

文字内容代码为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...

;用搜索的方法就可以 (setq ang (cdr (assoc 50 a));取得文字角度 H (textbox a) ;提取文字对角点 L (caadr H) ;提取文字长度 H (cadadr H) ;提取文字高度 @p1 (polar zb ang L) ;文字右下角点坐标 @p1 (polar @p1 (+ ang (* pi 0.5)) H) ;文字...

使用autoLISP一次修改除块以外Z轴线归零。 附件是autoLISP文件,下载了,AutoCAD加载...(setq b11 (assoc 11 a)) (setq x10 (cadr b10)) (setq y10 (caddr ...

(defun c:test() (setq os (getvar "osmode")) (setvar "osmode" 0) (setq en (entsel "choose a circle:")) (setq en_data (entget (car en))) (setq cenpt (cdr (assoc 10 en_data))) (setq rad (assoc 40 en_data)) ;;;---------------------...

不太明白你的描述,最好描述详细点

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