- 博客(0)
- 资源 (4)
- 收藏
- 关注
Lisp增加图层,切换图层,选物改层-swg-zmzk
(defun c:zjtc()
(princ "\n增加1-9号图层")
(setvar "cmdecho" 0) ; 关闭命令提示
(Setq osmode_bak (getvar "osmode")) ;_记录捕捉
(Setvar "osmode" 0) ;_关闭捕捉
(command "layer" "new" "_1" "c" "7" "_1" "")
(command "layer" "new" "_2" "c" "5" "_2" "")
(command "layer" "new" "_3" "c" "6" "_3" "")
(command "layer" "new" "_4" "c" "4" "_4" "")
(command "layer" "new" "_5" "c" "3" "_5" "")
(command "layer" "new" "_6" "c" "2" "_6" "")
(command "layer" "new" "_7
2022-12-10
lisp初学者进阶案例,画 工字钢,学习排坐标,构建图形
lisp初学者进阶案例,画 工字钢,学习排坐标,构建图形
(defun C:777(/ osm clay cm ort hh bb tt jj pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt22 pt33 pt44 pt55 pt66 pt77 pt88 )
(setq clay (getvar "clayer")) ;;图层
(setq cm (getvar "cmdecho")) ;;回显
(setq osm (getvar "osmode")) ;;抓点
(setq ort(getvar "orthomode"));;正交
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setvar "orthomode" 0)
(command ".layer" "m" "S-STEL" "c" "111" "" "")
(command "clayer" "S-STEL
2022-12-10
Lisp 基本图形调用之法-swg-zmzk
;直线
;方法 (command "LINE" 坐标 坐标 ...... "")
;|实例|;(command "LINE" getpoint getpoint "")
;多义线两种方式
;方法
;1、不闭合(command "Pline" 坐标 坐标 ....... "")
;2、闭合(command "Pline" 坐标 坐标 ....... "C")
;|实例|;(command "Pline" getpoint getpoint getpoint "C")
;射线
;方法 (command "xline" 坐标 坐标 ....... "")
;|实例|;(command "xline" getpoint getpoint getpoint "")
;多边形
;方法
;1、内接圆(command "polygon" 边数目 中心点 "i" 半径)
;2、外切圆(command "polygon" 边数目 中心点 ....... "")
;3、边长 (command "polygon" 边数目 "e" ;|[边长]|; 端点1 端点2)
;|
2022-12-10
用于五金模具LISP-swg-zmzk
主要用于五金模具设计,对五金模具设计来讲,我最得意的两个命令一个是WX,求最大外形,排料带的时候非常爽,还有一个是BS,画好图叠图的时候框选模板就会变色
2022-12-10
铝板幕墙cad图纸10-15
10.塑铝板幕墙纵剖节点图(一)
11.复合铝板幕墙节点图(一)、(二)
12.塑铝板幕墙横剖节点图
13.玻璃幕墙及铝复合板横剖节点图(四)
14.塑铝板纵剖节点图(二)
15.塑铝板幕墙楼顶纵剖节点图
2019-02-08
铝板幕墙cad图纸
1.玻璃幕墙及铝复合板横剖节点图(一)
2.玻璃幕墙及铝合金型材节点图(一)~(八)
3.隐框幕墙及铝塑板幕墙节点图(一)~(十)
4.铝复合板阳角节点图
5.玻璃幕墙与铝复合板横剖节点图(二)
6.玻璃幕墙与铝复合板横剖节点图(三)
7.铝塑板阳角节点图
8.外墙干挂铝合金作法详图
9.铝复合板幕墙纵剖节点图
2019-02-08
LISP 程序最新知识
一、AutOLISP是何方神圣
★AutoLISP是AutoCAD的最佳搭档!
★AutoLISP内含于AutoCAD软件内,不用另外花钱买!
★AutoLISP是强化AutoCAD最好、最直接的“程序语言”!
★AutoLISP易学、易用,即使不会程序设计的AutoCAD用户,都能在最短的时间内写出令人惊讶、赞叹的功能!
★若说AutoLISP的出现,是替AutoCAD创造一片天的“最大功臣”,一点也不夸张!
★AutoLISP希望您去学习它、改善它、发挥它、享受它,真的!它的威力、魅力无穷!
二、AutoLISP程序语言的特点分折
学习AutoLISP是非常容易的,对初学者而言,即使没有学习过任何的程序语言,都能很快上手,写出精彩漂亮的AutoLISP程序!
★语法简单 不用特殊的变量定义,非常富有弹性.比起其他的程序语言,它的语法可说是非常简单而又有其独特的风格!
★功能函数强大 除一般性的功能函数外,又拥有为数不少控制配合AutoCAO的特殊函数,再加上AutoLISP可直接调用执行所有AutoCAD的命令,以及掌握运用所有的AutoCAD系统变量,功能之强大令人欣喜不已!
★撰写的环境不挑剃 只要是一般的窗口文本编辑软件都适用!如:记事本、WORDPAD、 EDIT、Visual LISP等。
★直译式程序 不用再作编译,“即写即测、即测即用”,马上可以在AutoCAD中响应效果,马上就有成就感!
2019-02-08
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人