77问答网
所有问题
当前搜索:
cadlisp编程环境的介绍
AutoCAD
软件
介绍
视频时间 0:19
寻找高手帮忙编写一个
CAD的lisp
程序,输入命令框选所有线条,能所有将...
答:
你是要选择所有园弧吧,ARC就是园弧的代号 (defun c:qs_arc(/ s1 s2 sum)(command "_.PSELECT" (ssget "x" (list(cons 0 "ARC"))) ""))如果要选择ARC和所有line,则改为 (command "_.PSELECT" (ssget "x" (list(cons 0 "ARC"))) (ssget "x" (list(cons 0 "*line")))...
auto cad
机械制图 各键所代表的指令意义是什么?
答:
20.
AutoCAD
二次开发工具很多,
Lisp
早就有了,R11提供了ADS (Acad Develop system),R12中提供了ADS对实模式下C编译器(如 BC,MS C)的支持,R13提供ARX(Acad Runtime eXtend),R14提供了 VB Automation,这个Automation使VB编写CAD程序成为可能,渴望
CAD编程
的人有了一个最好的选择,不必学习ADS、ARX、Object ARX,和...
高手帮助!!!我想要一个
cad
标注的
lisp
程序或者vLx插件~~ 请大师们...
答:
使用UCS命令变化一下坐标,不就行了。何必还要找人编制专用的程序呢。命令: _ucs 当前 UCS 名称: *没有名称 指定 UCS 的原点或 [面(F)/命名(NA)/对象(OB)/上一个(P)/视图(V)/世界(W)/X/Y/Z/Z 轴(ZA)] <世界>: _o 指定新原点 <0,0,0>:
lisp编程
:请问高手们,
CAD
批两打印能实现自动化保存和命名吗?
答:
lsp无法实现自动命名,必须是事先规定好叫什么什么名字,这样才能实现自动保存。
CAD的lisp
语言中 setq pt2(polar (polar ptx 0(1-nn)
答:
通过计算ptx点得到pt2点的坐标
lisp编程
在打开的
CAD
图中,插入另一已画好的
cad
图
答:
sx)(setq sx 1))(setq sy(getreal "\指定Y比例<1>:"))(if(not sy)(setq sy 1))(command "-insert" dwg pt sx sy "0")))(setvar "cmdecho" 0)(princ));;事实上真的是直接使用Insert命令也差不多!除非要批量插入才
编程
;;顺手写了段小代码,自己按需要修改一下再用 ...
CAD LISP
打开txt文件
答:
(setq txt (open "d://test.txt" "r") ; 读模式 (read-line txt) ;;读文件的第一行 (read-line txt) ;; 读文件的第n行 ;;想全显用循环
求
cad的
一个
lisp
程序,要求鼠标点击一点后,在其旁输出坐标值(x,y,z...
答:
其实很简单的,不用三楼那么麻烦的。(defun c:pt()(setvar "cmdecho" 0)(while (setq pt1 (getpoint "\n请指定点位置:"))(setq point_x (rtos (car pt1) 2 2))(setq point_y (rtos (cadr pt1) 2 2))(setq point_z (rtos (
cad
dr pt1) 2 2))(command "_text" pt1 "" ...
为什么我加载的
cad
之
lisp
应用程序无法使用?
答:
加载成功后,应该输入源代码中defun c:和()之间的单词后字母组合。还有如果显示列表有缺陷,一个是源代码有错误,另外也可能没有粘贴全。
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜