您在24小时内还可以浏览4个帖子。
请尽快以解除浏览限制。
我要函数发布
查看: 293|回复: 5
[求助]：如何编写这样的程序？
在线时间 小时
该用户从未签到
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
在进行cad制图时，常要用到坡度标注，请问能不能用autolisp编制一个命令方便地进行坡度标注呢？望兄台给小弟写一个，帮帮忙。
在使用head4.0时发现其中的划线命令功能很丰富，其中可以使用划线命令绘制垂直、相切已知实体（直线、圆，多义线等），请问能不能使用autolisp编写一个这样的命令方便划线呢？望兄台相告，并举个例子，指点指点兄弟，望回。上一篇：下一篇：
本文地址&<button type="submit" class="pn" onclick="setCopy('[求助]：如何编写这样的程序？\nhttp://bbs.xdcad.net/thread--1.html', '本文地址已复制到剪贴板用快捷键 Ctrl+V 粘贴到 QQ、MSN 里推荐给你的好友吧！')">推荐给好友
在线时间 小时
该用户从未签到
你的“坡度标注”术语是否太专业了（来这里的不都是搞建筑的。。。）？既然是Auto/V开发技术专栏，能否说的通俗明白些？
在线时间 小时
该用户从未签到
head4.0是什么啊？ 你坡度是不是只要选一根线的斜率 还是你自己要求的输入数值啊
在线时间 小时
该用户从未签到
3楼楼主说得没有错，我是想既可以自动标注，也可以书写进去 ，那该怎么办法啊？
在线时间 小时
签到天数: 36 天连续签到: 1 天[LV.5]常住居民I
坡度标注：点取两点，输入两点标高，标注坡长和坡度。
加载poudu.fas，运行pdbz。
在线时间 小时
签到天数: 36 天连续签到: 1 天[LV.5]常住居民I
程序示意：
Powered byCAD程序语言 LISP 傻瓜拼凑编程法
Auto Lisp 是Auto CAD 软件自带的一种程序语言，其编程软件已包含在Auto CAD 软件中，用&VLIDE命令即可打开进行编程。
　　这种程序语言最方便之处是与Auto CAD完美结合，特别是在编程错误时不会导致CAD系统崩溃。学习Auto Lisp不需具备编程基础、不需会英语、不需记忆和背诵单词之类的程序函数代码，只需要会中文输入和知道想编什么样的程序，就可从现有的各类典型程序代码库中，用照葫芦画瓢的方式，加以替换和修改；用复制和粘贴的方法进行拼凑编程，这样就凑成了一个新的程序，这和滚雪球是一样，钢构CAD中的程序都是这样拼凑滚出来的。
以下文字是一个画圆的示范程序源代码，可将其选中复制粘贴到编程序界面中，点击加载活动编辑窗口后，在CAD命令行输入AAA即可运行该程序。
　　一个画圆的示范程序:
　　以下黑颜色的字母可任意设定,与程序本身无关,只起个临时代号的作用
　　以下蓝颜色的文字为程序自身的标准函数,可复制粘贴调用,不能更改也无需记忆
　　以下粉红色的文字为中程序界面中显示的中文内容,可根据需要书写设置
　　本个字体颜色的文字,是为便于以后理解程序而加在源代码之后的注释,其本身不参与程序运行,但有详细的注释,能为以后编写类似程序提供快速上手的作用。
　　(defun C:AAA(); AAA 为自定义的程序命令名称 可随意定
　　(SETQ R1 678);SETQ 为赋值函数,此处为将数据 678 赋予 R1 此处 678 数值可随意设定
　　(SETQ ZR1 (rtos R1)); rtos 为将数据转换为字符 ,再赋值给 ZR1
　　(setq p1 (getpoint &\n 请点取圆中心点:&)) 用光标在屏幕上指定任意一个点 赋值给 P1
　　(command &CIRCLE& P1 R1);用画圆命令 CIRCLE 画以 P1 为圆心, R1 为半径的圆
　　(SETQ VZ (STRCAT &你 设 置 的 圆 半 径 为 & ZR1 STRCAT 将各种文字组合成一个新的文字,并赋值给 VZ
　　程 序 原 来 这 么 简 单 呀 ! & ) )
　　(alert VZ);在屏幕上显示文字 VZ 的内容
　　);全部程序完
我来说两句 ()
CAD视频教程
Copyright & 2007 - 2012
All Rights Reserved.
E-mail: 手机：}