www问答网
所有问题
当前搜索:
autolisp编程大全
求用
autolisp编程
一个五角星或者五环
答:
;;正☆;;(defun C:WJX ( / #os1 #p ent i l1 n p1 pt1 ss x) (setvar "cmdecho" 0) (setvar "blipmode" 0) (vl-load-com) ;;加载vlax扩展函数 (setq #os1 (getvar "osmode")) (setq pt1 (getpoint "\n请指定五角星中心点")) (if (/= pt1 nil) (progn (setq ...
GRREAD函数详解
答:
curtype参数</,作为整数输入,决定鼠标显示形式,可选值包括:0:正常十字鼠标1:隐藏鼠标 (无十字鼠标)2:图元选择“target”鼠标返回值</GRREAD返回一个表,第一个元素是输入形式的代码,第二个元素根据输入形式可能是一个整数或点。当按下Ctrl+C时,函数会终止
AutoLISP
执行。其他键入将传递给GRREAD...
AUTOLISP编程
求助,如何得到屏幕的中点的坐标?
答:
很简单的一个系统变量就能获得,参见下面代码:(setq pt (getvar "viewctr"))如果你还想获得屏幕的四个角点的坐标,可以利用系统变量viewsize screensize配合上面得到的屏幕中心坐标获得。下面在给你个代码,可以获得当前拾取框的高度,在你选取实体的时候这个代码很有用:;| 求拾取框的高度 |;(defun ...
用CAD画阿基米德螺旋线怎么画?
答:
阿基米德螺旋线 用
autolisp编程
可以实现.(command "pline" )(setq n 0)(repeat 1000 (command (polar (list 0 0) (/ n 57.3) n))(setq n (1+ n)))(command)弹簧和螺纹(三维)1、打开CAD后,找工具/AUTOLISP/VISUAL LISP编辑器,打开.点新建文件 2、然后输入 (defun c:luoxuan (/)...
如何使用
AutoLISP
语言例程
答:
从列表中选择所需的文件。单击 Load按钮。如果一切顺利,将出现一条消息说“*.lsp成功载入”。单击Close按钮关闭对话方块。运行
AutoLISP程序
一旦lisp文件被加载,它可以在命令行运行。在运行时只需输入命令的名称(而不是文件名)。在lisp文件中开始是 (defun c:zone ,所以在命令行输入zone。
天正怎么把直线标高取消
答:
有时我们在AutoCAD R14的使用过程中,其他命令都很正常,但特性匹配却不能用了,重装软件一时又找不到它的安装
程序
,下面介绍的方法就可以派上用场了。方法1.在命令行键入menu命令,在弹出的"选择菜单文件"对话框中,选择acad.mnu菜单文件,重新加载菜单;方法2.在命令行键入appload命令,在弹出的"加载
AutoLISP
ADS 和 ...
Auto cad中的LISP语言是什么?有怎样的用途?
答:
AutoLISP语言是在普通的LISP语言基础上,又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言。它是一种解释性求值语言,速度较慢,难以保密,可用任何文字编辑软件编辑,用纯文本的格式保存。AutoLISP语言中的一切成分都是以函数形式给出的,它没有语句概念或其他语法结构。执行
AutoLISP程序
就是执行一些...
模具CAD的
LISP程序
画函数曲线。帮帮忙~
答:
用
autolisp编程
可以实现.(command "pline" )(setq n 0)(repeat 1000 (command (polar (list 0 0) (/ n 57.3) n))(setq n (1+ n)))(command)弹簧和螺纹(三维)1、打开CAD后,找工具/AUTOLISP/VISUAL LISP编辑器,打开.点新建文件 2、然后输入 (defun c:luoxuan (/)(setq b1 (...
有点复杂的
autolisp编程
问题
答:
'(0 . "LINE") (cons 10 p1) (cons 11 p2))) (vlax-ename->vla-object (entlast)));偏移对象(defun x1708162 (obj /obj) (vla-offset obj -2) (vla-offset obj 2) (vla-delete obj))写了一个
autolisp程序
,加载后,输入命令【TES】(命令你可以自己修改)就可以做到你的要求。
请帮忙用
autolisp
编写一个已知平面二点对齐UCS的lisp。
答:
代码给你,如果第三点不确定,只能保证给定的两点转换后坐标是对的!(defun c:ducs()(setq os (getvar "osmode"))(setq cm (getvar "cmdecho"))(setvar "osmode" 9)(setvar "cmdecho" 0)(command "ucs" "w")(setq p1 (getpoint "\n请选取第一点P1:"))(setq p2 (getpoint "\n请...
1
2
3
4
5
6
7
涓嬩竴椤
其他人还搜
用AutoCADLISP语言编程绘图
autolisp函数参考中文版
cad二次开发lisp编程推荐看书
cad二次开发lisp编程
autocad lisp程序100例
lisp函数参考手册
autolisp编程语言常用函数
autolisp程序100例
AutoLisp入门基础教程