能教我如何用LISP语言标注吗？
低级语言 - 机器语言、汇编语言和符号语言。 - 汇编语言源程序必须经过汇编，生成目标文件，然后执行。 高级语言 - BASIC（True basic、Qbasic、Virtual Basic）、C、C++、PASCAL、FORTRAN、智能化语言（LISP、Prolog、CLIPS、OpenCyc、Fazzy）
标注样式要先建立字体样式。
如果箭头没有块的话，要建立块。
;;;主程序标注样式(defun TextDim () (tssd2) (if (null (tblsearch "DIMSTYLE" "TSSD_50_50-250"));1 (progn (if (null (tblobjname "BLOCK" "_ARCHTICK")) (progn (entmake (list '(0 . "BLOCK") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbBlockBegin") '(70 . 0) '(10 0.0 0.0 0.0) '(2 . "_ARCHTICK") '(1 . ""))) (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(62 . 0) '(6 . "ByBlock") '(100 . "AcDbPolyline") '(90 . 2) '(43 . 0.15) '(10 -0.5 -0.5 0.0) '(10 0.5 0.5 0.0) '(210 0.0 0.0 1.0))) (entmake (list '(0 . "ENDBLK"))) (entupd (tblobjname "Block" "_ARCHTICK")) ) ) (entmake (list '(0 . "DIMSTYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbDimStyleTableRecord") '(70 . 0) '(2 . "TSSD_50_50-250") ; 标注样式名 '(3 . "") ; 标注前缀 '(4 . "") '(40 . 0.0) ; 标注特征比例，缩放到布局 '(41 . 60) ; 箭头尺寸 '(42 . 50) ; 起点偏移量 '(43 . 0) ; 基线间距 '(44 . 0) ; 超出尺寸线 '(47 . 0.000) ; 上偏差 '(48 . 0.000) ; 下偏差 '(71 . 0) ; 公差无 '(73 . 0) ;设置对齐或水平的内部文字 '(74 . 0) ;设置外部文字对齐或水平 '(77 . 2) ; 文字在尺寸线外部 '(140 . 230) ; 文字高度 '(141 . 0) ; 圆心标记 '(142 . 0) ;箭头斜线的大小 '(144 . 1.0) ; 测量比例单位 '(146 . 0.5) ; 公差高度比例 '(147 . 60) ; 文字从尺寸线偏移 '(172 . 2) ; 尺寸界线间连线 '(173 . 0) ; 绘制箭头的用户定义块 '(174 . 4) ; 限制文字在延伸线间 '(176 . 256) ; 随层 '(177 . 256) ; 随层 '(178 . 256) ; 随层 '(271 . 0) ; 尺寸标注精度 '(272 . 3) ; 公差标注精度 '(275 . 0) ; 角度标注制式，十进制。 '(280 . 0) ;确定文字的水平位置 '(283 . 1) ;DIMTOLJ 通用 设置公差文字的竖向位置 '(288 . 0) ;手动放置尺寸 '(279 . 2) ;文字移动; (cons 340 (tblobjname "style" "TSSD_Dimension")) ; 文字样式名 (cons 342 (cdr (assoc 330 (entget (tblobjname "BLOCK" "_ARCHTICK")))));;;DIMBLK: ) ) ) ));建立TSSD_Dimension字体(defun TSSD2 ( / newt) (if (null (tblsearch "style" "TSSD_Dimension")) (progn (if (null vlax-dump-object) (vl-load-com) ) (setq newT (vla-add (vla-get-TextStyles (vla-get-activedocument (vlax-get-acad-object))) "TSSD_Dimension")) (vla-put-fontfile newT "tssdeng.shx") (vla-put-bigfontfile newT "hztxt.shx");大字体为hztxt (vla-put-height newT 0);高度0 (vla-put-width newT 0.5);宽度因子0.6 (vla-put-obliqueAngle newT (/ (* pi 3) 180));倾斜角度3 ) ));【注意：字体库里面必需有"tssdeng.shx""hztxt.shx"两个字体】
线性标注,pt1为标注第一点,pt2为第二点,pt3为标注文字放置点,若要更改标注文字,修改<>即可
(command "dimangular" "" pt1 pt2 pt3 "t" "<>" pt4)
以点座标标注角度,pt1为角度夹角点,pt2为起始角度点,pt3为结束角度点,pt4为标注文字放置点,若要更改标注文字,修改<>即可
(command "dimradius" (list obj pt1) "t" "<>" pt2)
(command "dimdiameter" (list obj pt1) "t" "<>" pt2)
半径与直径标注,obj为标注的圆或弧对象,pt1为靠近obj对象的一个点,pt2为标注文字放置点,若要更改标注文字,修改<>即可
(command "dimordinate" pt1 "t" "<>" pt2)
座标标注,pt1为要标注的点,pt2为放置点,若相对pt1横向(x)的偏移量大于纵向(y)时,标注的为Y座标值,反之则标注的为X座标,也可以在pt1后输入 x 或 y 来强行确定标注的是 x 或 y座标,若要更改标注文字,修改<>即可
常用的就上面的吧，写的有点罗嗦了。
CAD里面的lisp有什么作用啊,怎么用,要具体的,能让我明白加分
1. 可以使用APPLOAD命令，然后去找到要加载的LISP文件，加载即可。2. 可以自己从文件管理器把LISP文件拖动到ACAD的图形窗口，也可以加载 3. 在命令行后用，(load "c:\\\\temp\\\\xxx.lsp")也可以加载，路径名请输入实际的路径。另：对于一个LSP程序，(defun 后面的既是命令或者函数，一般程序应该有提示...
请教如何利用lisp 删或加属性项!!!谢谢!
Lisp的表达式是一个原子(atom)或表(list)，原子(atom)是一个字母序列，如abc；表是由零个或多个表达式组成的序列，表达式之间用空格分隔开，放入一对括号中，如： abc () (abc xyz) (a b (c) d) 最后一个表是由四个元素构成的，其中第三个元素本身也是一个表。 正如算数...
CADlisp编程:如何用lisp处理一个dwg图形中的多个多线段?
方案一：直接读取dwg格式文件有点难度，估计高手会做 方案二：若是文件有很多要做的话，可以用C#，C++，VB通过COM去开发，用COM方式依次打开dwg图档，然后遍历图元来进行你的要求来运算 方案三：若是文件有很多要做的话，也可以用AutoLisp来做，自动打开你的文件列表，然后遍历图元来进行你的要求来运算...
如何编写lisp将两个文字合并为一?请教大神。
读取第一个文本赋值变量 再读取第二个文本，复制变量 将两个变量的字符组合 替换掉第一个文本 框选的话，就要判断位置
能教我如何用LISP语言标注吗?
以点座标标注角度,pt1为角度夹角点,pt2为起始角度点,pt3为结束角度点,pt4为标注文字放置点,若要更改标注文字,修改<>即可 (command "dimradius" (list obj pt1) "t" "<>" pt2)(command "dimdiameter" (list obj pt1) "t" "<>" pt2)半径与直径标注,obj为标注的圆或弧对象,pt1为靠近...
请教大家:怎样用lisp 命令画个矩形,然后把矩形作成块?
(entmake '((0 . "INSERT")))中间用LISP的(entmake (list...))或者调用CAD命令(command "具体命令" "该命令所需要的数据或者选项") 绘制你需要制作成块的图元，可以有很多个 至于你说的要一个矩形，简单起见可以用(COMMAND "rectangle“(getpoint)(getpoint))来完成它 (entmake '((0 . "S...
浩辰CAD 2010的VLISP接口加载贱人工具箱图文教程
1、直接访问ActiveX对象与标准LISP对比我们把标准Lisp和使用VLISP直接访问ActiveX对象做一个简单比较： 标准LISP语言： (setq circle-entity (car (entsel))) (setq radius (cdr (assoc 40 (entget circle-entity))) 使用VLISP直接访问Ac...
大神请教个问题:我想用lisp改变已有的标注样式 的标注线 和文本的颜...
;改颜色随层子程序 (defun c:tt1(\/ ss)(princ "颜色改为随层")(if (setq ss (ssget))(progn (princ (strcat (itoa (sslength ss)) "个对象的颜色改为随层"))(command "change" ss "" "P" "C" "bylayer" "")));if (princ))...
Lisp的使用要求有那些(win7),有图文的安装教程吗,要如何使用emacs才能编...
你要在当前buffer 中选中 region (C-@设置起点，然后移动光标到终点），然后再 M-x append-to-buffer ，再写上 目标buffer （如 *message*)，目标buffer必须可写。
ANSI Common LISP教程提供哪些方面的概述?
在探讨人工智能程序设计语言，如Common Lisp时，ANSI Common Lisp教程作为核心教材的有益补充。它采用新颖的教学方式，引导学生理解编程的基础概念，通过实例演示Lisp的逻辑思维训练。文本全面总结了ANSI Common Lisp的最新特性，详细列出了语言中的各项运算符，确保内容紧跟时代。此书注重实用性和效率，为学习...
万独青叶： (command ＂dimlinear＂ pt1 pt2 ＂t＂ ＂<>＂ pt3) 线性标注,pt1为标注第一点,pt2为第二点,pt3为标注文字放置点,若要更改标注文字,修改<>即可 (command ＂dimangular＂ ＂＂ pt1 pt2 pt3 ＂t＂ ＂<>＂ pt4) 以点座标标注角度,pt1...
丰顺县15292892408： 如何用lisp自动标注尺寸?(端点可以确定)求指点如何用lisp ？
万独青叶： 端点确定后Command: DimDim: ????标注尺寸下有很多很多的选项端点确定后您在命令列的实例得贴出来就可以转成代码了 查看原帖>>
丰顺县15292892408： lisp如何实现动态标注?麻烦高手给个思路,不胜感激!!!？
万独青叶： 找到你需要标注的图元,确定需要标注的位置和内容,然后用(command ＂text＂ .....)就可以了
丰顺县15292892408： 怎么在CAD中用LISP文件? - ？
万独青叶： 1,用vlisp 命令打开那个lisp程序,看看这个程序的执行命令是什么,一般是defun C:后面的几个字母.2.如果加载成功了,在cad命令行输入程序的执行命令,空格后会有相应的提示要你输入参数或选图形...
丰顺县15292892408： 求大神给写一个lisp程序,加载以后,双击标注就能进行编辑 - ？
万独青叶： 1. 运行autolisp,需要输入命令,在运行autolisp的时候,别的命令不能输入,你要双击就能够编辑标注的话,好像不行的.2. 在autocad里面,直接输入命令:ED;就可以编辑任何文字,当然也包括了标注.3. 在高版本的autocad里面(如2010版本),有个(快捷面板),选择标注后,可以直接在里面修改.4. 就在文字替代这一行.
丰顺县15292892408： 求大神帮我用LISP语言把这张图表示出来!!!?圆圈里要加上文字或者数字!! - ？
万独青叶： public static void main(String[] args) {Integer a = 1000, b = 1000;System.out.println(a == b);//1 falseInteger c = 100, d = 100;System.out.println(c == d);//2 true }
丰顺县15292892408： CAD的LISP语言怎么编写生成坐标标注.已有代码如下,但是他不能显示Z轴的.而他所显示的也正是我不需要的 - ？
万独青叶： 在运行的CAD程序) ②、按F3键打开XP系统的文件搜索窗口,分别搜索并删除acad.lsp、acad.fas、acaddoc.lsp、acadapq.lsp、acadappp.lsp、acadapp.lsp和lcm.fas文件 注意:①、“搜索范围”一定要选择“本机硬盘驱动器 (如C:;D:;E:;F:)”.②、一定要先勾选“搜索选项”中的“高级选项”,将其下的“搜索系统文件夹”、“搜索隐藏的文件和文件夹”“搜索子文件夹”项勾选上,否则不能将病毒文件全部搜索清除干净.
丰顺县15292892408： 有几个CAD中的LISP语言怎么编程 - ？
万独青叶： AutoLISP语言是在普通的LISP语言基础上,又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言.它是一种解释性求值语言,速度较慢,难以保密,可用任何文字编辑软件编辑,用纯文本的格式保存.例如: (setq i 1);就是代码i...
丰顺县15292892408： 大神请教个问题:我想用lisp改变已有的标注样式 的标注线 和文本的颜色 lisp 该怎么写呢? - ？
万独青叶： ;改颜色随百层子程序度(defun c:tt1(/ ss)(princ ＂颜色改为随内层＂)(if (setq ss (ssget))(progn(princ (strcat (itoa (sslength ss)) ＂个对象的容颜色改为随层＂))(command ＂change＂ ss ＂＂ ＂P＂ ＂C＂ ＂bylayer＂ ＂＂)));if(princ))
丰顺县15292892408： 怎么使用ACAD中的LISP功能?语言结构是什么? - ？
万独青叶： LISP语言是人工智能语言,是以表结构为基础的语言,关键是入门容易、可读性强、调试方便(所见即所得)等,如果是入门级的新手,建议直接选用这个来开发.
